|
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_0a7cf5
└─⟦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 0130 | 0 | .CONST 0x0130 ; 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 005b | [ | .CONST 0x005b ; Address of begin 0019 0084 | | .CONST 0x0084 ; Address of exception handler 001a 0014 | | .CONST 0x0014 ; Number of locals 001b INIT_0018: 001b 4802 |H | Short_Literal 0x2 001c 032a | * | Declare_Type Record,Incomplete 001d 00d8 | | Load_Top At_Offset_0 001e 02a0 | | Declare_Subprogram Null_Subprogram 001f 4818 |H | Short_Literal 0x18 0020 03d3 | | Declare_Type Access,Defined,Accesses_Protected 0021 00e9 | | Load_Encached String_Cache 0022 02a0 | | Declare_Subprogram Null_Subprogram 0023 4818 |H | Short_Literal 0x18 0024 03d3 | | Declare_Type Access,Defined,Accesses_Protected 0025 00d8 | | Load_Top At_Offset_0 0026 00da | | Load_Top At_Offset_2 0027 02a0 | | Declare_Subprogram Null_Subprogram 0028 e402 | | Load 0x2,0x2 0029 0326 | & | Complete_Type Record,By_Defining 002a 00d9 | | Load_Top At_Offset_1 002b 00da | | Load_Top At_Offset_2 002c 02a0 | | Declare_Subprogram Null_Subprogram 002d 4802 |H | Short_Literal 0x2 002e 032d | - | Declare_Type Record,Defined 002f e001 | | Load 0x0,0x1 0030 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0031 02c7 | | Declare_Variable Any 0032 00d8 | | Load_Top At_Offset_0 0033 1c00 | | Execute_Immediate Run_Utility,0x0 0034 e5ff | | Load 0x2,-0x1 0035 e002 | | Load 0x0,0x2 0036 180e | | Execute Package,Field_Execute,Field_Number 0xe 0037 0f04 | | Execute_Immediate Equal,0x4 0038 0007 | | Action Break_Optional 0039 4802 |H | Short_Literal 0x2 003a e003 | | Load 0x0,0x3 003b 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 003c 1c07 | | Execute_Immediate Run_Utility,0x7 003d e003 | | Load 0x0,0x3 003e 1b8f | | Execute Package,Field_Read,Field_Number 0x8f 003f 02ff | | Declare_Variable Variant_Record 0040 00d8 | | Load_Top At_Offset_0 0041 1c00 | | Execute_Immediate Run_Utility,0x0 0042 e003 | | Load 0x0,0x3 0043 1b8f | | Execute Package,Field_Read,Field_Number 0x8f 0044 02ff | | Declare_Variable Variant_Record 0045 00d8 | | Load_Top At_Offset_0 0046 1c00 | | Execute_Immediate Run_Utility,0x0 0047 e004 | | Load 0x0,0x4 0048 02ab | | Declare_Subprogram For_Call,With_Address 0049 e005 | | Load 0x0,0x5 004a 02ab | | Declare_Subprogram For_Call,With_Address 004b e006 | | Load 0x0,0x6 004c 02ab | | Declare_Subprogram For_Call,With_Address 004d e007 | | Load 0x0,0x7 004e 02ab | | Declare_Subprogram For_Call,With_Address 004f e008 | | Load 0x0,0x8 0050 02ab | | Declare_Subprogram For_Call,With_Address 0051 e009 | | Load 0x0,0x9 0052 02ab | | Declare_Subprogram For_Call,With_Address 0053 e00a | | Load 0x0,0xa 0054 02ab | | Declare_Subprogram For_Call,With_Address 0055 e00b | | Load 0x0,0xb 0056 02ab | | Declare_Subprogram For_Call,With_Address 0057 e00c | | Load 0x0,0xc 0058 02ab | | Declare_Subprogram For_Call,With_Address 0059 e00d | | Load 0x0,0xd 005a 02ab | | Declare_Subprogram For_Call,With_Address 005b BODY_0018: 005b e5fc | | Load 0x2,-0x4 005c e00e | | Load 0x0,0xe 005d 1812 | | Execute Package,Field_Execute,Field_Number 0x12 005e c5fc | | Store 0x2,-0x4 005f e5fd | | Load 0x2,-0x3 0060 e5fe | | Load 0x2,-0x2 0061 e5ff | | Load 0x2,-0x1 0062 e003 | | Load 0x0,0x3 0063 1877 | w | Execute Package,Field_Execute,Field_Number 0x77 0064 e003 | | Load 0x0,0x3 0065 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0066 c406 | | Store 0x2,0x6 0067 840c | | Call 0x2,0xc 0068 840d | | Call 0x2,0xd 0069 840e | | Call 0x2,0xe 006a 4807 |H | Short_Literal 0x7 006b e003 | | Load 0x0,0x3 006c 1843 | C | Execute Package,Field_Execute,Field_Number 0x43 006d e003 | | Load 0x0,0x3 006e 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 006f e409 | | Load 0x2,0x9 0070 016d | m | Execute Variant_Record,Structure_Write 0071 e003 | | Load 0x0,0x3 0072 189a | | Execute Package,Field_Execute,Field_Number 0x9a 0073 e40a | | Load 0x2,0xa 0074 016d | m | Execute Variant_Record,Structure_Write 0075 840f | | Call 0x2,0xf 0076 8410 | | Call 0x2,0x10 0077 8411 | | Call 0x2,0x11 0078 8412 | | Call 0x2,0x12 0079 8413 | | Call 0x2,0x13 007a 8414 | | Call 0x2,0x14 007b 00ea | | Load_Encached Null_String_Cache 007c e003 | | Load 0x0,0x3 007d 1b90 | | Execute Package,Field_Read,Field_Number 0x90 007e 4805 |H | Short_Literal 0x5 007f e003 | | Load 0x0,0x3 0080 1842 | B | Execute Package,Field_Execute,Field_Number 0x42 0081 e003 | | Load 0x0,0x3 0082 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0083 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0084 TRAP_0018: 0084 e003 | | Load 0x0,0x3 0085 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0086 010f | | Execute Exception,Equal 0087 6804 |h | Jump_Zero 0x8c 0088 e003 | | Load 0x0,0x3 0089 1879 | y | Execute Package,Field_Execute,Field_Number 0x79 008a c5fc | | Store 0x2,-0x4 008b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 008c e00f | | Load 0x0,0xf 008d 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a 008e 010f | | Execute Exception,Equal 008f 6810 |h | Jump_Zero 0xa0 0090 e00f | | Load 0x0,0xf 0091 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c 0092 c5fc | | Store 0x2,-0x4 0093 4800 |H | Short_Literal 0x0 0094 4800 |H | Short_Literal 0x0 0095 4807 |H | Short_Literal 0x7 0096 e5fc | | Load 0x2,-0x4 0097 0092 00df | | Action Push_String_Extended,0xdf ; "Ada Program query failed." 0099 e003 | | Load 0x0,0x3 009a 1818 | | Execute Package,Field_Execute,Field_Number 0x18 009b e003 | | Load 0x0,0x3 009c 1846 | F | Execute Package,Field_Execute,Field_Number 0x46 009d e003 | | Load 0x0,0x3 009e 1815 | | Execute Package,Field_Execute,Field_Number 0x15 009f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00a0 e001 | | Load 0x0,0x1 00a1 1b26 | & | Execute Package,Field_Read,Field_Number 0x26 00a2 010f | | Execute Exception,Equal 00a3 6813 |h | Jump_Zero 0xb7 00a4 e5fc | | Load 0x2,-0x4 00a5 e003 | | Load 0x0,0x3 00a6 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00a7 e001 | | Load 0x0,0x1 00a8 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 00a9 c5fc | | Store 0x2,-0x4 00aa 4800 |H | Short_Literal 0x0 00ab 4800 |H | Short_Literal 0x0 00ac 4807 |H | Short_Literal 0x7 00ad e5fc | | Load 0x2,-0x4 00ae 0092 00e0 | | Action Push_String_Extended,0xe0 ; "Abstract Document generation failed." 00b0 e003 | | Load 0x0,0x3 00b1 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00b2 e003 | | Load 0x0,0x3 00b3 1846 | F | Execute Package,Field_Execute,Field_Number 0x46 00b4 e003 | | Load 0x0,0x3 00b5 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00b6 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00b7 e00f | | Load 0x0,0xf 00b8 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 00b9 010f | | Execute Exception,Equal 00ba 6810 |h | Jump_Zero 0xcb 00bb e00f | | Load 0x0,0xf 00bc 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c 00bd c5fc | | Store 0x2,-0x4 00be 4800 |H | Short_Literal 0x0 00bf 4800 |H | Short_Literal 0x0 00c0 4807 |H | Short_Literal 0x7 00c1 e5fc | | Load 0x2,-0x4 00c2 0092 00e1 | | Action Push_String_Extended,0xe1 ; "Internal Error, Inappropriate Program Element" 00c4 e003 | | Load 0x0,0x3 00c5 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00c6 e003 | | Load 0x0,0x3 00c7 1846 | F | Execute Package,Field_Execute,Field_Number 0x46 00c8 e003 | | Load 0x0,0x3 00c9 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00ca 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00cb e5fc | | Load 0x2,-0x4 00cc e00e | | Load 0x0,0xe 00cd 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00ce e00e | | Load 0x0,0xe 00cf 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 00d0 e00e | | Load 0x0,0xe 00d1 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00d2 c5fc | | Store 0x2,-0x4 00d3 4800 |H | Short_Literal 0x0 00d4 4800 |H | Short_Literal 0x0 00d5 4808 |H | Short_Literal 0x8 00d6 0092 00e2 | | Action Push_String_Extended,0xe2 ; "Internal Error, Unexpected exception" 00d8 e003 | | Load 0x0,0x3 00d9 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00da e003 | | Load 0x0,0x3 00db 1845 | E | Execute Package,Field_Execute,Field_Number 0x45 00dc e003 | | Load 0x0,0x3 00dd 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00de 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00df ; -------------------------------------------------------------------------------------- 00df ; STRING TABLE 00df ; -------------------------------------------------------------------------------------- 00df 000a | | .STRTAB 0x000a->0x00e4 ; "Ada Program query failed." 00e0 0021 | ! | .STRTAB 0x0021->0x00f0 ; "Abstract Document generation failed." 00e1 0043 | C | .STRTAB 0x0043->0x0102 ; "Internal Error, Inappropriate Program Element" 00e2 006e | n | .STRTAB 0x006e->0x0119 ; "Internal Error, Unexpected exception" 00e3 0090 | | .STREND 0x0090->0x012b 00e4 4164 6120 |Ada | .STRTAB_STRINGS 012b 0000 0000 | | .BLANK 0000[0x5] 0130 ; -------------------------------------------------------------------------------------- 0130 ; Debug Table 0130 ; -------------------------------------------------------------------------------------- 0130 0004 0012 | | .DEBUG4 0x0004,0x0012,0xfcb2,0x0000,0x0001,0x0000 0136 0000 0000 | | .BLANK 0000[0x4] 013a 0004 00a0 | | .XXX[0xc] 013c 0000 0000 | | 013e 0000 0800 | | 0140 0000 4400 | D | 0142 0000 0020 | | 0144 0000 0140 | @| 0146 0000 0000 | | .BLANK 0000[0x2e] 0174 8014 0000 | | .XXX[0xb] 0176 0000 0000 | | 0178 0100 0000 | | 017a 0880 0000 | | 017c 0004 0000 | | 017e 0028 | ( | 017f 0000 0000 | | .BLANK 0000[0x2e] 01ad 1002 8000 | | .XXX[0xb] 01af 0000 0000 | | 01b1 0020 0000 | | 01b3 0110 0000 | | 01b5 0000 8000 | | 01b7 0005 | | 01b8 0000 0000 | | .BLANK 0000[0x48]