|
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_03b8fe
└─⟦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 000d | | .DEBUG4 0x0004,0x000d,0xec51,0x0000,0x0001,0x0000 00e6 0000 0090 | | .XXX[0x28] 00e8 0007 fd80 | | 00ea 0000 0030 | 0| 00ec 0000 0000 | | 00ee 0005 4438 | D8| 00f0 0000 4b60 | K`| 00f2 0002 6c2c | l,| 00f4 0000 0048 | H| 00f6 0003 fed0 | | 00f8 0000 0018 | | 00fa 0000 0000 | | 00fc 0000 0002 | | 00fe 0000 0d02 | | 0100 0048 c000 | H | 0102 0000 4000 | @ | 0104 0004 1491 | | 0106 5410 5254 |T RT| 0108 97d1 1254 | T| 010a 9150 d513 | P | 010c d496 4000 | @ | 010e 0000 0000 | | .BLANK 0000[0x5] 0113 0400 001a | | .XXX[0xed] 0115 0401 3400 | 4 | 0117 0003 de00 | | 0119 0000 2290 | " | 011b a1a7 a6a6 | | 011d a0a7 2229 | ")| 011f 9729 aca9 | ) | 0121 aa22 a6af | " | 0123 a6a0 a4a7 | | 0125 2a22 a720 |*" | 0127 a721 a297 | ! | 0129 2922 ab18 |)" | 012b 98af 989a | | 012d 2fa9 a822 |/ "| 012f a197 2aa7 | * | 0131 24aa 2997 |$ ) | 0133 2922 a820 |)" | 0135 a4a9 2fa1 | / | 0137 a3af a0aa | | 0139 2a29 2993 |*)) | 013b a9a8 22a1 | " | 013d c000 01a0 | | 013f 4005 c000 |@ | 0141 0000 0800 | | 0143 0000 7a92 | z | 0145 2a82 0a4a |* J| 0147 92fa 1a3a | :| 0149 fa0a a2a2 | | 014b 929c 0000 | | 014d 1a04 0168 | h| 014f 0000 03d7 | | 0151 8000 0029 | )| 0153 10a1 a7a6 | | 0155 a6a0 a722 | "| 0157 2997 29ac |) ) | 0159 a9aa 22a6 | " | 015b afa6 a0a4 | | 015d a72a 22a7 | *" | 015f 20a7 21a2 | ! | 0161 9729 22ab | )" | 0163 1898 af98 | | 0165 9a2f a9a8 | / | 0167 22a1 972a |" *| 0169 a724 aa29 | $ )| 016b 9729 22a3 | )" | 016d 2922 a9a4 |)" | 016f 2faa 22a9 |/ " | 0171 26a4 a720 |& | 0173 a62f a4a7 | / | 0175 2327 a926 |#' &| 0177 a0aa 24a7 | $ | 0179 a713 a9a8 | | 017b 22a1 c000 |" | 017d 01a0 4009 | @ | 017f 0000 0000 | | 0181 0800 0000 | | 0183 e292 2a32 | *2| 0185 922a 9a42 | * B| 0187 faa2 2a92 | * | 0189 6a4a 720a |jJr | 018b 62fa 4a72 |b Jr| 018d 327a 926a |2z j| 018f 0aa2 4a7a | Jz| 0191 7400 001a |t | 0193 0401 4400 | D | 0195 0003 dc00 | | 0197 0000 2490 | $ | 0199 a1a7 a6a6 | | 019b a0a7 2229 | ")| 019d 9729 aca9 | ) | 019f aa22 a6af | " | 01a1 a6a0 a4a7 | | 01a3 2a22 a720 |*" | 01a5 a721 a297 | ! | 01a7 2922 ab18 |)" | 01a9 98af 989a | | 01ab 2fa9 a822 |/ "| 01ad a197 2aa7 | * | 01af 24aa 2997 |$ ) | 01b1 26a7 a724 |& $| 01b3 aa27 a92f | ' /| 01b5 a822 a923 | " #| 01b7 27a9 26a0 |' & | 01b9 a721 a293 | ! | 01bb a9a8 22a1 | " | 01bd c000 01a0 | | 01bf 4006 c000 |@ | 01c1 0000 0800 | | 01c3 0000 9a6a | j| 01c5 7a72 4aa2 |zrJ | 01c7 7a92 fa82 |z | 01c9 2a92 327a |* 2z| 01cb 926a 0a72 | j r| 01cd 1a2c 0000 | , | 01cf 1a04 0150 | P| 01d1 0000 03da | | 01d3 8000 0026 | &| 01d5 10a1 a7a6 | | 01d7 a6a0 a722 | "| 01d9 2997 29ac |) ) | 01db a9aa 22a6 | " | 01dd afa6 a0a4 | | 01df a72a 22a7 | *" | 01e1 20a7 21a2 | ! | 01e3 9729 22ab | )" | 01e5 1898 af98 | | 01e7 9a2f a9a8 | / | 01e9 22a1 972a |" *| 01eb a724 aa29 | $ )| 01ed 9724 a6a0 | $ | 01ef a3a2 afaa | | 01f1 2922 a2af |)" | 01f3 a1a7 a729 | )| 01f5 a4a9 aa22 | "| 01f7 a721 ac93 | ! | 01f9 a9a8 22a1 | " | 01fb c000 01a0 | | 01fd 4007 8000 |@ | 01ff 0000 | |