|
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_5850da
└─⟦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 01c8 | | .CONST 0x01c8 ; 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 0034 | 4 | .CONST 0x0034 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0016 | | .CONST 0x0016 ; Number of locals 000b INIT_0008: 000b 00c4 | | Action Make_Default 000c 00c4 | | Action Make_Default 000d 00c4 | | Action Make_Default 000e 00c4 | | Action Make_Default 000f 00c4 | | Action Make_Default 0010 00c4 | | Action Make_Default 0011 00c4 | | Action Make_Default 0012 00c4 | | Action Make_Default 0013 00c4 | | Action Make_Default 0014 00c4 | | Action Make_Default 0015 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated 0017 c213 | | Store 0x1,0x13 0018 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated 001a c214 | | Store 0x1,0x14 001b 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated 001d c215 | | Store 0x1,0x15 001e 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated 0020 c216 | | Store 0x1,0x16 0021 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated 0023 c211 | | Store 0x1,0x11 0024 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated 0026 c212 | | Store 0x1,0x12 0027 00bf | | Action Accept_Activation 0028 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0029 00c7 | | Action Elaborate_Subprogram 002a 1d14 | | Execute_Immediate Reference_Lex_1,0x14 002b 00c7 | | Action Elaborate_Subprogram 002c 1d15 | | Execute_Immediate Reference_Lex_1,0x15 002d 00c7 | | Action Elaborate_Subprogram 002e 1d16 | | Execute_Immediate Reference_Lex_1,0x16 002f 00c7 | | Action Elaborate_Subprogram 0030 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0031 00c7 | | Action Elaborate_Subprogram 0032 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0033 00c7 | | Action Elaborate_Subprogram 0034 BODY_0008: 0034 00bc | | Action Signal_Activated 0035 00bb | | Action Signal_Completion 0036 0000 0000 | | .XXX[0x2] 0038 ; -------------------------------------------------------------------------------------- 0038 ; SUBPROGRAM 0038 ; -------------------------------------------------------------------------------------- 0038 003b | ; | .CONST 0x003b ; Address of begin 0039 0004 | | .CONST 0x0004 ; Address of exception handler 003a 0001 | | .CONST 0x0001 ; Number of locals 003b BODY_0038: 003b INIT_0038: 003b 4800 |H | Short_Literal 0x0 003c e001 | | Load 0x0,0x1 003d 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 003e e5fc | | Load 0x2,-0x4 003f 4801 |H | Short_Literal 0x1 0040 4802 |H | Short_Literal 0x2 0041 e002 | | Load 0x0,0x2 0042 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0043 035b | [ | Declare_Type Array,Constrained 0044 0337 | 7 | Declare_Variable Array 0045 e5fd | | Load 0x2,-0x3 0046 e5ff | | Load 0x2,-0x1 0047 01cc | | Execute Vector,Catenate 0048 e002 | | Load 0x0,0x2 0049 1810 | | Execute Package,Field_Execute,Field_Number 0x10 004a e002 | | Load 0x0,0x2 004b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 004c 0119 | | Execute Any,Check_In_Formal_Type 004d 4801 |H | Short_Literal 0x1 004e 00da | | Load_Top At_Offset_2 004f 01d6 | | Execute Vector,Field_Write 0050 e5fe | | Load 0x2,-0x2 0051 e002 | | Load 0x0,0x2 0052 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0053 e002 | | Load 0x0,0x2 0054 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0055 0119 | | Execute Any,Check_In_Formal_Type 0056 4802 |H | Short_Literal 0x2 0057 00da | | Load_Top At_Offset_2 0058 01d6 | | Execute Vector,Field_Write 0059 6006 |` | Indirect_Literal Discrete,0x60,{0x00000000, 0x00008846} 005a e001 | | Load 0x0,0x1 005b 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 005c 4505 |E | Exit_Suprogram New_Top_Offset 0x5 005d 0000 0000 | | .XXX[0x3] 005f 0000 | | 0060 0000 0000 | | .LITERAL {0x00000000, 0x00008846} 0064 0000 0000 | | .BLANK 0000[0x4] 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 0074 | t | .CONST 0x0074 ; 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 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 006d 00e2 | | Load_Encached Integer_Cache 006e 03f1 | | Declare_Variable Discrete,With_Value 006f 4806 |H | Short_Literal 0x6 0070 e001 | | Load 0x0,0x1 0071 1844 | D | Execute Package,Field_Execute,Field_Number 0x44 0072 00e2 | | Load_Encached Integer_Cache 0073 03f1 | | Declare_Variable Discrete,With_Value 0074 BODY_0068: 0074 4800 |H | Short_Literal 0x0 0075 e5ff | | Load 0x2,-0x1 0076 e001 | | Load 0x0,0x1 0077 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0078 6810 |h | Jump_Zero 0x89 0079 00d9 | | Load_Top At_Offset_1 007a 700e |p | Jump_Nonzero 0x89 007b e5fc | | Load 0x2,-0x4 007c 0092 016b | k| Action Push_String_Extended,0x16b ; "[" 007e e5fd | | Load 0x2,-0x3 007f 01cc | | Execute Vector,Catenate 0080 e5fe | | Load 0x2,-0x2 0081 01cc | | Execute Vector,Catenate 0082 0092 016c | l| Action Push_String_Extended,0x16c ; " completed successfully]" 0084 01cc | | Execute Vector,Catenate 0085 607e |`~ | Indirect_Literal Discrete,0x104,{0x00000000, 0x00008821} 0086 e001 | | Load 0x0,0x1 0087 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 0088 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0089 00d9 | | Load_Top At_Offset_1 008a 0f01 | | Execute_Immediate Equal,0x1 008b 681f |h | Jump_Zero 0xab 008c 00d8 | | Load_Top At_Offset_0 008d 0f01 | | Execute_Immediate Equal,0x1 008e 680e |h | Jump_Zero 0x9d 008f e5fc | | Load 0x2,-0x4 0090 0092 016b | k| Action Push_String_Extended,0x16b ; "[" 0092 e5fd | | Load 0x2,-0x3 0093 01cc | | Execute Vector,Catenate 0094 e5fe | | Load 0x2,-0x2 0095 01cc | | Execute Vector,Catenate 0096 0092 016d | m| Action Push_String_Extended,0x16d ; " completed with 1 warning]" 0098 01cc | | Execute Vector,Catenate 0099 606a |`j | Indirect_Literal Discrete,0x104,{0x00000000, 0x00008821} 009a e001 | | Load 0x0,0x1 009b 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 009c 7860 |x` | Jump 0xfd 009d e5fc | | Load 0x2,-0x4 009e 0092 016b | k| Action Push_String_Extended,0x16b ; "[" 00a0 e5fd | | Load 0x2,-0x3 00a1 01cc | | Execute Vector,Catenate 00a2 e5fe | | Load 0x2,-0x2 00a3 01cc | | Execute Vector,Catenate 00a4 0092 016e | n| Action Push_String_Extended,0x16e ; " terminated after 1 error]" 00a6 01cc | | Execute Vector,Catenate 00a7 605c |`\ | Indirect_Literal Discrete,0x104,{0x00000000, 0x00008821} 00a8 e001 | | Load 0x0,0x1 00a9 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 00aa 7852 |xR | Jump 0xfd 00ab 00d8 | | Load_Top At_Offset_0 00ac 7015 |p | Jump_Nonzero 0xc2 00ad e5fc | | Load 0x2,-0x4 00ae 0092 016b | k| Action Push_String_Extended,0x16b ; "[" 00b0 e5fd | | Load 0x2,-0x3 00b1 01cc | | Execute Vector,Catenate 00b2 e5fe | | Load 0x2,-0x2 00b3 01cc | | Execute Vector,Catenate 00b4 0092 016f | o| Action Push_String_Extended,0x16f ; " terminated after" 00b6 01cc | | Execute Vector,Catenate 00b7 00db | | Load_Top At_Offset_3 00b8 00e0 | | Load_Encached Standard_Cache 00b9 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00ba 01cc | | Execute Vector,Catenate 00bb 0092 0170 | p| Action Push_String_Extended,0x170 ; " errors]" 00bd 01cc | | Execute Vector,Catenate 00be 6045 |`E | Indirect_Literal Discrete,0x104,{0x00000000, 0x00008821} 00bf e001 | | Load 0x0,0x1 00c0 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 00c1 783b |x; | Jump 0xfd 00c2 00d9 | | Load_Top At_Offset_1 00c3 00d9 | | Load_Top At_Offset_1 00c4 027f | | Execute Discrete,Equal 00c5 6815 |h | Jump_Zero 0xdb 00c6 e5fc | | Load 0x2,-0x4 00c7 0092 016b | k| Action Push_String_Extended,0x16b ; "[" 00c9 e5fd | | Load 0x2,-0x3 00ca 01cc | | Execute Vector,Catenate 00cb e5fe | | Load 0x2,-0x2 00cc 01cc | | Execute Vector,Catenate 00cd 0092 0171 | q| Action Push_String_Extended,0x171 ; " completed with" 00cf 01cc | | Execute Vector,Catenate 00d0 00da | | Load_Top At_Offset_2 00d1 00e0 | | Load_Encached Standard_Cache 00d2 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00d3 01cc | | Execute Vector,Catenate 00d4 0092 0172 | r| Action Push_String_Extended,0x172 ; " warnings]" 00d6 01cc | | Execute Vector,Catenate 00d7 602c |`, | Indirect_Literal Discrete,0x104,{0x00000000, 0x00008821} 00d8 e001 | | Load 0x0,0x1 00d9 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 00da 7822 |x" | Jump 0xfd 00db e5fc | | Load 0x2,-0x4 00dc 0092 016b | k| Action Push_String_Extended,0x16b ; "[" 00de e5fd | | Load 0x2,-0x3 00df 01cc | | Execute Vector,Catenate 00e0 e5fe | | Load 0x2,-0x2 00e1 01cc | | Execute Vector,Catenate 00e2 0092 016f | o| Action Push_String_Extended,0x16f ; " terminated after" 00e4 01cc | | Execute Vector,Catenate 00e5 00db | | Load_Top At_Offset_3 00e6 00db | | Load_Top At_Offset_3 00e7 0272 | r | Execute Discrete,Minus 00e8 00d8 | | Load_Top At_Offset_0 00e9 00e2 | | Load_Encached Integer_Cache 00ea 0260 | ` | Execute Discrete,In_Type 00eb 7001 |p | Jump_Nonzero 0xed 00ec 0801 | | Execute_Immediate Raise,0x1 00ed 00e0 | | Load_Encached Standard_Cache 00ee 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00ef 01cc | | Execute Vector,Catenate 00f0 0092 0173 | s| Action Push_String_Extended,0x173 ; " error(s) and" 00f2 01cc | | Execute Vector,Catenate 00f3 00da | | Load_Top At_Offset_2 00f4 00e0 | | Load_Encached Standard_Cache 00f5 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00f6 01cc | | Execute Vector,Catenate 00f7 0092 0174 | t| Action Push_String_Extended,0x174 ; " warning(s)]" 00f9 01cc | | Execute Vector,Catenate 00fa 6009 |` | Indirect_Literal Discrete,0x104,{0x00000000, 0x00008821} 00fb e001 | | Load 0x0,0x1 00fc 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 00fd 4800 |H | Short_Literal 0x0 00fe e001 | | Load 0x0,0x1 00ff 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 0100 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0101 0000 0000 | | .XXX[0x3] 0103 0000 | | 0104 0000 0000 | | .LITERAL {0x00000000, 0x00008821} 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 010b | | .CONST 0x010b ; Address of begin 0109 0004 | | .CONST 0x0004 ; Address of exception handler 010a 0001 | | .CONST 0x0001 ; Number of locals 010b BODY_0108: 010b INIT_0108: 010b e5fc | | Load 0x2,-0x4 010c e002 | | Load 0x0,0x2 010d 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 010e 6009 |` | Indirect_Literal Discrete,0x118,{0x00000000, 0x0000882c} 010f e001 | | Load 0x0,0x1 0110 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0111 e5fc | | Load 0x2,-0x4 0112 e5fd | | Load 0x2,-0x3 0113 e5fe | | Load 0x2,-0x2 0114 e5ff | | Load 0x2,-0x1 0115 8214 | | Call 0x1,0x14 0116 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0117 0000 | | .XXX[0x1] 0118 0000 0000 | | .LITERAL {0x00000000, 0x0000882c} 011c 0000 0000 | | .BLANK 0000[0x4] 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0123 | # | .CONST 0x0123 ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0001 | | .CONST 0x0001 ; Number of locals 0123 BODY_0120: 0123 INIT_0120: 0123 e5fc | | Load 0x2,-0x4 0124 4801 |H | Short_Literal 0x1 0125 4802 |H | Short_Literal 0x2 0126 e002 | | Load 0x0,0x2 0127 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0128 035b | [ | Declare_Type Array,Constrained 0129 0337 | 7 | Declare_Variable Array 012a 4800 |H | Short_Literal 0x0 012b 4801 |H | Short_Literal 0x1 012c e003 | | Load 0x0,0x3 012d 1815 | | Execute Package,Field_Execute,Field_Number 0x15 012e e002 | | Load 0x0,0x2 012f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0130 e002 | | Load 0x0,0x2 0131 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0132 0119 | | Execute Any,Check_In_Formal_Type 0133 4801 |H | Short_Literal 0x1 0134 00da | | Load_Top At_Offset_2 0135 01d6 | | Execute Vector,Field_Write 0136 4800 |H | Short_Literal 0x0 0137 4801 |H | Short_Literal 0x1 0138 e003 | | Load 0x0,0x3 0139 1816 | | Execute Package,Field_Execute,Field_Number 0x16 013a e002 | | Load 0x0,0x2 013b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 013c e002 | | Load 0x0,0x2 013d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 013e 0119 | | Execute Any,Check_In_Formal_Type 013f 4802 |H | Short_Literal 0x2 0140 00da | | Load_Top At_Offset_2 0141 01d6 | | Execute Vector,Field_Write 0142 6009 |` | Indirect_Literal Discrete,0x14c,{0x00000000, 0x00008849} 0143 e001 | | Load 0x0,0x1 0144 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0145 e5fc | | Load 0x2,-0x4 0146 e5fd | | Load 0x2,-0x3 0147 e5fe | | Load 0x2,-0x2 0148 e5ff | | Load 0x2,-0x1 0149 8214 | | Call 0x1,0x14 014a 4505 |E | Exit_Suprogram New_Top_Offset 0x5 014b 0000 | | .XXX[0x1] 014c 0000 0000 | | .LITERAL {0x00000000, 0x00008849} 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0153 | S | .CONST 0x0153 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0001 | | .CONST 0x0001 ; Number of locals 0153 BODY_0150: 0153 INIT_0150: 0153 4822 |H" | Short_Literal 0x22 0154 0092 0175 | u| Action Push_String_Extended,0x175 ; " => \x22" 0156 e5ff | | Load 0x2,-0x1 0157 01cc | | Execute Vector,Catenate 0158 01cb | | Execute Vector,Append 0159 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 015a 0000 0000 | | .BLANK 0000[0x6] 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 0163 | c | .CONST 0x0163 ; Address of begin 0161 0004 | | .CONST 0x0004 ; Address of exception handler 0162 0001 | | .CONST 0x0001 ; Number of locals 0163 BODY_0160: 0163 INIT_0160: 0163 0092 0175 | u| Action Push_String_Extended,0x175 ; " => \x22" 0165 00db | | Load_Top At_Offset_3 0166 01cc | | Execute Vector,Catenate 0167 0092 0176 | v| Action Push_String_Extended,0x176 ; "\x22, " 0169 01cc | | Execute Vector,Catenate 016a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 016b ; -------------------------------------------------------------------------------------- 016b ; STRING TABLE 016b ; -------------------------------------------------------------------------------------- 016b 001a | | .STRTAB 0x001a->0x0178 ; "[" 016c 0019 | | .STRTAB 0x0019->0x0178 ; " completed successfully]" 016d 002f | / | .STRTAB 0x002f->0x0184 ; " completed with 1 warning]" 016e 0047 | G | .STRTAB 0x0047->0x0191 ; " terminated after 1 error]" 016f 005f | _ | .STRTAB 0x005f->0x019e ; " terminated after" 0170 006e | n | .STRTAB 0x006e->0x01a7 ; " errors]" 0171 0074 | t | .STRTAB 0x0074->0x01ab ; " completed with" 0172 0081 | | .STRTAB 0x0081->0x01b2 ; " warnings]" 0173 0089 | | .STRTAB 0x0089->0x01b7 ; " error(s) and" 0174 0094 | | .STRTAB 0x0094->0x01be ; " warning(s)]" 0175 009e | | .STRTAB 0x009e->0x01c4 ; " => \x22" 0176 00a1 | | .STRTAB 0x00a1->0x01c6 ; "\x22, " 0177 00a2 | | .STREND 0x00a2->0x01c8 0178 5b20 636f |[ co| .STRTAB_STRINGS 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; Debug Table 01c8 ; -------------------------------------------------------------------------------------- 01c8 0004 000d | | .DEBUG4 0x0004,0x000d,0x4f50,0x0000,0x0001,0x0000 01ce 3024 c6f6 |0$ | .XXX[0x1f] 01d0 36b5 f457 |6 W| 01d2 2726 f721 |'& !| 01d4 3215 5534 |2 U4| 01d6 5525 32e4 |U%2 | 01d8 6414 9484 |d | 01da 52e5 0524 |R $| 01dc f4a4 5435 | T5| 01de 42e5 24f4 |B $ | 01e0 c452 7535 | Ru5| 01e2 0454 3275 | T2u| 01e4 6283 1302 |b | 01e6 9206 9732 | 2| 01e8 06c6 f636 | 6| 01ea b656 42e1 | VB | 01ec 3000 |0 | 01ed 0000 0000 | | .BLANK 0000[0x13]