|
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_27d38cd
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0150 | P | .CONST 0x0150 ; 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 005b | [ | .CONST 0x005b ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0021 | ! | .CONST 0x0021 ; Number of locals 000b INIT_0008: 000b 00e3 | | Load_Encached Natural_Cache 000c 00e3 | | Load_Encached Natural_Cache 000d 00e3 | | Load_Encached Natural_Cache 000e 029f 0113 | | Declare_Subprogram INIT_0110,For_Call 0010 4803 |H | Short_Literal 0x3 0011 032e | . | Declare_Type Record,Defined,Visible 0012 00e3 | | Load_Encached Natural_Cache 0013 0401 | | Execute_Immediate Set_Value_Visible_Unchecked,0x1 0014 00d9 | | Load_Top At_Offset_1 0015 0321 | ! | Declare_Variable Record,Visible 0016 00d8 | | Load_Top At_Offset_0 0017 1c00 | | Execute_Immediate Run_Utility,0x0 0018 e001 | | Load 0x0,0x1 0019 1b0d | | Execute Package,Field_Read,Field_Number 0xd 001a 0321 | ! | Declare_Variable Record,Visible 001b 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated 001d 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated 001f 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated 0021 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated 0023 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated 0025 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated 0027 00bf | | Action Accept_Activation 0028 e002 | | Load 0x0,0x2 0029 e003 | | Load 0x0,0x3 002a e20d | | Load 0x1,0xd 002b 0092 0128 | (| Action Push_String_Extended,0x128 ; "NUMBERS " 002d e001 | | Load 0x0,0x1 002e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 002f 01c7 | | Execute Vector,Convert 0030 48c8 |H | Short_Literal 0xc8 0031 e001 | | Load 0x0,0x1 0032 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 0033 190f | | Execute Package,Field_Reference,Field_Number 0xf 0034 e001 | | Load 0x0,0x1 0035 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0036 0387 | | Declare_Variable Package 0037 00d8 | | Load_Top At_Offset_0 0038 020f | | Execute Module,Activate 0039 029d 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call 003b 029d 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call 003d e001 | | Load 0x0,0x1 003e 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 003f 1914 | | Execute Package,Field_Reference,Field_Number 0x14 0040 00c6 | | Action Check_Subprogram_Elaborated 0041 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0042 e004 | | Load 0x0,0x4 0043 e005 | | Load 0x0,0x5 0044 4800 |H | Short_Literal 0x0 0045 0007 | | Action Break_Optional 0046 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0047 00c7 | | Action Elaborate_Subprogram 0048 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0049 00c7 | | Action Elaborate_Subprogram 004a 1d13 | | Execute_Immediate Reference_Lex_1,0x13 004b 00c7 | | Action Elaborate_Subprogram 004c e001 | | Load 0x0,0x1 004d 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 004e 1931 | 1 | Execute Package,Field_Reference,Field_Number 0x31 004f 00c6 | | Action Check_Subprogram_Elaborated 0050 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0051 e006 | | Load 0x0,0x6 0052 e007 | | Load 0x0,0x7 0053 4800 |H | Short_Literal 0x0 0054 0007 | | Action Break_Optional 0055 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0056 00c7 | | Action Elaborate_Subprogram 0057 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0058 00c7 | | Action Elaborate_Subprogram 0059 1d16 | | Execute_Immediate Reference_Lex_1,0x16 005a 00c7 | | Action Elaborate_Subprogram 005b BODY_0008: 005b 00bc | | Action Signal_Activated 005c 00bb | | Action Signal_Completion 005d 0000 0000 | | .XXX[0x3] 005f 0000 | | 0060 ; -------------------------------------------------------------------------------------- 0060 ; SUBPROGRAM 0060 ; -------------------------------------------------------------------------------------- 0060 0063 | c | .CONST 0x0063 ; Address of begin 0061 0004 | | .CONST 0x0004 ; Address of exception handler 0062 0001 | | .CONST 0x0001 ; Number of locals 0063 BODY_0060: 0063 INIT_0060: 0063 00da | | Load_Top At_Offset_2 0064 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0065 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0066 e001 | | Load 0x0,0x1 0067 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 0068 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0069 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 006a 0000 0000 | | .BLANK 0000[0x6] 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 e210 | | Load 0x1,0x10 0074 e217 | | Load 0x1,0x17 0075 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0076 e20f | | Load 0x1,0xf 0077 017d | } | Execute Record,Structure_Write 0078 e20f | | Load 0x1,0xf 0079 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 007a e20f | | Load 0x1,0xf 007b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 007c 027f | | Execute Discrete,Equal 007d 00ca | | Action Exit_Nullary_Function 007e 0000 0000 | | .XXX[0x2] 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 e20f | | Load 0x1,0xf 0084 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0085 0a01 | | Execute_Immediate Plus,0x1 0086 e20f | | Load 0x1,0xf 0087 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0088 e20f | | Load 0x1,0xf 0089 e217 | | Load 0x1,0x17 008a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 008b e210 | | Load 0x1,0x10 008c 017d | } | Execute Record,Structure_Write 008d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 008e 0000 0000 | | .XXX[0x2] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0093 | | .CONST 0x0093 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0001 | | .CONST 0x0001 ; Number of locals 0093 BODY_0090: 0093 INIT_0090: 0093 e217 | | Load 0x1,0x17 0094 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0095 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 0096 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 0097 e001 | | Load 0x0,0x1 0098 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 0099 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 009a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 009b 0000 0000 | | .BLANK 0000[0x5] 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00a3 | | .CONST 0x00a3 ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0001 | | .CONST 0x0001 ; Number of locals 00a3 BODY_00a0: 00a3 INIT_00a0: 00a3 0092 0129 | )| Action Push_String_Extended,0x129 ; " " 00a5 e001 | | Load 0x0,0x1 00a6 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00a7 0092 012a | *| Action Push_String_Extended,0x12a ; "Resultat factoriel: " 00a9 e001 | | Load 0x0,0x1 00aa 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00ab e217 | | Load 0x1,0x17 00ac 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00ad 8211 | | Call 0x1,0x11 00ae e210 | | Load 0x1,0x10 00af 017d | } | Execute Record,Structure_Write 00b0 e210 | | Load 0x1,0x10 00b1 e217 | | Load 0x1,0x17 00b2 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00b3 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00b4 e001 | | Load 0x0,0x1 00b5 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00b6 0092 0129 | )| Action Push_String_Extended,0x129 ; " " 00b8 e001 | | Load 0x0,0x1 00b9 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00ba 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00bb 0000 0000 | | .BLANK 0000[0x5] 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 4807 |H | Short_Literal 0x7 00c4 e20f | | Load 0x1,0xf 00c5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00c6 4801 |H | Short_Literal 0x1 00c7 a20e | | Store_Unchecked 0x1,0xe 00c8 e20f | | Load 0x1,0xf 00c9 e217 | | Load 0x1,0x17 00ca 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00cb e210 | | Load 0x1,0x10 00cc 017d | } | Execute Record,Structure_Write 00cd 0092 0129 | )| Action Push_String_Extended,0x129 ; " " 00cf e001 | | Load 0x0,0x1 00d0 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00d1 0092 012b | +| Action Push_String_Extended,0x12b ; " Calcul de factorielle de : " 00d3 e001 | | Load 0x0,0x1 00d4 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00d5 e20f | | Load 0x1,0xf 00d6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00d7 e001 | | Load 0x0,0x1 00d8 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00d9 0092 012c | ,| Action Push_String_Extended,0x12c ; " ... " 00db e001 | | Load 0x0,0x1 00dc 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00dd 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00de 0000 0000 | | .XXX[0x2] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00e7 | | .CONST 0x00e7 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0002 | | .CONST 0x0002 ; Number of locals 00e3 INIT_00e0: 00e3 e20d | | Load 0x1,0xd 00e4 0322 | " | Declare_Variable Record 00e5 00d8 | | Load_Top At_Offset_0 00e6 1c00 | | Execute_Immediate Run_Utility,0x0 00e7 BODY_00e0: 00e7 00db | | Load_Top At_Offset_3 00e8 e217 | | Load 0x1,0x17 00e9 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00ea 00d9 | | Load_Top At_Offset_1 00eb 017d | } | Execute Record,Structure_Write 00ec e20e | | Load 0x1,0xe 00ed 00d9 | | Load_Top At_Offset_1 00ee 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00ef 0271 | q | Execute Discrete,Times 00f0 c20e | | Store 0x1,0xe 00f1 e20e | | Load 0x1,0xe 00f2 00d9 | | Load_Top At_Offset_1 00f3 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00f4 00d8 | | Load_Top At_Offset_0 00f5 e5ff | | Load 0x2,-0x1 00f6 e217 | | Load 0x1,0x17 00f7 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 00f8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00f9 0000 0000 | | .BLANK 0000[0x7] 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0103 | | .CONST 0x0103 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0001 | | .CONST 0x0001 ; Number of locals 0103 BODY_0100: 0103 INIT_0100: 0103 00da | | Load_Top At_Offset_2 0104 e217 | | Load 0x1,0x17 0105 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0106 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0107 e5fe | | Load 0x2,-0x2 0108 e217 | | Load 0x1,0x17 0109 1820 | | Execute Package,Field_Execute,Field_Number 0x20 010a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 010b 027d | } | Execute Discrete,Greater 010c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 010d 0000 0000 | | .XXX[0x3] 010f 0000 | | 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 4608 |F | Jump_Case 0x9 0114 7808 |x | Jump 0x11d ; case 0x0 0115 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0116 7810 |x | Jump 0x127 ; case 0x2 0117 780f |x | Jump 0x127 ; case 0x3 0118 780e |x | Jump 0x127 ; case 0x4 0119 780d |x | Jump 0x127 ; case 0x5 011a 780c |x | Jump 0x127 ; case 0x6 011b 780b |x | Jump 0x127 ; case 0x7 011c 780a |x | Jump 0x127 ; case 0x8 011d 4801 |H | Short_Literal 0x1 011e 00db | | Load_Top At_Offset_3 011f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0120 4801 |H | Short_Literal 0x1 0121 00db | | Load_Top At_Offset_3 0122 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0123 4801 |H | Short_Literal 0x1 0124 00db | | Load_Top At_Offset_3 0125 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0126 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0127 0869 | i | Execute_Immediate Raise,0x69 0128 ; -------------------------------------------------------------------------------------- 0128 ; STRING TABLE 0128 ; -------------------------------------------------------------------------------------- 0128 000c | | .STRTAB 0x000c->0x012e ; "NUMBERS " 0129 0014 | | .STRTAB 0x0014->0x0133 ; " " 012a 0013 | | .STRTAB 0x0013->0x0133 ; "Resultat factoriel: " 012b 0025 | % | .STRTAB 0x0025->0x013d ; " Calcul de factorielle de : " 012c 003f | ? | .STRTAB 0x003f->0x014b ; " ... " 012d 0042 | B | .STREND 0x0042->0x014e 012e 4e55 4d42 |NUMB| .STRTAB_STRINGS 014e 0000 0000 | | .XXX[0x2] 0150 ; -------------------------------------------------------------------------------------- 0150 ; Debug Table 0150 ; -------------------------------------------------------------------------------------- 0150 0004 0001 | | .DEBUG4 0x0004,0x0001,0x64ee,0x0000,0x0001,0x000b 0156 000b 0182 | | .DBG4T 0x000b,0x0182,0x8000,0x0000 015a 0028 018e | ( | .DBG4T 0x0028,0x018e,0x8000,0x0000 015e 0063 019b | c | .DBG4T 0x0063,0x019b,0x0002,0x0000 0162 0073 019e | s | .DBG4T 0x0073,0x019e,0x0002,0x0000 0166 0083 01a2 | | .DBG4T 0x0083,0x01a2,0x0001,0x0000 016a 0093 01a6 | | .DBG4T 0x0093,0x01a6,0x0001,0x0000 016e 00a3 01a9 | | .DBG4T 0x00a3,0x01a9,0x0001,0x0000 0172 00c3 01b0 | | .DBG4T 0x00c3,0x01b0,0x0001,0x0000 0176 00e3 01b9 | | .DBG4T 0x00e3,0x01b9,0x0001,0x0000 017a 0103 01c0 | | .DBG4T 0x0103,0x01c0,0x0002,0x0000 017e 0113 0000 | | .DBG4T 0x0113,0x0000,0x0005,0x0000 0182 ; -------------------------------------------------------------------------------------- 0182 ; Debug chain 0182 ; -------------------------------------------------------------------------------------- 0182 000a 0000 | | .DBGLEN 0x000a,0x0000 0184 000b 0012 | | .DBGLNO 0x000b,0x0012,0x0014,0x0018,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025 018e ; -------------------------------------------------------------------------------------- 018e ; Debug chain 018e ; -------------------------------------------------------------------------------------- 018e 000b 0000 | | .DBGLEN 0x000b,0x0000 0190 0028 0039 | ( 9| .DBGLNO 0x0028,0x0039,0x003b,0x003d,0x0046,0x0048,0x004a,0x004c,0x0055,0x0057,0x0059 019b ; -------------------------------------------------------------------------------------- 019b ; Debug chain 019b ; -------------------------------------------------------------------------------------- 019b 0000 0001 | | .DBGLEN 0x0000,0x0001 019d 0063 | c | .DBGLNO 0x0063 019e ; -------------------------------------------------------------------------------------- 019e ; Debug chain 019e ; -------------------------------------------------------------------------------------- 019e 0000 0002 | | .DBGLEN 0x0000,0x0002 01a0 0073 0078 | s x| .DBGLNO 0x0073,0x0078 01a2 ; -------------------------------------------------------------------------------------- 01a2 ; Debug chain 01a2 ; -------------------------------------------------------------------------------------- 01a2 0000 0002 | | .DBGLEN 0x0000,0x0002 01a4 0083 0088 | | .DBGLNO 0x0083,0x0088 01a6 ; -------------------------------------------------------------------------------------- 01a6 ; Debug chain 01a6 ; -------------------------------------------------------------------------------------- 01a6 0000 0001 | | .DBGLEN 0x0000,0x0001 01a8 0093 | | .DBGLNO 0x0093 01a9 ; -------------------------------------------------------------------------------------- 01a9 ; Debug chain 01a9 ; -------------------------------------------------------------------------------------- 01a9 0000 0005 | | .DBGLEN 0x0000,0x0005 01ab 00a3 00a7 | | .DBGLNO 0x00a3,0x00a7,0x00ab,0x00b0,0x00b6 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; Debug chain 01b0 ; -------------------------------------------------------------------------------------- 01b0 0000 0007 | | .DBGLEN 0x0000,0x0007 01b2 00c3 00c6 | | .DBGLNO 0x00c3,0x00c6,0x00c8,0x00cd,0x00d1,0x00d5,0x00d9 01b9 ; -------------------------------------------------------------------------------------- 01b9 ; Debug chain 01b9 ; -------------------------------------------------------------------------------------- 01b9 0001 0004 | | .DBGLEN 0x0001,0x0004 01bb 00e3 00e7 | | .DBGLNO 0x00e3,0x00e7,0x00ec,0x00f1,0x00f4 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; Debug chain 01c0 ; -------------------------------------------------------------------------------------- 01c0 0000 0001 | | .DBGLEN 0x0000,0x0001 01c2 0103 | | .DBGLNO 0x0103 01c3 0000 0000 | | .BLANK 0000[0x3d]