|
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_0f80a5
└─⟦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 00e0 | | .CONST 0x00e0 ; 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 8000 | | .CONST 0x8000 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 002e | . | .CONST 0x002e ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0015 | | .CONST 0x0015 ; Number of locals 000b INIT_0008: 000b 029a 0033 | 3| Declare_Subprogram INIT_0030,For_Outer_Call,Visible,Unelaborated 000d 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated 000f 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated 0011 00bf | | Action Accept_Activation 0012 00e9 | | Load_Encached String_Cache 0013 02a0 | | Declare_Subprogram Null_Subprogram 0014 4818 |H | Short_Literal 0x18 0015 03d3 | | Declare_Type Access,Defined,Accesses_Protected 0016 4803 |H | Short_Literal 0x3 0017 032a | * | Declare_Type Record,Incomplete 0018 00d8 | | Load_Top At_Offset_0 0019 02a0 | | Declare_Subprogram Null_Subprogram 001a 4818 |H | Short_Literal 0x18 001b 03d3 | | Declare_Type Access,Defined,Accesses_Protected 001c e210 | | Load 0x1,0x10 001d 00d8 | | Load_Top At_Offset_0 001e e212 | | Load 0x1,0x12 001f 02a0 | | Declare_Subprogram Null_Subprogram 0020 e211 | | Load 0x1,0x11 0021 0326 | & | Complete_Type Record,By_Defining 0022 e210 | | Load 0x1,0x10 0023 0007 | | Action Break_Optional 0024 e212 | | Load 0x1,0x12 0025 0007 | | Action Break_Optional 0026 00d8 | | Load_Top At_Offset_0 0027 0007 | | Action Break_Optional 0028 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0029 00c7 | | Action Elaborate_Subprogram 002a 1d0e | | Execute_Immediate Reference_Lex_1,0xe 002b 00c7 | | Action Elaborate_Subprogram 002c 1d0f | | Execute_Immediate Reference_Lex_1,0xf 002d 00c7 | | Action Elaborate_Subprogram 002e BODY_0008: 002e 00bc | | Action Signal_Activated 002f 00bb | | Action Signal_Completion 0030 ; -------------------------------------------------------------------------------------- 0030 ; SUBPROGRAM 0030 ; -------------------------------------------------------------------------------------- 0030 0033 | 3 | .CONST 0x0033 ; Address of begin 0031 0004 | | .CONST 0x0004 ; Address of exception handler 0032 0001 | | .CONST 0x0001 ; Number of locals 0033 BODY_0030: 0033 INIT_0030: 0033 e5ff | | Load 0x2,-0x1 0034 e210 | | Load 0x1,0x10 0035 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0036 a213 | | Store_Unchecked 0x1,0x13 0037 e212 | | Load 0x1,0x12 0038 a215 | | Store_Unchecked 0x1,0x15 0039 e212 | | Load 0x1,0x12 003a a214 | | Store_Unchecked 0x1,0x14 003b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 003c 0000 0000 | | .BLANK 0000[0x4] 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 e211 | | Load 0x1,0x11 0044 0322 | " | Declare_Variable Record 0045 e5ff | | Load 0x2,-0x1 0046 e210 | | Load 0x1,0x10 0047 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0048 e402 | | Load 0x2,0x2 0049 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 004a e5fe | | Load 0x2,-0x2 004b e210 | | Load 0x1,0x10 004c 03b6 | | Declare_Variable Access,By_Allocation,With_Value 004d e402 | | Load 0x2,0x2 004e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 004f e215 | | Load 0x1,0x15 0050 e402 | | Load 0x2,0x2 0051 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0052 e212 | | Load 0x1,0x12 0053 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0054 a215 | | Store_Unchecked 0x1,0x15 0055 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0056 0000 0000 | | .XXX[0x2] 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 006f | o | .CONST 0x006f ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 000b | | .CONST 0x000b ; Number of locals 005b INIT_0058: 005b 00e2 | | Load_Encached Integer_Cache 005c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 005d 00e2 | | Load_Encached Integer_Cache 005e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 005f 00e2 | | Load_Encached Integer_Cache 0060 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0061 00e1 | | Load_Encached Boolean_Cache 0062 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0063 00e2 | | Load_Encached Integer_Cache 0064 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0065 00e2 | | Load_Encached Integer_Cache 0066 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0067 e212 | | Load 0x1,0x12 0068 0007 | | Action Break_Optional 0069 0092 00d5 | | Action Push_String_Extended,0xd5 ; " (" 006b 0092 00d6 | | Action Push_String_Extended,0xd6 ; " => " 006d 029f 008b | | Declare_Subprogram INIT_0088,For_Call 006f BODY_0058: 006f e213 | | Load 0x1,0x13 0070 0227 | ' | Execute Access,All_Reference 0071 01db | | Execute Vector,Length 0072 c403 | | Store 0x2,0x3 0073 e213 | | Load 0x1,0x13 0074 0227 | ' | Execute Access,All_Reference 0075 e001 | | Load 0x0,0x1 0076 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 0077 e215 | | Load 0x1,0x15 0078 7005 |p | Jump_Nonzero 0x7e 0079 0092 00d7 | | Action Push_String_Extended,0xd7 ; ";" 007b e001 | | Load 0x0,0x1 007c 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 007d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 007e e409 | | Load 0x2,0x9 007f e001 | | Load 0x0,0x1 0080 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 0081 4801 |H | Short_Literal 0x1 0082 e215 | | Load 0x1,0x15 0083 840b | | Call 0x2,0xb 0084 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0085 0000 0000 | | .XXX[0x3] 0087 0000 | | 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 008b | | .CONST 0x008b ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0001 | | .CONST 0x0001 ; Number of locals 008b BODY_0088: 008b INIT_0088: 008b e7ff | | Load 0x3,-0x1 008c 0227 | ' | Execute Access,All_Reference 008d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 008e 0227 | ' | Execute Access,All_Reference 008f 01db | | Execute Vector,Length 0090 e404 | | Load 0x2,0x4 0091 027d | } | Execute Discrete,Greater 0092 680d |h | Jump_Zero 0xa0 0093 e7ff | | Load 0x3,-0x1 0094 0227 | ' | Execute Access,All_Reference 0095 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0096 0227 | ' | Execute Access,All_Reference 0097 01db | | Execute Vector,Length 0098 c404 | | Store 0x2,0x4 0099 e403 | | Load 0x2,0x3 009a 0a03 | | Execute_Immediate Plus,0x3 009b c406 | | Store 0x2,0x6 009c e406 | | Load 0x2,0x6 009d e404 | | Load 0x2,0x4 009e 0273 | s | Execute Discrete,Plus 009f c407 | | Store 0x2,0x7 00a0 e7ff | | Load 0x3,-0x1 00a1 0227 | ' | Execute Access,All_Reference 00a2 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00a3 6805 |h | Jump_Zero 0xa9 00a4 4800 |H | Short_Literal 0x0 00a5 e7ff | | Load 0x3,-0x1 00a6 0227 | ' | Execute Access,All_Reference 00a7 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00a8 840b | | Call 0x2,0xb 00a9 e406 | | Load 0x2,0x6 00aa 00d8 | | Load_Top At_Offset_0 00ab e001 | | Load 0x0,0x1 00ac 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00ad 0260 | ` | Execute Discrete,In_Type 00ae 7001 |p | Jump_Nonzero 0xb0 00af 0801 | | Execute_Immediate Raise,0x1 00b0 e001 | | Load 0x0,0x1 00b1 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 00b2 e7ff | | Load 0x3,-0x1 00b3 0227 | ' | Execute Access,All_Reference 00b4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00b5 0227 | ' | Execute Access,All_Reference 00b6 e001 | | Load 0x0,0x1 00b7 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 00b8 e407 | | Load 0x2,0x7 00b9 00d8 | | Load_Top At_Offset_0 00ba e001 | | Load 0x0,0x1 00bb 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00bc 0260 | ` | Execute Discrete,In_Type 00bd 7001 |p | Jump_Nonzero 0xbf 00be 0801 | | Execute_Immediate Raise,0x1 00bf e001 | | Load 0x0,0x1 00c0 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 00c1 e40a | | Load 0x2,0xa 00c2 e7ff | | Load 0x3,-0x1 00c3 0227 | ' | Execute Access,All_Reference 00c4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00c5 0227 | ' | Execute Access,All_Reference 00c6 01cc | | Execute Vector,Catenate 00c7 e001 | | Load 0x0,0x1 00c8 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 00c9 e7fe | | Load 0x3,-0x2 00ca 6805 |h | Jump_Zero 0xd0 00cb 0092 00d8 | | Action Push_String_Extended,0xd8 ; ");" 00cd e001 | | Load 0x0,0x1 00ce 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 00cf 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00d0 0092 00d9 | | Action Push_String_Extended,0xd9 ; "," 00d2 e001 | | Load 0x0,0x1 00d3 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 00d4 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00d5 ; -------------------------------------------------------------------------------------- 00d5 ; STRING TABLE 00d5 ; -------------------------------------------------------------------------------------- 00d5 000c | | .STRTAB 0x000c->0x00db ; " (" 00d6 000c | | .STRTAB 0x000c->0x00dc ; " => " 00d7 000e | | .STRTAB 0x000e->0x00de ; ";" 00d8 000d | | .STRTAB 0x000d->0x00de ; ");" 00d9 000d | | .STRTAB 0x000d->0x00df ; "," 00da 000c | | .STREND 0x000c->0x00e0 00db 2028 203d | ( =| .STRTAB_STRINGS 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; Debug Table 00e0 ; -------------------------------------------------------------------------------------- 00e0 0004 000e | | .DEBUG4 0x0004,0x000e,0xd0d2,0x0000,0x0001,0x0000 00e6 0000 0000 | | .BLANK 0000[0xa] 00f0 0007 c59f | | .XXX[0x7] 00f2 6007 c5e8 |` | 00f4 6020 012c |` ,| 00f6 9c00 | | 00f7 0000 0000 | | .BLANK 0000[0xc] 0103 7c5c 3e00 ||\> | .XXX[0x6] 0105 a813 2802 | ( | 0107 0012 c540 | @| 0109 0000 0000 | | .BLANK 0000[0xc] 0115 0a81 3280 | 2 | .XXX[0x7] 0117 07c6 3160 | 1`| 0119 2001 0b7f | | 011b 922c | , | 011c 0000 0000 | | .BLANK 0000[0xb] 0127 007c 60ce | |` | .XXX[0x8] 0129 007c 655e | |e^| 012b 0200 0a40 | @| 012d 08a9 8000 | | 012f 0000 0000 | | .BLANK 0000[0xa] 0139 0007 c631 | 1| .XXX[0x7] 013b 6007 c67a |` z| 013d 6020 012c |` ,| 013f 9c00 | | 0140 0000 0000 | | .BLANK 0000[0xc] 014c 7c65 5e00 ||e^ | .XXX[0x6] 014e a830 d002 | 0 | 0150 0012 c540 | @| 0152 0000 0000 | | .BLANK 0000[0xc] 015e 0a83 0d00 | | .XXX[0x7] 0160 07c6 c360 | `| 0162 2001 0b7f | | 0164 923c | < | 0165 0000 0000 | | .BLANK 0000[0xb] 0170 007c 69ee | |i | .XXX[0x8] 0172 007c 6e7e | |n~| 0174 0200 0a40 | @| 0176 089b c000 | | 0178 0000 0000 | | .BLANK 0000[0xa] 0182 0007 c6c3 | | .XXX[0xe] 0184 6007 c70c |` | 0186 6020 010b |` | 0188 0091 e400 | | 018a 0001 0000 | | 018c 0000 7a02 | z | 018e 4791 5000 |G P | 0190 0000 0000 | | .BLANK 0000[0x5] 0195 7c6e 7e00 ||n~ | .XXX[0xd] 0197 7c73 0e02 ||s | 0199 0010 b009 | | 019b 1ec0 0000 | | 019d 1000 0000 | | 019f 07a0 247b | ${| 01a1 1400 | | 01a2 0000 0000 | | .BLANK 0000[0x5] 01a7 07c7 0c60 | `| .XXX[0x7] 01a9 07c7 5560 | U`| 01ab 2000 a400 | | 01ad 89bc | | 01ae 0000 0000 | | .BLANK 0000[0xb] 01b9 007c 730e | |s | .XXX[0xd] 01bb 007c 779e | |w | 01bd 0200 10b0 | | 01bf 091e 4000 | @ | 01c1 0010 0000 | | 01c3 0007 a024 | $| 01c5 7915 |y | 01c6 0000 0000 | | .BLANK 0000[0x5] 01cb 0007 c755 | U| .XXX[0xe] 01cd 6007 c79e |` | 01cf 6020 010b |` | 01d1 0091 ec00 | | 01d3 0001 0000 | | 01d5 0000 7a02 | z | 01d7 47b1 1000 |G | 01d9 0000 0000 | | .BLANK 0000[0x5] 01de 7c77 9e00 ||w | .XXX[0x7] 01e0 7c7c 2e02 |||. | 01e2 000a 4008 | @ | 01e4 9700 | | 01e5 0000 0000 | | .BLANK 0000[0xb] 01f0 07c7 9e60 | `| .XXX[0x10] 01f2 07c7 e760 | `| 01f4 2001 0b00 | | 01f6 91e4 0000 | | 01f8 0100 0000 | | 01fa 007a 0247 | z G| 01fc 91c0 0000 | | 01fe 0000 0000 | |