|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0340e4
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0138 | 8 | .CONST 0x0138 ; 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 0000 | | .CONST 0x0000 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0019 | | .CONST 0x0019 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0004 | | .CONST 0x0004 ; Number of locals 000b INIT_0008: 000b e003 | | Load 0x0,0x3 000c 1b19 | | Execute Package,Field_Read,Field_Number 0x19 000d 02c7 | | Declare_Variable Any 000e 4801 |H | Short_Literal 0x1 000f 4800 |H | Short_Literal 0x0 0010 e5ff | | Load 0x2,-0x1 0011 e003 | | Load 0x0,0x3 0012 1b58 | X | Execute Package,Field_Read,Field_Number 0x58 0013 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0014 a402 | | Store_Unchecked 0x2,0x2 0015 029f 005b | [| Declare_Subprogram INIT_0058,For_Call 0017 029f 007b | {| Declare_Subprogram INIT_0078,For_Call 0019 BODY_0008: 0019 e005 | | Load 0x0,0x5 001a 180e | | Execute Package,Field_Execute,Field_Number 0xe 001b 4802 |H | Short_Literal 0x2 001c 0092 00ea | | Action Push_String_Extended,0xea ; "[Call_Trees.List (These_Objects => " 001e e5ff | | Load 0x2,-0x1 001f 01cc | | Execute Vector,Catenate 0020 0092 00eb | | Action Push_String_Extended,0xeb ; ")]" 0022 01cc | | Execute Vector,Catenate 0023 e006 | | Load 0x0,0x6 0024 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0025 4801 |H | Short_Literal 0x1 0026 e00c | | Load 0x0,0xc 0027 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0028 00da | | Load_Top At_Offset_2 0029 e003 | | Load 0x0,0x3 002a 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 002b c402 | | Store 0x2,0x2 002c 00da | | Load_Top At_Offset_2 002d e003 | | Load 0x0,0x3 002e 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 002f 680d |h | Jump_Zero 0x3d 0030 e005 | | Load 0x0,0x5 0031 180e | | Execute Package,Field_Execute,Field_Number 0xe 0032 4807 |H | Short_Literal 0x7 0033 0092 00ec | | Action Push_String_Extended,0xec ; "ERROR: " 0035 e5ff | | Load 0x2,-0x1 0036 01cc | | Execute Vector,Catenate 0037 0092 00ed | | Action Push_String_Extended,0xed ; " does not resolve to any Ada program element" 0039 01cc | | Execute Vector,Catenate 003a e006 | | Load 0x0,0x6 003b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 003c 780d |x | Jump 0x4a 003d 00cf | | Action Mark_Auxiliary 003e 7806 |x | Jump 0x45 003f 8404 | | Call 0x2,0x4 0040 00db | | Load_Top At_Offset_3 0041 e003 | | Load 0x0,0x3 0042 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0043 c402 | | Store 0x2,0x2 0044 00c9 | | Action Pop_Auxiliary_Loop 0045 00db | | Load_Top At_Offset_3 0046 e003 | | Load 0x0,0x3 0047 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0048 6ff6 |o | Jump_Zero 0x3f 0049 00ce | | Action Pop_Auxiliary 004a e005 | | Load 0x0,0x5 004b 180e | | Execute Package,Field_Execute,Field_Number 0xe 004c 4802 |H | Short_Literal 0x2 004d 0092 00ee | | Action Push_String_Extended,0xee ; "[Call_Trees.List terminated]" 004f e006 | | Load 0x0,0x6 0050 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0051 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0052 0000 0000 | | .BLANK 0000[0x6] 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 0064 | d | .CONST 0x0064 ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 0003 | | .CONST 0x0003 ; Number of locals 005b INIT_0058: 005b e007 | | Load 0x0,0x7 005c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 005d 1b10 | | Execute Package,Field_Read,Field_Number 0x10 005e 0322 | " | Declare_Variable Record 005f 00db | | Load_Top At_Offset_3 0060 00d9 | | Load_Top At_Offset_1 0061 017d | } | Execute Record,Structure_Write 0062 029f 00b3 | | Declare_Subprogram INIT_00b0,For_Call 0064 BODY_0058: 0064 00d9 | | Load_Top At_Offset_1 0065 e007 | | Load 0x0,0x7 0066 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0067 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0068 00d1 | | Pop_Control Pop_Count_1 0069 00cf | | Action Mark_Auxiliary 006a 7807 |x | Jump 0x72 006b 8603 | | Call 0x3,0x3 006c 00da | | Load_Top At_Offset_2 006d e007 | | Load 0x0,0x7 006e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 006f 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0070 00d1 | | Pop_Control Pop_Count_1 0071 00c9 | | Action Pop_Auxiliary_Loop 0072 00da | | Load_Top At_Offset_2 0073 e007 | | Load 0x0,0x7 0074 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0075 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0076 6ff4 |o | Jump_Zero 0x6b 0077 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0078 ; -------------------------------------------------------------------------------------- 0078 ; SUBPROGRAM 0078 ; -------------------------------------------------------------------------------------- 0078 0093 | | .CONST 0x0093 ; Address of begin 0079 0004 | | .CONST 0x0004 ; Address of exception handler 007a 0003 | | .CONST 0x0003 ; Number of locals 007b INIT_0078: 007b e003 | | Load 0x0,0x3 007c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 007d 02c7 | | Declare_Variable Any 007e e402 | | Load 0x2,0x2 007f e003 | | Load 0x0,0x3 0080 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0081 a602 | | Store_Unchecked 0x3,0x2 0082 4801 |H | Short_Literal 0x1 0083 4850 |HP | Short_Literal 0x50 0084 00e9 | | Load_Encached String_Cache 0085 035b | [ | Declare_Type Array,Constrained 0086 0337 | 7 | Declare_Variable Array 0087 00d8 | | Load_Top At_Offset_0 0088 0335 | 5 | Declare_Variable Array,Duplicate 0089 00cd | | Action Spare6_Action 008a 4850 |HP | Short_Literal 0x50 008b 4801 |H | Short_Literal 0x1 008c 482d |H- | Short_Literal 0x2d 008d 00d9 | | Load_Top At_Offset_1 008e e604 | | Load 0x3,0x4 008f 01d6 | | Execute Vector,Field_Write 0090 3ffb |? | Loop_Increasing 0x8c 0091 00d9 | | Load_Top At_Offset_1 0092 01d4 | | Execute Vector,Structure_Write 0093 BODY_0078: 0093 00d9 | | Load_Top At_Offset_1 0094 8210 | | Call 0x1,0x10 0095 0092 00ef | | Action Push_String_Extended,0xef ; ":" 0097 01cc | | Execute Vector,Catenate 0098 e00c | | Load 0x0,0xc 0099 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 009a 4801 |H | Short_Literal 0x1 009b e00c | | Load 0x0,0xc 009c 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 009d 00d9 | | Load_Top At_Offset_1 009e e007 | | Load 0x0,0x7 009f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00a0 8403 | | Call 0x2,0x3 00a1 4801 |H | Short_Literal 0x1 00a2 e00c | | Load 0x0,0xc 00a3 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 00a4 00d8 | | Load_Top At_Offset_0 00a5 e00c | | Load 0x0,0xc 00a6 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 00a7 4801 |H | Short_Literal 0x1 00a8 e00c | | Load 0x0,0xc 00a9 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 00aa 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00ab 0000 0000 | | .BLANK 0000[0x5] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00d7 | | .CONST 0x00d7 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0003 | | .CONST 0x0003 ; Number of locals 00b3 INIT_00b0: 00b3 e007 | | Load 0x0,0x7 00b4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00b5 0322 | " | Declare_Variable Record 00b6 e602 | | Load 0x3,0x2 00b7 e007 | | Load 0x0,0x7 00b8 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00b9 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00ba 00d9 | | Load_Top At_Offset_1 00bb 017d | } | Execute Record,Structure_Write 00bc 4801 |H | Short_Literal 0x1 00bd 00d9 | | Load_Top At_Offset_1 00be 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00bf 4803 |H | Short_Literal 0x3 00c0 0271 | q | Execute Discrete,Times 00c1 00d8 | | Load_Top At_Offset_0 00c2 00e2 | | Load_Encached Integer_Cache 00c3 0260 | ` | Execute Discrete,In_Type 00c4 7001 |p | Jump_Nonzero 0xc6 00c5 0801 | | Execute_Immediate Raise,0x1 00c6 00e9 | | Load_Encached String_Cache 00c7 035b | [ | Declare_Type Array,Constrained 00c8 0337 | 7 | Declare_Variable Array 00c9 00d8 | | Load_Top At_Offset_0 00ca 0335 | 5 | Declare_Variable Array,Duplicate 00cb 00cd | | Action Spare6_Action 00cc 00d9 | | Load_Top At_Offset_1 00cd 01d9 | | Execute Vector,Reverse_Bounds 00ce 0263 | c | Execute Discrete,Above_Bound 00cf 7005 |p | Jump_Nonzero 0xd5 00d0 4820 |H | Short_Literal 0x20 00d1 00d9 | | Load_Top At_Offset_1 00d2 e804 | | Load 0x4,0x4 00d3 01d6 | | Execute Vector,Field_Write 00d4 3ffb |? | Loop_Increasing 0xd0 00d5 00d9 | | Load_Top At_Offset_1 00d6 01d4 | | Execute Vector,Structure_Write 00d7 BODY_00b0: 00d7 00d8 | | Load_Top At_Offset_0 00d8 00da | | Load_Top At_Offset_2 00d9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00da 8210 | | Call 0x1,0x10 00db 01cc | | Execute Vector,Catenate 00dc e00c | | Load 0x0,0xc 00dd 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 00de 00d9 | | Load_Top At_Offset_1 00df 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00e0 6804 |h | Jump_Zero 0xe5 00e1 4801 |H | Short_Literal 0x1 00e2 e00c | | Load 0x0,0xc 00e3 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 00e4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00e5 0092 00f0 | | Action Push_String_Extended,0xf0 ; " (see above)" 00e7 e00c | | Load 0x0,0xc 00e8 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 00e9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00ea ; -------------------------------------------------------------------------------------- 00ea ; STRING TABLE 00ea ; -------------------------------------------------------------------------------------- 00ea 0010 | | .STRTAB 0x0010->0x00f2 ; "[Call_Trees.List (These_Objects => " 00eb 0031 | 1 | .STRTAB 0x0031->0x0103 ; ")]" 00ec 0031 | 1 | .STRTAB 0x0031->0x0104 ; "ERROR: " 00ed 0036 | 6 | .STRTAB 0x0036->0x0108 ; " does not resolve to any Ada program element" 00ee 0060 | ` | .STRTAB 0x0060->0x011e ; "[Call_Trees.List terminated]" 00ef 007a | z | .STRTAB 0x007a->0x012c ; ":" 00f0 0079 | y | .STRTAB 0x0079->0x012c ; " (see above)" 00f1 0084 | | .STREND 0x0084->0x0133 00f2 5b43 616c |[Cal| .STRTAB_STRINGS 0133 0000 0000 | | .BLANK 0000[0x5] 0138 ; -------------------------------------------------------------------------------------- 0138 ; Debug Table 0138 ; -------------------------------------------------------------------------------------- 0138 0004 0004 | | .DEBUG4 0x0004,0x0004,0x2eb6,0x0000,0x0001,0x0004 013e 000b 014e | N| .DBG4T 0x000b,0x014e,0x0001,0x4000 0142 005b 0164 | [ d| .DBG4T 0x005b,0x0164,0x0001,0x4000 0146 007b 016f | { o| .DBG4T 0x007b,0x016f,0x0004,0x0000 014a 00b3 0179 | y| .DBG4T 0x00b3,0x0179,0x0004,0x0000 014e ; -------------------------------------------------------------------------------------- 014e ; Debug chain 014e ; -------------------------------------------------------------------------------------- 014e 0002 0009 | | .DBGLEN 0x0002,0x0009 0150 000b 0015 | | .DBGLNO 0x000b,0x0015,0x0019,0x0025,0x0028,0x002c,0x0030,0x003f,0x0040,0x0045,0x004a 015b 0001 0002 | | .XXX[0x9] 015d 0003 0004 | | 015f 0005 0007 | | 0161 0008 0006 | | 0163 0009 | | 0164 ; -------------------------------------------------------------------------------------- 0164 ; Debug chain 0164 ; -------------------------------------------------------------------------------------- 0164 0001 0004 | | .DBGLEN 0x0001,0x0004 0166 005b 0064 | [ d| .DBGLNO 0x005b,0x0064,0x006b,0x006c,0x0072 016b 0001 0003 | | .XXX[0x4] 016d 0004 0002 | | 016f ; -------------------------------------------------------------------------------------- 016f ; Debug chain 016f ; -------------------------------------------------------------------------------------- 016f 0002 0006 | | .DBGLEN 0x0002,0x0006 0171 007b 0082 | { | .DBGLNO 0x007b,0x0082,0x0093,0x009a,0x009d,0x00a1,0x00a4,0x00a7 0179 ; -------------------------------------------------------------------------------------- 0179 ; Debug chain 0179 ; -------------------------------------------------------------------------------------- 0179 0002 0004 | | .DBGLEN 0x0002,0x0004 017b 00b3 00bc | | .DBGLNO 0x00b3,0x00bc,0x00d7,0x00de,0x00e1,0x00e5 0181 0000 0000 | | .BLANK 0000[0x7f]