|
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_6a18da
└─⟦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 0190 | | .CONST 0x0190 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0039 | 9 | .CONST 0x0039 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0018 | | .CONST 0x0018 ; Number of locals 000b INIT_0008: 000b 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated 000d 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated 000f 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated 0011 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated 0013 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated 0015 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated 0017 00c4 | | Action Make_Default 0018 00c4 | | Action Make_Default 0019 00c4 | | Action Make_Default 001a 00c4 | | Action Make_Default 001b 00c4 | | Action Make_Default 001c 00c4 | | Action Make_Default 001d 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated 001f c215 | | Store 0x1,0x15 0020 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated 0022 c217 | | Store 0x1,0x17 0023 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated 0025 c218 | | Store 0x1,0x18 0026 00bf | | Action Accept_Activation 0027 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0028 00c7 | | Action Elaborate_Subprogram 0029 1d0e | | Execute_Immediate Reference_Lex_1,0xe 002a 00c7 | | Action Elaborate_Subprogram 002b 1d0f | | Execute_Immediate Reference_Lex_1,0xf 002c 00c7 | | Action Elaborate_Subprogram 002d 1d10 | | Execute_Immediate Reference_Lex_1,0x10 002e 00c7 | | Action Elaborate_Subprogram 002f 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0030 00c7 | | Action Elaborate_Subprogram 0031 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0032 00c7 | | Action Elaborate_Subprogram 0033 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0034 00c7 | | Action Elaborate_Subprogram 0035 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0036 00c7 | | Action Elaborate_Subprogram 0037 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0038 00c7 | | Action Elaborate_Subprogram 0039 BODY_0008: 0039 00bc | | Action Signal_Activated 003a 00bb | | Action Signal_Completion 003b 0000 0000 | | .BLANK 0000[0x5] 0040 ; -------------------------------------------------------------------------------------- 0040 ; SUBPROGRAM 0040 ; -------------------------------------------------------------------------------------- 0040 0048 | H | .CONST 0x0048 ; Address of begin 0041 0004 | | .CONST 0x0004 ; Address of exception handler 0042 0003 | | .CONST 0x0003 ; Number of locals 0043 INIT_0040: 0043 e001 | | Load 0x0,0x1 0044 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 0045 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0046 e001 | | Load 0x0,0x1 0047 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0048 BODY_0040: 0048 e001 | | Load 0x0,0x1 0049 1b0d | | Execute Package,Field_Read,Field_Number 0xd 004a e001 | | Load 0x0,0x1 004b 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 004c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 004d 6012 |` | Indirect_Literal Discrete,0x60,{0x00000000, 0x00004000} 004e e002 | | Load 0x0,0x2 004f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0050 4800 |H | Short_Literal 0x0 0051 e5ff | | Load 0x2,-0x1 0052 e001 | | Load 0x0,0x1 0053 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0054 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0055 e001 | | Load 0x0,0x1 0056 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 0057 180f | | Execute Package,Field_Execute,Field_Number 0xf 0058 005b | [ | Store_Top Discrete,At_Offset_3 0059 0059 | Y | Store_Top Discrete,At_Offset_1 005a 00d9 | | Load_Top At_Offset_1 005b 0c03 | | Execute_Immediate Greater_Equal,0x3 005c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 005d 0000 0000 | | .XXX[0x3] 005f 0000 | | 0060 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0064 0000 0000 | | .BLANK 0000[0x4] 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 0070 | p | .CONST 0x0070 ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0003 | | .CONST 0x0003 ; Number of locals 006b INIT_0068: 006b e001 | | Load 0x0,0x1 006c 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 006d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 006e e001 | | Load 0x0,0x1 006f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0070 BODY_0068: 0070 e001 | | Load 0x0,0x1 0071 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0072 e001 | | Load 0x0,0x1 0073 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 0074 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0075 67ea |g | Indirect_Literal Discrete,0x60,{0x00000000, 0x00004000} 0076 e002 | | Load 0x0,0x2 0077 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0078 4800 |H | Short_Literal 0x0 0079 e5ff | | Load 0x2,-0x1 007a e001 | | Load 0x0,0x1 007b 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 007c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 007d e001 | | Load 0x0,0x1 007e 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 007f 180f | | Execute Package,Field_Execute,Field_Number 0xf 0080 005b | [ | Store_Top Discrete,At_Offset_3 0081 0059 | Y | Store_Top Discrete,At_Offset_1 0082 00d9 | | Load_Top At_Offset_1 0083 0f04 | | Execute_Immediate Equal,0x4 0084 4401 |D | Exit_Subprogram With_Value,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 00da | | Load_Top At_Offset_2 008c e003 | | Load 0x0,0x3 008d 1817 | | Execute Package,Field_Execute,Field_Number 0x17 008e 0092 015c | \| Action Push_String_Extended,0x15c ; "??'c(ada)'s(coded)" 0090 01cc | | Execute Vector,Catenate 0091 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0092 0000 0000 | | .BLANK 0000[0x6] 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 e5fd | | Load 0x2,-0x3 009c e5fe | | Load 0x2,-0x2 009d e5fd | | Load 0x2,-0x3 009e e5fe | | Load 0x2,-0x2 009f e5ff | | Load 0x2,-0x1 00a0 820f | | Call 0x1,0xf 00a1 e003 | | Load 0x0,0x3 00a2 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 00a3 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 00a4 0000 0000 | | .BLANK 0000[0x4] 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 e003 | | Load 0x0,0x3 00ad 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00ae 0092 015d | ]| Action Push_String_Extended,0x15d ; "??'c(ada)'s(~coded)" 00b0 01cc | | Execute Vector,Catenate 00b1 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 00b2 0000 0000 | | .BLANK 0000[0x6] 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00bb | | .CONST 0x00bb ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0001 | | .CONST 0x0001 ; Number of locals 00bb BODY_00b8: 00bb INIT_00b8: 00bb e5fd | | Load 0x2,-0x3 00bc e5fe | | Load 0x2,-0x2 00bd e5fd | | Load 0x2,-0x3 00be e5fe | | Load 0x2,-0x2 00bf e5ff | | Load 0x2,-0x1 00c0 8211 | | Call 0x1,0x11 00c1 e003 | | Load 0x0,0x3 00c2 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 00c3 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 00c4 0000 0000 | | .BLANK 0000[0x4] 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00d4 | | .CONST 0x00d4 ; Address of begin 00c9 00ec | | .CONST 0x00ec ; Address of exception handler 00ca 0002 | | .CONST 0x0002 ; Number of locals 00cb INIT_00c8: 00cb e001 | | Load 0x0,0x1 00cc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00cd 1b18 | | Execute Package,Field_Read,Field_Number 0x18 00ce 02c7 | | Declare_Variable Any 00cf e5fd | | Load 0x2,-0x3 00d0 4800 |H | Short_Literal 0x0 00d1 e5ff | | Load 0x2,-0x1 00d2 8210 | | Call 0x1,0x10 00d3 a402 | | Store_Unchecked 0x2,0x2 00d4 BODY_00c8: 00d4 00d8 | | Load_Top At_Offset_0 00d5 e001 | | Load 0x0,0x1 00d6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00d7 181a | | Execute Package,Field_Execute,Field_Number 0x1a 00d8 7012 |p | Jump_Nonzero 0xeb 00d9 4800 |H | Short_Literal 0x0 00da 4801 |H | Short_Literal 0x1 00db 4800 |H | Short_Literal 0x0 00dc 4801 |H | Short_Literal 0x1 00dd e5fd | | Load 0x2,-0x3 00de e003 | | Load 0x0,0x3 00df 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 00e0 e004 | | Load 0x0,0x4 00e1 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 00e2 4800 |H | Short_Literal 0x0 00e3 e5fe | | Load 0x2,-0x2 00e4 4802 |H | Short_Literal 0x2 00e5 e5fd | | Load 0x2,-0x3 00e6 4800 |H | Short_Literal 0x0 00e7 e5ff | | Load 0x2,-0x1 00e8 820f | | Call 0x1,0xf 00e9 e005 | | Load 0x0,0x5 00ea 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00eb 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00ec TRAP_00c8: 00ec 0007 | | Action Break_Optional 00ed e5fd | | Load 0x2,-0x3 00ee 4801 |H | Short_Literal 0x1 00ef 4801 |H | Short_Literal 0x1 00f0 e006 | | Load 0x0,0x6 00f1 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00f2 0334 | 4 | Declare_Variable Array,With_Constraint 00f3 0092 015e | ^| Action Push_String_Extended,0x15e ; "Cmvc.Demote" 00f5 e006 | | Load 0x0,0x6 00f6 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00f7 e006 | | Load 0x0,0x6 00f8 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00f9 0119 | | Execute Any,Check_In_Formal_Type 00fa 4801 |H | Short_Literal 0x1 00fb 00da | | Load_Top At_Offset_2 00fc 01d6 | | Execute Vector,Field_Write 00fd 6006 |` | Indirect_Literal Discrete,0x104,{0x00000000, 0x0000881f} 00fe e007 | | Load 0x0,0x7 00ff 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0100 e007 | | Load 0x0,0x7 0101 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0102 0257 | W | Execute Discrete,Raise 0103 0000 | | .XXX[0x1] 0104 0000 0000 | | .LITERAL {0x00000000, 0x0000881f} 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 0110 | | .CONST 0x0110 ; Address of begin 0109 0128 | ( | .CONST 0x0128 ; Address of exception handler 010a 0002 | | .CONST 0x0002 ; Number of locals 010b INIT_0108: 010b e5fd | | Load 0x2,-0x3 010c 4800 |H | Short_Literal 0x0 010d e5ff | | Load 0x2,-0x1 010e e003 | | Load 0x0,0x3 010f 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0110 BODY_0108: 0110 00d8 | | Load_Top At_Offset_0 0111 01db | | Execute Vector,Length 0112 6814 |h | Jump_Zero 0x127 0113 00d8 | | Load_Top At_Offset_0 0114 0092 015f | _| Action Push_String_Extended,0x15f ; "<>" 0116 01de | | Execute Vector,Not_Equal 0117 680f |h | Jump_Zero 0x127 0118 4800 |H | Short_Literal 0x0 0119 4801 |H | Short_Literal 0x1 011a 4800 |H | Short_Literal 0x0 011b 4801 |H | Short_Literal 0x1 011c e5fd | | Load 0x2,-0x3 011d e003 | | Load 0x0,0x3 011e 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 011f e004 | | Load 0x0,0x4 0120 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 0121 4800 |H | Short_Literal 0x0 0122 e5fe | | Load 0x2,-0x2 0123 4801 |H | Short_Literal 0x1 0124 e402 | | Load 0x2,0x2 0125 e005 | | Load 0x0,0x5 0126 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0127 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0128 TRAP_0108: 0128 0007 | | Action Break_Optional 0129 e5fd | | Load 0x2,-0x3 012a 4801 |H | Short_Literal 0x1 012b 4801 |H | Short_Literal 0x1 012c e006 | | Load 0x0,0x6 012d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 012e 0334 | 4 | Declare_Variable Array,With_Constraint 012f 0092 0160 | `| Action Push_String_Extended,0x160 ; "Compilation.Demote" 0131 e006 | | Load 0x0,0x6 0132 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0133 e006 | | Load 0x0,0x6 0134 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0135 0119 | | Execute Any,Check_In_Formal_Type 0136 4801 |H | Short_Literal 0x1 0137 00da | | Load_Top At_Offset_2 0138 01d6 | | Execute Vector,Field_Write 0139 67ca |g | Indirect_Literal Discrete,0x104,{0x00000000, 0x0000881f} 013a e007 | | Load 0x0,0x7 013b 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 013c e007 | | Load 0x0,0x7 013d 1b17 | | Execute Package,Field_Read,Field_Number 0x17 013e 0257 | W | Execute Discrete,Raise 013f 0000 | | .XXX[0x1] 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0147 | G | .CONST 0x0147 ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0002 | | .CONST 0x0002 ; Number of locals 0143 INIT_0140: 0143 e5fd | | Load 0x2,-0x3 0144 4801 |H | Short_Literal 0x1 0145 e5ff | | Load 0x2,-0x1 0146 820f | | Call 0x1,0xf 0147 BODY_0140: 0147 e5fd | | Load 0x2,-0x3 0148 e004 | | Load 0x0,0x4 0149 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 014a 4801 |H | Short_Literal 0x1 014b 00da | | Load_Top At_Offset_2 014c 8008 | | Call 0x0,0x8 014d e5fe | | Load 0x2,-0x2 014e 680c |h | Jump_Zero 0x15b 014f e5fd | | Load 0x2,-0x3 0150 e004 | | Load 0x0,0x4 0151 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 0152 4800 |H | Short_Literal 0x0 0153 0092 0161 | a| Action Push_String_Extended,0x161 ; "<ALL_WORLDS>" 0155 4801 |H | Short_Literal 0x1 0156 e5ff | | Load 0x2,-0x1 0157 e003 | | Load 0x0,0x3 0158 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0159 e005 | | Load 0x0,0x5 015a 1816 | | Execute Package,Field_Execute,Field_Number 0x16 015b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 015c ; -------------------------------------------------------------------------------------- 015c ; STRING TABLE 015c ; -------------------------------------------------------------------------------------- 015c 000e | | .STRTAB 0x000e->0x0163 ; "??'c(ada)'s(coded)" 015d 001e | | .STRTAB 0x001e->0x016c ; "??'c(ada)'s(~coded)" 015e 002f | / | .STRTAB 0x002f->0x0175 ; "Cmvc.Demote" 015f 0038 | 8 | .STRTAB 0x0038->0x017b ; "<>" 0160 0038 | 8 | .STRTAB 0x0038->0x017c ; "Compilation.Demote" 0161 0048 | H | .STRTAB 0x0048->0x0185 ; "<ALL_WORLDS>" 0162 0052 | R | .STREND 0x0052->0x018b 0163 3f3f 2763 |??'c| .STRTAB_STRINGS 018b 0000 0000 | | .BLANK 0000[0x5] 0190 ; -------------------------------------------------------------------------------------- 0190 ; Debug Table 0190 ; -------------------------------------------------------------------------------------- 0190 0004 000c | | .DEBUG4 0x0004,0x000c,0x1676,0x0000,0x0001,0x0000 0196 42e0 0000 |B | .XXX[0x6a] 0198 051f 0000 | | 019a 0014 b200 | | 019c 0000 5358 | SX| 019e 09b0 015b | [| 01a0 c000 0005 | | 01a2 8480 9500 | | 01a4 1650 0258 | P X| 01a6 005a 6800 | Zh | 01a8 0001 6ce0 | l | 01aa 0000 05b6 | | 01ac 8000 0017 | | 01ae 0a02 7000 | p | 01b0 5cb8 0000 |\ | 01b2 0174 0000 | t | 01b4 0005 d480 | | 01b6 0000 176a | j| 01b8 0000 005d | ]| 01ba d800 0001 | | 01bc 7820 0000 |x | 01be 05e4 0000 | | 01c0 0017 de00 | | 01c2 00b6 3231 | 21| 01c4 b0b9 3239 | 29| 01c6 9610 31b7 | 1 | 01c8 b73a 32bc | :2 | 01ca 3a10 3839 |: 89| 01cc 32b3 34bc |2 4 | 01ce 32b9 9600 |2 | 01d0 0000 2380 | # | 01d2 0000 2410 | $ | 01d4 29b8 32b1 |) 2 | 01d6 b4b3 34b2 | 4 | 01d8 b990 3a34 | :4| 01da 3290 39b2 |2 9 | 01dc ba10 37b3 | 7 | 01de 1037 b135 | 7 5| 01e0 32b1 ba39 |2 9| 01e2 903a 3790 | :7 | 01e4 3132 9036 |12 6| 01e6 34b9 ba32 |4 2| 01e8 b217 102b | +| 01ea b4b6 3231 | 21| 01ec b0b9 3239 | 29| 01ee 9610 31b7 | 1 | 01f0 b73a 32bc | :2 | 01f2 3a10 3839 |: 89| 01f4 32b3 34bc |2 4 | 01f6 32b9 9600 |2 | 01f8 0000 2380 | # | 01fa 0000 2410 | $ | 01fc 29b8 32b1 |) 2 | 01fe b4b3 34b2 | 4 |