|
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_0df8e0
└─⟦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,0xcee8,0x0000,0x0001,0x0000 00e6 9dee 6a16 | j | .XXX[0x53] 00e8 1497 8400 | | 00ea 0000 000b | | 00ec 4000 0000 |@ | 00ee 0000 0000 | | 00f0 0099 8905 | | 00f2 249f 2000 |$ | 00f4 0000 525c | R\| 00f6 dc14 92ce | | 00f8 8000 0000 | | 00fa 0000 0000 | | 00fc 0106 5b00 | [ | 00fe 0000 0000 | | 0100 0000 a4c1 | | 0102 ac29 3318 | )3 | 0104 0a4c ddc0 | L | 0106 0053 3120 | S1 | 0108 a4bf 1c00 | | 010a 0000 0a4c | L| 010c 43c2 932a |C *| 010e 1000 0000 | | 0110 0001 3312 | 3 | 0112 0a4c 1ac0 | L | 0114 0000 00a4 | | 0116 d228 2932 | ()2| 0118 2a00 0000 |* | 011a 0000 13b1 | | 011c 70a4 d228 |p (| 011e 0000 0000 | | 0120 2806 0033 |( 3| 0122 d427 62e1 | 'b | 0124 4988 7800 |I x | 0126 0000 02bc | | 0128 0c02 b2d4 | | 012a cec5 c293 | | 012c 06b0 0000 | | 012e 0007 a018 | | 0130 05d2 1884 | | 0132 4985 25f8 |I % | 0134 e000 0000 | | 0136 0000 011d | | 0138 8d00 | | 0139 0000 0000 | | .BLANK 0000[0x6] 013f 9a85 8526 | &| .XXX[0x52] 0141 9140 0000 | @ | 0143 0002 d000 | | 0145 0000 0000 | | 0147 0000 0026 | &| 0149 6241 4988 |bAI | 014b 7800 0000 |x | 014d 1499 f805 | | 014f 2636 6000 |&6` | 0151 0000 0000 | | 0153 0000 0041 | A| 0155 96c0 0000 | | 0157 0000 0000 | | 0159 2935 ed0a |)5 | 015b 4e26 8293 |N& | 015d 8f90 0014 | | 015f cc48 2935 | H)5| 0161 4900 0000 |I | 0163 0293 6910 | i | 0165 a4e0 8c00 | | 0167 0000 0000 | | 0169 4cc4 8293 |L | 016b 5ed0 0000 |^ | 016d 0029 3a0c | ): | 016f 0a4d eb00 | M | 0171 0000 0000 | | 0173 04ec 5c29 | \)| 0175 3a0c 0000 |: | 0177 0000 0a01 | | 0179 800c f509 | | 017b d8b8 526d | Rm| 017d 2200 0000 |" | 017f 00af 0300 | | 0181 acb5 33b1 | 3 | 0183 70a4 d7b4 |p | 0185 0000 0001 | | 0187 e806 0174 | t| 0189 8621 1261 | ! a| 018b 49aa 4800 |I H | 018d 0000 0000 | | 018f 0047 6340 | Gc@| 0191 0000 0000 | | .BLANK 0000[0x6] 0197 26a1 6149 |& aI| .XXX[0x64] 0199 d060 0000 | ` | 019b 0000 b400 | | 019d 0000 0000 | | 019f 0000 0009 | | 01a1 9890 526d | Rm| 01a3 2200 0000 |" | 01a5 0527 2e41 | '.A| 01a7 49b9 a800 |I | 01a9 0000 0000 | | 01ab 0000 0010 | | 01ad 65b0 0000 |e | 01af 0029 3f1f | )? | 01b1 0a4e dbc2 | N | 01b3 93ec 00a4 | | 01b5 fe7c 0003 | | | 01b7 3312 0a4e |3 N| 01b9 b2c0 0000 | | 01bb 00a5 0a88 | | 01bd 293c 8a00 |)< | 01bf 0000 0000 | | 01c1 13b1 70a5 | p | 01c3 0a88 0000 | | 01c5 0001 5e0b | ^ | 01c7 0033 d427 | 3 '| 01c9 62e1 49db |b I | 01cb 7800 0000 |x | 01cd 03d4 1600 | | 01cf c61e c0ea | | 01d1 4293 ec00 |B | 01d3 0000 0029 | )| 01d5 3d7a 0a4f |=z O| 01d7 7c67 62e1 ||gb | 01d9 49e8 0800 |I | 01db 0000 00c8 | | 01dd 0000 0000 | | 01df 4d42 c293 |MB | 01e1 d010 0000 | | 01e3 0006 6010 | ` | 01e5 02f9 3100 | 1 | 01e7 0528 0310 | ( | 01e9 0000 0029 | )| 01eb 3d01 8449 |= I| 01ed 8527 5960 | 'Y`| 01ef 0000 0052 | R| 01f1 7d17 0760 |} `| 01f3 5a00 0000 |Z | 01f5 3fff c001 |? | 01f7 49ef 8800 |I | 01f9 0001 1d8d | | 01fb 0000 0000 | | .BLANK 0000[0x5]