|
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_0368ff
└─⟦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 0148 | H | .CONST 0x0148 ; 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 003d | = | .CONST 0x003d ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0012 | | .CONST 0x0012 ; Number of locals 000b INIT_0008: 000b 6068 |`h | Indirect_Literal Discrete,0x74,{0x00000000, 0x00000ccd} 000c 00e7 | | Load_Encached Duration_Cache 000d 03f0 | | Declare_Variable Discrete,Visible,With_Value 000e 4800 |H | Short_Literal 0x0 000f e001 | | Load 0x0,0x1 0010 02a0 | | Declare_Subprogram Null_Subprogram 0011 038f | | Declare_Type Package,Defined,Visible 0012 0386 | | Declare_Variable Package,Visible 0013 4800 |H | Short_Literal 0x0 0014 e002 | | Load 0x0,0x2 0015 02a0 | | Declare_Subprogram Null_Subprogram 0016 038f | | Declare_Type Package,Defined,Visible 0017 0386 | | Declare_Variable Package,Visible 0018 00bf | | Action Accept_Activation 0019 4800 |H | Short_Literal 0x0 001a 6055 |`U | Indirect_Literal Discrete,0x70,{0x7fffffff, 0xffffffff} 001b 00e5 | | Load_Encached Long_Integer_Cache 001c 03f8 | | Declare_Type Discrete,Constrained 001d 029d 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call 001f 029d 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call 0021 00da | | Load_Top At_Offset_2 0022 e003 | | Load 0x0,0x3 0023 e004 | | Load 0x0,0x4 0024 e005 | | Load 0x0,0x5 0025 e006 | | Load 0x0,0x6 0026 e007 | | Load 0x0,0x7 0027 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0028 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0029 e008 | | Load 0x0,0x8 002a e009 | | Load 0x0,0x9 002b 480a |H | Short_Literal 0xa 002c e20e | | Load 0x1,0xe 002d 020e | | Execute Module,Augment_Imports 002e e20e | | Load 0x1,0xe 002f 020f | | Execute Module,Activate 0030 e00a | | Load 0x0,0xa 0031 e003 | | Load 0x0,0x3 0032 e004 | | Load 0x0,0x4 0033 e007 | | Load 0x0,0x7 0034 e00b | | Load 0x0,0xb 0035 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0036 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0037 e00c | | Load 0x0,0xc 0038 4808 |H | Short_Literal 0x8 0039 e20f | | Load 0x1,0xf 003a 020e | | Execute Module,Augment_Imports 003b 00db | | Load_Top At_Offset_3 003c 020f | | Execute Module,Activate 003d BODY_0008: 003d 00bc | | Action Signal_Activated 003e 00bb | | Action Signal_Completion 003f 0000 | | .XXX[0x1] 0040 ; -------------------------------------------------------------------------------------- 0040 ; SUBPROGRAM 0040 ; -------------------------------------------------------------------------------------- 0040 004d | M | .CONST 0x004d ; Address of begin 0041 0004 | | .CONST 0x0004 ; Address of exception handler 0042 0004 | | .CONST 0x0004 ; Number of locals 0043 INIT_0040: 0043 00da | | Load_Top At_Offset_2 0044 e210 | | Load 0x1,0x10 0045 03f1 | | Declare_Variable Discrete,With_Value 0046 4801 |H | Short_Literal 0x1 0047 4810 |H | Short_Literal 0x10 0048 00e9 | | Load_Encached String_Cache 0049 035b | [ | Declare_Type Array,Constrained 004a 0337 | 7 | Declare_Variable Array 004b 00e4 | | Load_Encached Positive_Cache 004c 0610 | | Execute_Immediate Set_Value_Unchecked,0x10 004d BODY_0040: 004d 00cf | | Action Mark_Auxiliary 004e 00db | | Load_Top At_Offset_3 004f 480f |H | Short_Literal 0xf 0050 0279 | y | Execute Discrete,And 0051 00d8 | | Load_Top At_Offset_0 0052 e00d | | Load 0x0,0xd 0053 0260 | ` | Execute Discrete,In_Type 0054 7001 |p | Jump_Nonzero 0x56 0055 0801 | | Execute_Immediate Raise,0x1 0056 e00e | | Load 0x0,0xe 0057 01d7 | | Execute Vector,Field_Read 0058 00da | | Load_Top At_Offset_2 0059 e403 | | Load 0x2,0x3 005a 01d6 | | Execute Vector,Field_Write 005b 00db | | Load_Top At_Offset_3 005c 09fc | | Execute_Immediate Binary_Scale,-0x4 005d c402 | | Store 0x2,0x2 005e 00db | | Load_Top At_Offset_3 005f 6805 |h | Jump_Zero 0x65 0060 00d9 | | Load_Top At_Offset_1 0061 0aff | | Execute_Immediate Plus,-0x1 0062 005a | Z | Store_Top Discrete,At_Offset_2 0063 00c9 | | Action Pop_Auxiliary_Loop 0064 7fe9 | | Jump 0x4e 0065 00ce | | Action Pop_Auxiliary 0066 00d8 | | Load_Top At_Offset_0 0067 4810 |H | Short_Literal 0x10 0068 00db | | Load_Top At_Offset_3 0069 01cf | | Execute Vector,Slice_Read 006a 00e9 | | Load_Encached String_Cache 006b 01c6 | | Execute Vector,Convert_To_Formal 006c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 006d 0000 0000 | | .XXX[0x3] 006f 0000 | | 0070 7fff ffff | | .LITERAL {0x7fffffff, 0xffffffff} 0074 0000 0000 | | .LITERAL {0x00000000, 0x00000ccd} 0078 ; -------------------------------------------------------------------------------------- 0078 ; SUBPROGRAM 0078 ; -------------------------------------------------------------------------------------- 0078 0083 | | .CONST 0x0083 ; Address of begin 0079 0004 | | .CONST 0x0004 ; Address of exception handler 007a 0003 | | .CONST 0x0003 ; Number of locals 007b INIT_0078: 007b 00da | | Load_Top At_Offset_2 007c 01dd | | Execute Vector,First 007d 00e3 | | Load_Encached Natural_Cache 007e 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 007f 00db | | Load_Top At_Offset_3 0080 01dc | | Execute Vector,Last 0081 00e2 | | Load_Encached Integer_Cache 0082 03f1 | | Declare_Variable Discrete,With_Value 0083 BODY_0078: 0083 e5ff | | Load 0x2,-0x1 0084 e5fe | | Load 0x2,-0x2 0085 01df | | Execute Vector,Equal 0086 70a5 |p | Jump_Nonzero 0x12c 0087 e5ff | | Load 0x2,-0x1 0088 01db | | Execute Vector,Length 0089 e5fe | | Load 0x2,-0x2 008a 01db | | Execute Vector,Length 008b 027f | | Execute Discrete,Equal 008c 6888 |h | Jump_Zero 0x115 008d 00cf | | Action Mark_Auxiliary 008e 7804 |x | Jump 0x93 008f 00da | | Load_Top At_Offset_2 0090 0a01 | | Execute_Immediate Plus,0x1 0091 005b | [ | Store_Top Discrete,At_Offset_3 0092 00c9 | | Action Pop_Auxiliary_Loop 0093 00da | | Load_Top At_Offset_2 0094 00da | | Load_Top At_Offset_2 0095 027a | z | Execute Discrete,Less_Equal 0096 680e |h | Jump_Zero 0xa5 0097 00da | | Load_Top At_Offset_2 0098 e5ff | | Load 0x2,-0x1 0099 01d7 | | Execute Vector,Field_Read 009a e5fe | | Load 0x2,-0x2 009b 01dd | | Execute Vector,First 009c e402 | | Load 0x2,0x2 009d 0273 | s | Execute Discrete,Plus 009e e5ff | | Load 0x2,-0x1 009f 01dd | | Execute Vector,First 00a0 0272 | r | Execute Discrete,Minus 00a1 e5fe | | Load 0x2,-0x2 00a2 01d7 | | Execute Vector,Field_Read 00a3 027f | | Execute Discrete,Equal 00a4 77ea |w | Jump_Nonzero 0x8f 00a5 00c9 | | Action Pop_Auxiliary_Loop 00a6 7804 |x | Jump 0xab 00a7 00d9 | | Load_Top At_Offset_1 00a8 0aff | | Execute_Immediate Plus,-0x1 00a9 005a | Z | Store_Top Discrete,At_Offset_2 00aa 00c9 | | Action Pop_Auxiliary_Loop 00ab 00da | | Load_Top At_Offset_2 00ac 00da | | Load_Top At_Offset_2 00ad 027a | z | Execute Discrete,Less_Equal 00ae 680e |h | Jump_Zero 0xbd 00af 00d9 | | Load_Top At_Offset_1 00b0 e5ff | | Load 0x2,-0x1 00b1 01d7 | | Execute Vector,Field_Read 00b2 e5fe | | Load 0x2,-0x2 00b3 01dd | | Execute Vector,First 00b4 00db | | Load_Top At_Offset_3 00b5 0273 | s | Execute Discrete,Plus 00b6 e5ff | | Load 0x2,-0x1 00b7 01dd | | Execute Vector,First 00b8 0272 | r | Execute Discrete,Minus 00b9 e5fe | | Load 0x2,-0x2 00ba 01d7 | | Execute Vector,Field_Read 00bb 027f | | Execute Discrete,Equal 00bc 77ea |w | Jump_Nonzero 0xa7 00bd 00ce | | Action Pop_Auxiliary 00be e003 | | Load 0x0,0x3 00bf 180e | | Execute Package,Field_Execute,Field_Number 0xe 00c0 4807 |H | Short_Literal 0x7 00c1 e5fd | | Load 0x2,-0x3 00c2 0092 012d | -| Action Push_String_Extended,0x12d ; ".Data(+" 00c4 01cc | | Execute Vector,Catenate 00c5 e402 | | Load 0x2,0x2 00c6 e5ff | | Load 0x2,-0x1 00c7 01dd | | Execute Vector,First 00c8 0272 | r | Execute Discrete,Minus 00c9 00d8 | | Load_Top At_Offset_0 00ca 00e2 | | Load_Encached Integer_Cache 00cb 0260 | ` | Execute Discrete,In_Type 00cc 7001 |p | Jump_Nonzero 0xce 00cd 0801 | | Execute_Immediate Raise,0x1 00ce 00e0 | | Load_Encached Standard_Cache 00cf 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00d0 01cc | | Execute Vector,Catenate 00d1 0092 012e | .| Action Push_String_Extended,0x12e ; "..+" 00d3 01cc | | Execute Vector,Catenate 00d4 00db | | Load_Top At_Offset_3 00d5 e5ff | | Load 0x2,-0x1 00d6 01dd | | Execute Vector,First 00d7 0272 | r | Execute Discrete,Minus 00d8 00d8 | | Load_Top At_Offset_0 00d9 00e2 | | Load_Encached Integer_Cache 00da 0260 | ` | Execute Discrete,In_Type 00db 7001 |p | Jump_Nonzero 0xdd 00dc 0801 | | Execute_Immediate Raise,0x1 00dd 00e0 | | Load_Encached Standard_Cache 00de 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00df 01cc | | Execute Vector,Catenate 00e0 0092 012f | /| Action Push_String_Extended,0x12f ; ") =" 00e2 01cc | | Execute Vector,Catenate 00e3 e004 | | Load 0x0,0x4 00e4 180d | | Execute Package,Field_Execute,Field_Number 0xd 00e5 e003 | | Load 0x0,0x3 00e6 180e | | Execute Package,Field_Execute,Field_Number 0xe 00e7 4807 |H | Short_Literal 0x7 00e8 00db | | Load_Top At_Offset_3 00e9 00db | | Load_Top At_Offset_3 00ea e5ff | | Load 0x2,-0x1 00eb 01cf | | Execute Vector,Slice_Read 00ec e004 | | Load 0x0,0x4 00ed 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00ee 0092 0130 | 0| Action Push_String_Extended,0x130 ; ", not " 00f0 01cc | | Execute Vector,Catenate 00f1 e004 | | Load 0x0,0x4 00f2 180d | | Execute Package,Field_Execute,Field_Number 0xd 00f3 e003 | | Load 0x0,0x3 00f4 180e | | Execute Package,Field_Execute,Field_Number 0xe 00f5 4807 |H | Short_Literal 0x7 00f6 e5fe | | Load 0x2,-0x2 00f7 01dd | | Execute Vector,First 00f8 e402 | | Load 0x2,0x2 00f9 e5ff | | Load 0x2,-0x1 00fa 01dd | | Execute Vector,First 00fb 0272 | r | Execute Discrete,Minus 00fc 0273 | s | Execute Discrete,Plus 00fd 00d8 | | Load_Top At_Offset_0 00fe 00e2 | | Load_Encached Integer_Cache 00ff 0260 | ` | Execute Discrete,In_Type 0100 7001 |p | Jump_Nonzero 0x102 0101 0801 | | Execute_Immediate Raise,0x1 0102 e5fe | | Load 0x2,-0x2 0103 01dd | | Execute Vector,First 0104 e403 | | Load 0x2,0x3 0105 e5ff | | Load 0x2,-0x1 0106 01dd | | Execute Vector,First 0107 0272 | r | Execute Discrete,Minus 0108 0273 | s | Execute Discrete,Plus 0109 00d8 | | Load_Top At_Offset_0 010a 00e2 | | Load_Encached Integer_Cache 010b 0260 | ` | Execute Discrete,In_Type 010c 7001 |p | Jump_Nonzero 0x10e 010d 0801 | | Execute_Immediate Raise,0x1 010e e5fe | | Load 0x2,-0x2 010f 01cf | | Execute Vector,Slice_Read 0110 e004 | | Load 0x0,0x4 0111 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0112 e004 | | Load 0x0,0x4 0113 180d | | Execute Package,Field_Execute,Field_Number 0xd 0114 7814 |x | Jump 0x129 0115 e003 | | Load 0x0,0x3 0116 180e | | Execute Package,Field_Execute,Field_Number 0xe 0117 4807 |H | Short_Literal 0x7 0118 e5fd | | Load 0x2,-0x3 0119 0092 0131 | 1| Action Push_String_Extended,0x131 ; ".Data = " 011b 01cc | | Execute Vector,Catenate 011c e5ff | | Load 0x2,-0x1 011d e004 | | Load 0x0,0x4 011e 1818 | | Execute Package,Field_Execute,Field_Number 0x18 011f 01cc | | Execute Vector,Catenate 0120 0092 0130 | 0| Action Push_String_Extended,0x130 ; ", not " 0122 01cc | | Execute Vector,Catenate 0123 e5fe | | Load 0x2,-0x2 0124 e004 | | Load 0x0,0x4 0125 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0126 01cc | | Execute Vector,Catenate 0127 e004 | | Load 0x0,0x4 0128 180d | | Execute Package,Field_Execute,Field_Number 0xd 0129 e004 | | Load 0x0,0x4 012a 1b17 | | Execute Package,Field_Read,Field_Number 0x17 012b 0257 | W | Execute Discrete,Raise 012c 4504 |E | Exit_Suprogram New_Top_Offset 0x4 012d ; -------------------------------------------------------------------------------------- 012d ; STRING TABLE 012d ; -------------------------------------------------------------------------------------- 012d 000c | | .STRTAB 0x000c->0x0133 ; ".Data(+" 012e 0011 | | .STRTAB 0x0011->0x0136 ; "..+" 012f 0012 | | .STRTAB 0x0012->0x0138 ; ") =" 0130 0013 | | .STRTAB 0x0013->0x0139 ; ", not " 0131 0017 | | .STRTAB 0x0017->0x013c ; ".Data = " 0132 001d | | .STREND 0x001d->0x0140 0133 2e44 6174 |.Dat| .STRTAB_STRINGS 0141 0000 0000 | | .BLANK 0000[0x7] 0148 ; -------------------------------------------------------------------------------------- 0148 ; Debug Table 0148 ; -------------------------------------------------------------------------------------- 0148 0004 000d | | .DEBUG4 0x0004,0x000d,0x6df3,0x0000,0x0001,0x0000 014e 03fc 0000 | | .XXX[0xb2] 0150 0003 fc00 | | 0152 0000 03fc | | 0154 0000 0003 | | 0156 fc00 0000 | | 0158 03fc 0000 | | 015a 0003 fc00 | | 015c 0000 03fc | | 015e 0000 0003 | | 0160 fc00 0000 | | 0162 03fc 0000 | | 0164 0003 fc00 | | 0166 0000 03fc | | 0168 0000 0003 | | 016a fc00 0000 | | 016c 03fc 0000 | | 016e 0003 fc00 | | 0170 0000 03fc | | 0172 0000 0003 | | 0174 fc00 0000 | | 0176 03fc 0000 | | 0178 0003 fc00 | | 017a 0000 03fc | | 017c 0000 0003 | | 017e fc00 0000 | | 0180 03fc 0000 | | 0182 0003 fc00 | | 0184 0000 03fc | | 0186 0000 0003 | | 0188 fc00 0000 | | 018a 03fc 0000 | | 018c 0003 fc00 | | 018e 0000 03fc | | 0190 0000 0003 | | 0192 fc00 0000 | | 0194 03fc 0000 | | 0196 0003 fc00 | | 0198 0000 03fc | | 019a 0000 0003 | | 019c fc00 0000 | | 019e 03fc 0000 | | 01a0 0003 fc00 | | 01a2 0000 03fc | | 01a4 0000 0003 | | 01a6 fc00 0000 | | 01a8 03fc 0000 | | 01aa 0003 fc00 | | 01ac 0000 03fc | | 01ae 0000 0003 | | 01b0 fc00 0000 | | 01b2 03fc 0000 | | 01b4 0003 fc00 | | 01b6 0000 03fc | | 01b8 0000 0003 | | 01ba fc00 0000 | | 01bc 03fc 0000 | | 01be 0003 fc00 | | 01c0 0000 03fc | | 01c2 0000 0003 | | 01c4 fc00 0000 | | 01c6 03fc 0000 | | 01c8 0003 fc00 | | 01ca 0000 03fc | | 01cc 0000 0003 | | 01ce fc00 0000 | | 01d0 03fc 0000 | | 01d2 0003 fc00 | | 01d4 0000 03fc | | 01d6 0000 0003 | | 01d8 fc00 0000 | | 01da 03fc 0000 | | 01dc 0003 fc00 | | 01de 0000 03fc | | 01e0 0000 0003 | | 01e2 fc00 0000 | | 01e4 03fc 0000 | | 01e6 0003 fc00 | | 01e8 0000 03fc | | 01ea 0000 0003 | | 01ec fc00 0000 | | 01ee 03fc 0000 | | 01f0 0003 fc00 | | 01f2 0000 03fc | | 01f4 0000 0003 | | 01f6 fc00 0000 | | 01f8 03fc 0000 | | 01fa 0003 fc00 | | 01fc 0000 03fc | | 01fe 0000 0003 | |