|
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_02f8e7
└─⟦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 0178 | x | .CONST 0x0178 ; 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 0010 | | .CONST 0x0010 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0001 | | .CONST 0x0001 ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 000f 00c7 | | Action Elaborate_Subprogram 0010 BODY_0008: 0010 00bc | | Action Signal_Activated 0011 00bb | | Action Signal_Completion 0012 0000 0000 | | .BLANK 0000[0x6] 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 0031 | 1 | .CONST 0x0031 ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0009 | | .CONST 0x0009 ; Number of locals 001b INIT_0018: 001b e001 | | Load 0x0,0x1 001c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 001d 1b18 | | Execute Package,Field_Read,Field_Number 0x18 001e 02c7 | | Declare_Variable Any 001f 00d8 | | Load_Top At_Offset_0 0020 1c00 | | Execute_Immediate Run_Utility,0x0 0021 e001 | | Load 0x0,0x1 0022 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0023 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0024 e001 | | Load 0x0,0x1 0025 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0026 e001 | | Load 0x0,0x1 0027 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0028 0007 | | Action Break_Optional 0029 029f 00c3 | | Declare_Subprogram INIT_00c0,For_Call 002b 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call 002d 029f 0103 | | Declare_Subprogram INIT_0100,For_Call 002f 029f 0113 | | Declare_Subprogram INIT_0110,For_Call 0031 BODY_0018: 0031 e001 | | Load 0x0,0x1 0032 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0033 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0034 e402 | | Load 0x2,0x2 0035 0120 | | Execute Any,Is_Value 0036 6804 |h | Jump_Zero 0x3b 0037 e001 | | Load 0x0,0x1 0038 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0039 1b18 | | Execute Package,Field_Read,Field_Number 0x18 003a 7801 |x | Jump 0x3c 003b e402 | | Load 0x2,0x2 003c 6107 |a | Indirect_Literal Discrete,0x144,{0x00000000, 0x00004000} 003d e002 | | Load 0x0,0x2 003e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 003f e003 | | Load 0x0,0x3 0040 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0041 e004 | | Load 0x0,0x4 0042 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0043 4800 |H | Short_Literal 0x0 0044 4800 |H | Short_Literal 0x0 0045 e003 | | Load 0x0,0x3 0046 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0047 e001 | | Load 0x0,0x1 0048 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0049 1816 | | Execute Package,Field_Execute,Field_Number 0x16 004a e5ff | | Load 0x2,-0x1 004b e001 | | Load 0x0,0x1 004c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 004d 181b | | Execute Package,Field_Execute,Field_Number 0x1b 004e c402 | | Store 0x2,0x2 004f c403 | | Store 0x2,0x3 0050 e403 | | Load 0x2,0x3 0051 0b00 | | Execute_Immediate Case_Compare,0x0 0052 7017 |p | Jump_Nonzero 0x6a 0053 e005 | | Load 0x0,0x5 0054 180e | | Execute Package,Field_Execute,Field_Number 0xe 0055 4805 |H | Short_Literal 0x5 0056 0092 0148 | H| Action Push_String_Extended,0x148 ; "\x22" 0058 e5ff | | Load 0x2,-0x1 0059 01cc | | Execute Vector,Catenate 005a 0092 0149 | I| Action Push_String_Extended,0x149 ; "\x22 cannot be resolved (" 005c 01cc | | Execute Vector,Catenate 005d e403 | | Load 0x2,0x3 005e e001 | | Load 0x0,0x1 005f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0060 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0061 025e | ^ | Execute Discrete,Convert 0062 1c01 | | Execute_Immediate Run_Utility,0x1 0063 01cc | | Execute Vector,Catenate 0064 0092 014a | J| Action Push_String_Extended,0x14a ; ")." 0066 01cc | | Execute Vector,Catenate 0067 e006 | | Load 0x0,0x6 0068 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0069 4502 |E | Exit_Suprogram New_Top_Offset 0x2 006a 00cf | | Action Mark_Auxiliary 006b 784b |xK | Jump 0xb7 006c e001 | | Load 0x0,0x1 006d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 006e e001 | | Load 0x0,0x1 006f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0070 60d3 |` | Indirect_Literal Discrete,0x144,{0x00000000, 0x00004000} 0071 e002 | | Load 0x0,0x2 0072 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0073 e402 | | Load 0x2,0x2 0074 e001 | | Load 0x0,0x1 0075 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0076 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0077 c404 | | Store 0x2,0x4 0078 c405 | | Store 0x2,0x5 0079 e405 | | Load 0x2,0x5 007a 0b00 | | Execute_Immediate Case_Compare,0x0 007b 7013 |p | Jump_Nonzero 0x8f 007c e005 | | Load 0x0,0x5 007d 180e | | Execute Package,Field_Execute,Field_Number 0xe 007e 4805 |H | Short_Literal 0x5 007f 0092 014b | K| Action Push_String_Extended,0x14b ; "Directory.Naming.Get_Declaration failed (" 0081 e403 | | Load 0x2,0x3 0082 e001 | | Load 0x0,0x1 0083 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0084 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0085 025e | ^ | Execute Discrete,Convert 0086 1c01 | | Execute_Immediate Run_Utility,0x1 0087 01cc | | Execute Vector,Catenate 0088 0092 014a | J| Action Push_String_Extended,0x14a ; ")." 008a 01cc | | Execute Vector,Catenate 008b e006 | | Load 0x0,0x6 008c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 008d 00d1 | | Pop_Control Pop_Count_1 008e 782d |x- | Jump 0xbc 008f e404 | | Load 0x2,0x4 0090 e007 | | Load 0x0,0x7 0091 180f | | Execute Package,Field_Execute,Field_Number 0xf 0092 6811 |h | Jump_Zero 0xa4 0093 00ea | | Load_Encached Null_String_Cache 0094 0092 014c | L| Action Push_String_Extended,0x14c ; "<PROFILE>" 0096 4800 |H | Short_Literal 0x0 0097 4800 |H | Short_Literal 0x0 0098 e008 | | Load 0x0,0x8 0099 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 009a e404 | | Load 0x2,0x4 009b e001 | | Load 0x0,0x1 009c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 009d 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 009e 0092 014d | M| Action Push_String_Extended,0x14d ; ".@" 00a0 01cc | | Execute Vector,Catenate 00a1 e008 | | Load 0x0,0x8 00a2 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 00a3 780c |x | Jump 0xb0 00a4 e404 | | Load 0x2,0x4 00a5 e007 | | Load 0x0,0x7 00a6 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00a7 6806 |h | Jump_Zero 0xae 00a8 e404 | | Load 0x2,0x4 00a9 e001 | | Load 0x0,0x1 00aa 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00ab 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 00ac 8409 | | Call 0x2,0x9 00ad 7802 |x | Jump 0xb0 00ae e404 | | Load 0x2,0x4 00af 8408 | | Call 0x2,0x8 00b0 00d1 | | Pop_Control Pop_Count_1 00b1 e402 | | Load 0x2,0x2 00b2 e001 | | Load 0x0,0x1 00b3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00b4 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00b5 c402 | | Store 0x2,0x2 00b6 00c9 | | Action Pop_Auxiliary_Loop 00b7 e402 | | Load 0x2,0x2 00b8 e001 | | Load 0x0,0x1 00b9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00ba 181e | | Execute Package,Field_Execute,Field_Number 0x1e 00bb 6fb0 |o | Jump_Zero 0x6c 00bc 00ce | | Action Pop_Auxiliary 00bd 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00be 0000 0000 | | .XXX[0x2] 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 e7ff | | Load 0x3,-0x1 00c4 00eb | | Load_Encached Diana_Cache 00c5 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00c6 0b8c | | Execute_Immediate Case_Compare,0x8c 00c7 7006 |p | Jump_Nonzero 0xce 00c8 0b91 | | Execute_Immediate Case_Compare,0x91 00c9 7004 |p | Jump_Nonzero 0xce 00ca 0b94 | | Execute_Immediate Case_Compare,0x94 00cb 7002 |p | Jump_Nonzero 0xce 00cc 4800 |H | Short_Literal 0x0 00cd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ce 4801 |H | Short_Literal 0x1 00cf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d7 | | .CONST 0x00d7 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0004 | | .CONST 0x0004 ; Number of locals 00d3 INIT_00d0: 00d3 00ec | | Load_Encached Diana_Tree_Cache 00d4 00ec | | Load_Encached Diana_Tree_Cache 00d5 00e1 | | Load_Encached Boolean_Cache 00d6 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00d7 BODY_00d0: 00d7 e7ff | | Load 0x3,-0x1 00d8 a602 | | Store_Unchecked 0x3,0x2 00d9 00cf | | Action Mark_Auxiliary 00da 0007 | | Action Break_Optional 00db e602 | | Load 0x3,0x2 00dc 00eb | | Load_Encached Diana_Cache 00dd 18ec | | Execute Package,Field_Execute,Field_Number 0xec 00de a603 | | Store_Unchecked 0x3,0x3 00df e603 | | Load 0x3,0x3 00e0 8406 | | Call 0x2,0x6 00e1 7018 |p | Jump_Nonzero 0xfa 00e2 e604 | | Load 0x3,0x4 00e3 6812 |h | Jump_Zero 0xf6 00e4 e602 | | Load 0x3,0x2 00e5 00eb | | Load_Encached Diana_Cache 00e6 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00e7 00eb | | Load_Encached Diana_Cache 00e8 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00e9 025e | ^ | Execute Discrete,Convert 00ea 1c01 | | Execute_Immediate Run_Utility,0x1 00eb 0092 014e | N| Action Push_String_Extended,0x14e ; ": " 00ed 01cc | | Execute Vector,Catenate 00ee 4801 |H | Short_Literal 0x1 00ef 4846 |HF | Short_Literal 0x46 00f0 e602 | | Load 0x3,0x2 00f1 e009 | | Load 0x0,0x9 00f2 180d | | Execute Package,Field_Execute,Field_Number 0xd 00f3 01cc | | Execute Vector,Catenate 00f4 e00a | | Load 0x0,0xa 00f5 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00f6 e603 | | Load 0x3,0x3 00f7 a602 | | Store_Unchecked 0x3,0x2 00f8 00c9 | | Action Pop_Auxiliary_Loop 00f9 7fe1 | | Jump 0xdb 00fa 00ce | | Action Pop_Auxiliary 00fb e602 | | Load 0x3,0x2 00fc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00fd 0000 0000 | | .XXX[0x3] 00ff 0000 | | 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 4801 |H | Short_Literal 0x1 0104 4850 |HP | Short_Literal 0x50 0105 e7ff | | Load 0x3,-0x1 0106 8407 | | Call 0x2,0x7 0107 e009 | | Load 0x0,0x9 0108 180d | | Execute Package,Field_Execute,Field_Number 0xd 0109 e00a | | Load 0x0,0xa 010a 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 010b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 010c 0000 0000 | | .BLANK 0000[0x4] 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 011d | | .CONST 0x011d ; Address of begin 0111 013e | > | .CONST 0x013e ; Address of exception handler 0112 0004 | | .CONST 0x0004 ; Number of locals 0113 INIT_0110: 0113 e00a | | Load 0x0,0xa 0114 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0115 02c7 | | Declare_Variable Any 0116 00d8 | | Load_Top At_Offset_0 0117 1c00 | | Execute_Immediate Run_Utility,0x0 0118 4801 |H | Short_Literal 0x1 0119 6026 |`& | Indirect_Literal Discrete,0x140,{0x00000000, 0x00000400} 011a 00e9 | | Load_Encached String_Cache 011b 0334 | 4 | Declare_Variable Array,With_Constraint 011c 00e3 | | Load_Encached Natural_Cache 011d BODY_0110: 011d e602 | | Load 0x3,0x2 011e 00ea | | Load_Encached Null_String_Cache 011f e7ff | | Load 0x3,-0x1 0120 4800 |H | Short_Literal 0x0 0121 e00a | | Load 0x0,0xa 0122 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0123 c602 | | Store 0x3,0x2 0124 00cf | | Action Mark_Auxiliary 0125 780e |x | Jump 0x134 0126 00e3 | | Load_Encached Natural_Cache 0127 e603 | | Load 0x3,0x3 0128 e602 | | Load 0x3,0x2 0129 e00a | | Load 0x0,0xa 012a 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 012b 00d1 | | Pop_Control Pop_Count_1 012c c604 | | Store 0x3,0x4 012d 4801 |H | Short_Literal 0x1 012e e604 | | Load 0x3,0x4 012f e603 | | Load 0x3,0x3 0130 01cf | | Execute Vector,Slice_Read 0131 e00a | | Load 0x0,0xa 0132 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0133 00c9 | | Action Pop_Auxiliary_Loop 0134 e602 | | Load 0x3,0x2 0135 e00a | | Load 0x0,0xa 0136 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0137 6fee |o | Jump_Zero 0x126 0138 00ce | | Action Pop_Auxiliary 0139 e602 | | Load 0x3,0x2 013a e00a | | Load 0x0,0xa 013b 1816 | | Execute Package,Field_Execute,Field_Number 0x16 013c c602 | | Store 0x3,0x2 013d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 013e TRAP_0110: 013e 0007 | | Action Break_Optional 013f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0140 0000 0000 | | .LITERAL {0x00000000, 0x00000400} 0144 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0148 ; -------------------------------------------------------------------------------------- 0148 ; STRING TABLE 0148 ; -------------------------------------------------------------------------------------- 0148 0010 | | .STRTAB 0x0010->0x0150 ; "\x22" 0149 000f | | .STRTAB 0x000f->0x0150 ; "\x22 cannot be resolved (" 014a 0023 | # | .STRTAB 0x0023->0x015b ; ")." 014b 0023 | # | .STRTAB 0x0023->0x015c ; "Directory.Naming.Get_Declaration failed (" 014c 004a | J | .STRTAB 0x004a->0x0171 ; "<PROFILE>" 014d 0051 | Q | .STRTAB 0x0051->0x0175 ; ".@" 014e 0051 | Q | .STRTAB 0x0051->0x0176 ; ": " 014f 0051 | Q | .STREND 0x0051->0x0177 0150 2222 2063 |"" c| .STRTAB_STRINGS 0178 ; -------------------------------------------------------------------------------------- 0178 ; Debug Table 0178 ; -------------------------------------------------------------------------------------- 0178 0004 0000 | | .DEBUG4 0x0004,0x0000,0xb096,0x0000,0x0001,0x0000 017e 12eb 8403 | | .XXX[0x82] 0180 7803 0092 |x | 0182 12ec 8403 | | 0184 e5ff 3c15 | < | 0186 6804 0092 |h | 0188 12ed 8403 | | 018a 7818 0092 |x | 018c 12ee 8403 | | 018e 7814 e402 |x | 0190 e5ff 3c14 | < | 0192 8261 e009 | a | 0194 1818 00d1 | | 0196 e402 0092 | | 0198 12e0 e009 | | 019a 1818 00d1 | | 019c e402 e5ff | | 019e 3c15 8261 |< a| 01a0 e009 1818 | | 01a2 00d1 00d1 | | 01a4 e402 4402 | D | 01a6 0000 0000 | | 01a8 11b6 0004 | | 01aa 0002 e5ff | | 01ac e259 182b | Y +| 01ae 4878 0271 |Hx q| 01b0 0248 e009 | H | 01b2 1b0e 1c08 | | 01b4 00d8 1c00 | | 01b6 00d8 00ea | | 01b8 e009 1810 | | 01ba 00d1 00cf | | 01bc e5ff e259 | Y| 01be 182b 4801 | +H | 01c0 0263 7019 | cp | 01c2 e402 e5fe | | 01c4 e405 e5ff | | 01c6 e259 182c | Y ,| 01c8 825e e009 | ^ | 01ca 1817 00d1 | | 01cc e5fe 6806 | h | 01ce e402 480a | H | 01d0 e009 1819 | | 01d2 00d1 7805 | x | 01d4 e402 480d | H | 01d6 e009 1819 | | 01d8 00d1 00c8 | | 01da 3fe7 00ce |? | 01dc 00d8 4402 | D | 01de 0000 0000 | | 01e0 11e3 0004 | | 01e2 0001 e5fe | | 01e4 6805 e5ff |h | 01e6 e20d 025e | ^| 01e8 1c01 4402 | D | 01ea e5ff 461b | F | 01ec 781b 781d |x x | 01ee 7846 7848 |xFxH| 01f0 7829 7849 |x)xI| 01f2 781b 7820 |x x | 01f4 7822 7848 |x"xH| 01f6 784a 784c |xJxL| 01f8 784e 7850 |xNxP| 01fa 7852 7833 |xRx3| 01fc 7820 7822 |x x"| 01fe 7824 7811 |x$x |