|
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 0128 | ( | .CONST 0x0128 ; 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 003d | = | .CONST 0x003d ; Address of begin 0019 0079 | y | .CONST 0x0079 ; Address of exception handler 001a 000c | | .CONST 0x000c ; Number of locals 001b INIT_0018: 001b e001 | | Load 0x0,0x1 001c 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 001d 02c7 | | Declare_Variable Any 001e 00d8 | | Load_Top At_Offset_0 001f 1c00 | | Execute_Immediate Run_Utility,0x0 0020 e002 | | Load 0x0,0x2 0021 1b8f | | Execute Package,Field_Read,Field_Number 0x8f 0022 02ff | | Declare_Variable Variant_Record 0023 00d8 | | Load_Top At_Offset_0 0024 1c00 | | Execute_Immediate Run_Utility,0x0 0025 e002 | | Load 0x0,0x2 0026 1b8f | | Execute Package,Field_Read,Field_Number 0x8f 0027 02ff | | Declare_Variable Variant_Record 0028 00d8 | | Load_Top At_Offset_0 0029 1c00 | | Execute_Immediate Run_Utility,0x0 002a e002 | | Load 0x0,0x2 002b 1b8f | | Execute Package,Field_Read,Field_Number 0x8f 002c 02ff | | Declare_Variable Variant_Record 002d 00d8 | | Load_Top At_Offset_0 002e 1c00 | | Execute_Immediate Run_Utility,0x0 002f e003 | | Load 0x0,0x3 0030 02ab | | Declare_Subprogram For_Call,With_Address 0031 e004 | | Load 0x0,0x4 0032 02ab | | Declare_Subprogram For_Call,With_Address 0033 e005 | | Load 0x0,0x5 0034 02ab | | Declare_Subprogram For_Call,With_Address 0035 e006 | | Load 0x0,0x6 0036 02ab | | Declare_Subprogram For_Call,With_Address 0037 e007 | | Load 0x0,0x7 0038 02ab | | Declare_Subprogram For_Call,With_Address 0039 e008 | | Load 0x0,0x8 003a 02ab | | Declare_Subprogram For_Call,With_Address 003b e009 | | Load 0x0,0x9 003c 02ab | | Declare_Subprogram For_Call,With_Address 003d BODY_0018: 003d e5fc | | Load 0x2,-0x4 003e e00a | | Load 0x0,0xa 003f 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0040 c5fc | | Store 0x2,-0x4 0041 e5fd | | Load 0x2,-0x3 0042 e5fe | | Load 0x2,-0x2 0043 e5ff | | Load 0x2,-0x1 0044 e002 | | Load 0x0,0x2 0045 1877 | w | Execute Package,Field_Execute,Field_Number 0x77 0046 e002 | | Load 0x0,0x2 0047 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0048 c402 | | Store 0x2,0x2 0049 480d |H | Short_Literal 0xd 004a e002 | | Load 0x0,0x2 004b 1843 | C | Execute Package,Field_Execute,Field_Number 0x43 004c e002 | | Load 0x0,0x2 004d 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 004e 480e |H | Short_Literal 0xe 004f e002 | | Load 0x0,0x2 0050 1843 | C | Execute Package,Field_Execute,Field_Number 0x43 0051 e002 | | Load 0x0,0x2 0052 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0053 e002 | | Load 0x0,0x2 0054 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0055 e403 | | Load 0x2,0x3 0056 016d | m | Execute Variant_Record,Structure_Write 0057 e403 | | Load 0x2,0x3 0058 e002 | | Load 0x0,0x2 0059 1876 | v | Execute Package,Field_Execute,Field_Number 0x76 005a 00d1 | | Pop_Control Pop_Count_1 005b 4811 |H | Short_Literal 0x11 005c e002 | | Load 0x0,0x2 005d 1843 | C | Execute Package,Field_Execute,Field_Number 0x43 005e e002 | | Load 0x0,0x2 005f 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0060 e404 | | Load 0x2,0x4 0061 016d | m | Execute Variant_Record,Structure_Write 0062 4810 |H | Short_Literal 0x10 0063 e002 | | Load 0x0,0x2 0064 1843 | C | Execute Package,Field_Execute,Field_Number 0x43 0065 e002 | | Load 0x0,0x2 0066 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0067 e405 | | Load 0x2,0x5 0068 016d | m | Execute Variant_Record,Structure_Write 0069 8406 | | Call 0x2,0x6 006a 8407 | | Call 0x2,0x7 006b 8408 | | Call 0x2,0x8 006c 8409 | | Call 0x2,0x9 006d 840a | | Call 0x2,0xa 006e 840b | | Call 0x2,0xb 006f 840c | | Call 0x2,0xc 0070 00ea | | Load_Encached Null_String_Cache 0071 e002 | | Load 0x0,0x2 0072 1b90 | | Execute Package,Field_Read,Field_Number 0x90 0073 4805 |H | Short_Literal 0x5 0074 e002 | | Load 0x0,0x2 0075 1842 | B | Execute Package,Field_Execute,Field_Number 0x42 0076 e002 | | Load 0x0,0x2 0077 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0078 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0079 TRAP_0018: 0079 e002 | | Load 0x0,0x2 007a 1b16 | | Execute Package,Field_Read,Field_Number 0x16 007b 010f | | Execute Exception,Equal 007c 6804 |h | Jump_Zero 0x81 007d e002 | | Load 0x0,0x2 007e 1879 | y | Execute Package,Field_Execute,Field_Number 0x79 007f c5fc | | Store 0x2,-0x4 0080 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0081 e00b | | Load 0x0,0xb 0082 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a 0083 010f | | Execute Exception,Equal 0084 6810 |h | Jump_Zero 0x95 0085 e00b | | Load 0x0,0xb 0086 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c 0087 c5fc | | Store 0x2,-0x4 0088 4800 |H | Short_Literal 0x0 0089 4800 |H | Short_Literal 0x0 008a 4807 |H | Short_Literal 0x7 008b e5fc | | Load 0x2,-0x4 008c 0092 00d4 | | Action Push_String_Extended,0xd4 ; "Ada Program query failed." 008e e002 | | Load 0x0,0x2 008f 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0090 e002 | | Load 0x0,0x2 0091 1846 | F | Execute Package,Field_Execute,Field_Number 0x46 0092 e002 | | Load 0x0,0x2 0093 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0094 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0095 e001 | | Load 0x0,0x1 0096 1b26 | & | Execute Package,Field_Read,Field_Number 0x26 0097 010f | | Execute Exception,Equal 0098 6813 |h | Jump_Zero 0xac 0099 e5fc | | Load 0x2,-0x4 009a e002 | | Load 0x0,0x2 009b 1819 | | Execute Package,Field_Execute,Field_Number 0x19 009c e001 | | Load 0x0,0x1 009d 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 009e c5fc | | Store 0x2,-0x4 009f 4800 |H | Short_Literal 0x0 00a0 4800 |H | Short_Literal 0x0 00a1 4807 |H | Short_Literal 0x7 00a2 e5fc | | Load 0x2,-0x4 00a3 0092 00d5 | | Action Push_String_Extended,0xd5 ; "Abstract Document generation failed." 00a5 e002 | | Load 0x0,0x2 00a6 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00a7 e002 | | Load 0x0,0x2 00a8 1846 | F | Execute Package,Field_Execute,Field_Number 0x46 00a9 e002 | | Load 0x0,0x2 00aa 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00ab 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00ac e00b | | Load 0x0,0xb 00ad 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 00ae 010f | | Execute Exception,Equal 00af 6810 |h | Jump_Zero 0xc0 00b0 e00b | | Load 0x0,0xb 00b1 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c 00b2 c5fc | | Store 0x2,-0x4 00b3 4800 |H | Short_Literal 0x0 00b4 4800 |H | Short_Literal 0x0 00b5 4807 |H | Short_Literal 0x7 00b6 e5fc | | Load 0x2,-0x4 00b7 0092 00d6 | | Action Push_String_Extended,0xd6 ; "Internal Error, Inappropriate Program Element." 00b9 e002 | | Load 0x0,0x2 00ba 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00bb e002 | | Load 0x0,0x2 00bc 1846 | F | Execute Package,Field_Execute,Field_Number 0x46 00bd e002 | | Load 0x0,0x2 00be 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00bf 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00c0 e5fc | | Load 0x2,-0x4 00c1 e00a | | Load 0x0,0xa 00c2 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00c3 e00a | | Load 0x0,0xa 00c4 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 00c5 e00a | | Load 0x0,0xa 00c6 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00c7 c5fc | | Store 0x2,-0x4 00c8 4800 |H | Short_Literal 0x0 00c9 4800 |H | Short_Literal 0x0 00ca 4808 |H | Short_Literal 0x8 00cb 0092 00d7 | | Action Push_String_Extended,0xd7 ; "Internal Error, Unexpected exception" 00cd e002 | | Load 0x0,0x2 00ce 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00cf e002 | | Load 0x0,0x2 00d0 1845 | E | Execute Package,Field_Execute,Field_Number 0x45 00d1 e002 | | Load 0x0,0x2 00d2 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00d3 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00d4 ; -------------------------------------------------------------------------------------- 00d4 ; STRING TABLE 00d4 ; -------------------------------------------------------------------------------------- 00d4 000a | | .STRTAB 0x000a->0x00d9 ; "Ada Program query failed." 00d5 0021 | ! | .STRTAB 0x0021->0x00e5 ; "Abstract Document generation failed." 00d6 0043 | C | .STRTAB 0x0043->0x00f7 ; "Internal Error, Inappropriate Program Element." 00d7 006f | o | .STRTAB 0x006f->0x010e ; "Internal Error, Unexpected exception" 00d8 0091 | | .STREND 0x0091->0x0120 00d9 4164 6120 |Ada | .STRTAB_STRINGS 0121 0000 0000 | | .BLANK 0000[0x7] 0128 ; -------------------------------------------------------------------------------------- 0128 ; Debug Table 0128 ; -------------------------------------------------------------------------------------- 0128 0004 0012 | | .DEBUG4 0x0004,0x0012,0xfccd,0x0000,0x0001,0x0000 012e 0000 0000 | | .BLANK 0000[0xc] 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]