|
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_779ce4
└─⟦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 0160 | ` | .CONST 0x0160 ; 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 006f | o | .CONST 0x006f ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0011 | | .CONST 0x0011 ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 4808 |H | Short_Literal 0x8 000d 029f 007b | {| Declare_Subprogram INIT_0078,For_Call 000f 03fe | | Declare_Type Discrete,Defined,Visible 0010 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated 0012 0093 0000 | | push_full_address 0x0 0014 608b |` | Indirect_Literal Discrete,0xa0,{0x80000000, 0x00010000} 0015 0273 | s | Execute Discrete,Plus 0016 0129 | ) | Execute Any,Make_Visible 0017 00bf | | Action Accept_Activation 0018 e002 | | Load 0x0,0x2 0019 0266 | f | Execute Discrete,Bounds 001a e20d | | Load 0x1,0xd 001b 02a0 | | Declare_Subprogram Null_Subprogram 001c 4801 |H | Short_Literal 0x1 001d 035d | ] | Declare_Type Array,Defined 001e 00d8 | | Load_Top At_Offset_0 001f 0337 | 7 | Declare_Variable Array 0020 00d8 | | Load_Top At_Offset_0 0021 0335 | 5 | Declare_Variable Array,Duplicate 0022 00cd | | Action Spare6_Action 0023 4800 |H | Short_Literal 0x0 0024 4800 |H | Short_Literal 0x0 0025 00da | | Load_Top At_Offset_2 0026 01d6 | | Execute Vector,Field_Write 0027 4801 |H | Short_Literal 0x1 0028 4801 |H | Short_Literal 0x1 0029 00da | | Load_Top At_Offset_2 002a 01d6 | | Execute Vector,Field_Write 002b 4802 |H | Short_Literal 0x2 002c 4802 |H | Short_Literal 0x2 002d 00da | | Load_Top At_Offset_2 002e 01d6 | | Execute Vector,Field_Write 002f 4800 |H | Short_Literal 0x0 0030 4803 |H | Short_Literal 0x3 0031 00da | | Load_Top At_Offset_2 0032 01d6 | | Execute Vector,Field_Write 0033 4800 |H | Short_Literal 0x0 0034 4804 |H | Short_Literal 0x4 0035 00da | | Load_Top At_Offset_2 0036 01d6 | | Execute Vector,Field_Write 0037 4803 |H | Short_Literal 0x3 0038 4805 |H | Short_Literal 0x5 0039 00da | | Load_Top At_Offset_2 003a 01d6 | | Execute Vector,Field_Write 003b 4804 |H | Short_Literal 0x4 003c 4806 |H | Short_Literal 0x6 003d 00da | | Load_Top At_Offset_2 003e 01d6 | | Execute Vector,Field_Write 003f 4800 |H | Short_Literal 0x0 0040 4807 |H | Short_Literal 0x7 0041 00da | | Load_Top At_Offset_2 0042 01d6 | | Execute Vector,Field_Write 0043 4800 |H | Short_Literal 0x0 0044 4808 |H | Short_Literal 0x8 0045 00da | | Load_Top At_Offset_2 0046 01d6 | | Execute Vector,Field_Write 0047 4805 |H | Short_Literal 0x5 0048 4809 |H | Short_Literal 0x9 0049 00da | | Load_Top At_Offset_2 004a 01d6 | | Execute Vector,Field_Write 004b 4806 |H | Short_Literal 0x6 004c 480a |H | Short_Literal 0xa 004d 00da | | Load_Top At_Offset_2 004e 01d6 | | Execute Vector,Field_Write 004f 4807 |H | Short_Literal 0x7 0050 480b |H | Short_Literal 0xb 0051 00da | | Load_Top At_Offset_2 0052 01d6 | | Execute Vector,Field_Write 0053 4800 |H | Short_Literal 0x0 0054 480c |H | Short_Literal 0xc 0055 00da | | Load_Top At_Offset_2 0056 01d6 | | Execute Vector,Field_Write 0057 4808 |H | Short_Literal 0x8 0058 480d |H | Short_Literal 0xd 0059 00da | | Load_Top At_Offset_2 005a 01d6 | | Execute Vector,Field_Write 005b 4800 |H | Short_Literal 0x0 005c 480e |H | Short_Literal 0xe 005d 00da | | Load_Top At_Offset_2 005e 01d6 | | Execute Vector,Field_Write 005f 4800 |H | Short_Literal 0x0 0060 480f |H | Short_Literal 0xf 0061 00da | | Load_Top At_Offset_2 0062 01d6 | | Execute Vector,Field_Write 0063 4800 |H | Short_Literal 0x0 0064 4810 |H | Short_Literal 0x10 0065 00da | | Load_Top At_Offset_2 0066 01d6 | | Execute Vector,Field_Write 0067 4800 |H | Short_Literal 0x0 0068 4811 |H | Short_Literal 0x11 0069 00da | | Load_Top At_Offset_2 006a 01d6 | | Execute Vector,Field_Write 006b 00d9 | | Load_Top At_Offset_1 006c 01d4 | | Execute Vector,Structure_Write 006d 1d0e | | Execute_Immediate Reference_Lex_1,0xe 006e 00c7 | | Action Elaborate_Subprogram 006f BODY_0008: 006f 00bc | | Action Signal_Activated 0070 00bb | | Action Signal_Completion 0071 0000 0000 | | .BLANK 0000[0x7] 0078 ; -------------------------------------------------------------------------------------- 0078 ; SUBPROGRAM 0078 ; -------------------------------------------------------------------------------------- 0078 007b | { | .CONST 0x007b ; Address of begin 0079 0004 | | .CONST 0x0004 ; Address of exception handler 007a 0001 | | .CONST 0x0001 ; Number of locals 007b BODY_0078: 007b INIT_0078: 007b 4607 |F | Jump_Case 0x8 007c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 007d 7807 |x | Jump 0x85 ; case 0x1 007e 780a |x | Jump 0x89 ; case 0x2 007f 780e |x | Jump 0x8e ; case 0x3 0080 7811 |x | Jump 0x92 ; case 0x4 0081 7812 |x | Jump 0x94 ; case 0x5 0082 7813 |x | Jump 0x96 ; case 0x6 0083 7816 |x | Jump 0x9a ; case 0x7 0084 4302 |C | .XXX[0x1] 0085 00da | | Load_Top At_Offset_2 0086 0091 0115 | | Action Push_String_Extended_Indexed,0x115 ; "NONE" 0088 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0089 00db | | Load_Top At_Offset_3 008a 00db | | Load_Top At_Offset_3 008b 00e0 | | Load_Encached Standard_Cache 008c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 008d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 008e 00da | | Load_Top At_Offset_2 008f 00e0 | | Load_Encached Standard_Cache 0090 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0091 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0092 00db | | Load_Top At_Offset_3 0093 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0094 00db | | Load_Top At_Offset_3 0095 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0096 e20d | | Load 0x1,0xd 0097 00dc | | Load_Top At_Offset_4 0098 0267 | g | Execute Discrete,Predecessor 0099 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 009a e20d | | Load 0x1,0xd 009b 00dc | | Load_Top At_Offset_4 009c 0268 | h | Execute Discrete,Successor 009d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 009e 0000 0000 | | .XXX[0x2] 00a0 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 00a4 0000 0000 | | .BLANK 0000[0x4] 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00bd | | .CONST 0x00bd ; Address of begin 00a9 00e2 | | .CONST 0x00e2 ; Address of exception handler 00aa 0008 | | .CONST 0x0008 ; Number of locals 00ab INIT_00a8: 00ab e003 | | Load 0x0,0x3 00ac 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00ad 02c7 | | Declare_Variable Any 00ae 00d8 | | Load_Top At_Offset_0 00af 1c00 | | Execute_Immediate Run_Utility,0x0 00b0 4801 |H | Short_Literal 0x1 00b1 4be8 |K | Short_Literal 0x3e8 00b2 00e9 | | Load_Encached String_Cache 00b3 035b | [ | Declare_Type Array,Constrained 00b4 0337 | 7 | Declare_Variable Array 00b5 00e3 | | Load_Encached Natural_Cache 00b6 00e3 | | Load_Encached Natural_Cache 00b7 00e3 | | Load_Encached Natural_Cache 00b8 e5ff | | Load 0x2,-0x1 00b9 0335 | 5 | Declare_Variable Array,Duplicate 00ba 00cd | | Action Spare6_Action 00bb 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call 00bd BODY_00a8: 00bd e402 | | Load 0x2,0x2 00be 00ea | | Load_Encached Null_String_Cache 00bf 00db | | Load_Top At_Offset_3 00c0 4800 |H | Short_Literal 0x0 00c1 e003 | | Load 0x0,0x3 00c2 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00c3 c402 | | Store 0x2,0x2 00c4 00cf | | Action Mark_Auxiliary 00c5 00e3 | | Load_Encached Natural_Cache 00c6 e403 | | Load 0x2,0x3 00c7 e402 | | Load 0x2,0x2 00c8 e003 | | Load 0x0,0x3 00c9 1861 | a | Execute Package,Field_Execute,Field_Number 0x61 00ca 00d1 | | Pop_Control Pop_Count_1 00cb c404 | | Store 0x2,0x4 00cc e404 | | Load 0x2,0x4 00cd 6810 |h | Jump_Zero 0xde 00ce 4800 |H | Short_Literal 0x0 00cf 4801 |H | Short_Literal 0x1 00d0 e404 | | Load 0x2,0x4 00d1 e403 | | Load 0x2,0x3 00d2 01cf | | Execute Vector,Slice_Read 00d3 0092 011e | | Action Push_String_Extended,0x11e ; "=>" 00d5 e004 | | Load 0x0,0x4 00d6 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00d7 a405 | | Store_Unchecked 0x2,0x5 00d8 e405 | | Load 0x2,0x5 00d9 6802 |h | Jump_Zero 0xdc 00da 8408 | | Call 0x2,0x8 00db 7804 |x | Jump 0xe0 00dc e20f | | Load 0x1,0xf 00dd 0257 | W | Execute Discrete,Raise 00de 00c9 | | Action Pop_Auxiliary_Loop 00df 7fe5 | | Jump 0xc5 00e0 00ce | | Action Pop_Auxiliary 00e1 0831 | 1 | Execute_Immediate Raise,0x31 00e2 TRAP_00a8: 00e2 e20f | | Load 0x1,0xf 00e3 010f | | Execute Exception,Equal 00e4 6806 |h | Jump_Zero 0xeb 00e5 e402 | | Load 0x2,0x2 00e6 e003 | | Load 0x0,0x3 00e7 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00e8 c402 | | Store 0x2,0x2 00e9 e20f | | Load 0x1,0xf 00ea 0257 | W | Execute Discrete,Raise 00eb e402 | | Load 0x2,0x2 00ec e003 | | Load 0x0,0x3 00ed 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00ee c402 | | Store 0x2,0x2 00ef 4800 |H | Short_Literal 0x0 00f0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00f1 0000 0000 | | .BLANK 0000[0x7] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 0105 | | .CONST 0x0105 ; Address of begin 00f9 0112 | | .CONST 0x0112 ; Address of exception handler 00fa 0003 | | .CONST 0x0003 ; Number of locals 00fb INIT_00f8: 00fb 4820 |H | Short_Literal 0x20 00fc 4801 |H | Short_Literal 0x1 00fd e405 | | Load 0x2,0x5 00fe 0aff | | Execute_Immediate Plus,-0x1 00ff e403 | | Load 0x2,0x3 0100 01cf | | Execute Vector,Slice_Read 0101 e004 | | Load 0x0,0x4 0102 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0103 e002 | | Load 0x0,0x2 0104 0007 | | Action Break_Optional 0105 BODY_00f8: 0105 00d9 | | Load_Top At_Offset_1 0106 e002 | | Load 0x0,0x2 0107 1c02 | | Execute_Immediate Run_Utility,0x2 0108 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0109 e402 | | Load 0x2,0x2 010a e003 | | Load 0x0,0x3 010b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 010c c402 | | Store 0x2,0x2 010d 00d8 | | Load_Top At_Offset_0 010e e211 | | Load 0x1,0x11 010f 01d7 | | Execute Vector,Field_Read 0110 00cb | | Action Pop_Block_With_Result 0111 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0112 TRAP_00f8: 0112 0007 | | Action Break_Optional 0113 e20f | | Load 0x1,0xf 0114 0257 | W | Execute Discrete,Raise 0115 ; -------------------------------------------------------------------------------------- 0115 ; STRING TABLE 0115 ; -------------------------------------------------------------------------------------- 0115 0016 | | .STRTAB 0x0016->0x0120 ; "NONE" 0116 0018 | | .STRTAB 0x0018->0x0122 ; "TEST_RUN_GROUP" 0117 0024 | $ | .STRTAB 0x0024->0x0129 ; "TEST_RUN" 0118 002a | * | .STRTAB 0x002a->0x012d ; "TEST_CASE" 0119 0031 | 1 | .STRTAB 0x0031->0x0131 ; "TEST_SET" 011a 0037 | 7 | .STRTAB 0x0037->0x0135 ; "TEST_CONTEXT" 011b 0041 | A | .STRTAB 0x0041->0x013b ; "SCRIPT_EXECUTION_CONTROL" 011c 0057 | W | .STRTAB 0x0057->0x0147 ; "SCRIPT_CONSTRUCTION_CONTROL" 011d 0070 | p | .STRTAB 0x0070->0x0155 ; "COVERAGE_RUN" 011e 007a | z | .STRTAB 0x007a->0x015b ; "=>" 011f 007a | z | .STREND 0x007a->0x015c 0120 4e4f 4e45 |NONE| .STRTAB_STRINGS 015c 0000 0000 | | .BLANK 0000[0x4] 0160 ; -------------------------------------------------------------------------------------- 0160 ; Debug Table 0160 ; -------------------------------------------------------------------------------------- 0160 0004 000a | | .DEBUG4 0x0004,0x000a,0x5473,0x0000,0x0001,0x0000 0166 0000 0000 | | .BLANK 0000[0x9a]