|
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_e2acbc
└─⟦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 0168 | h | .CONST 0x0168 ; 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 0032 | 2 | .CONST 0x0032 ; Address of begin 0009 00be | | .CONST 0x00be ; Address of exception handler 000a 000b | | .CONST 0x000b ; Number of locals 000b INIT_0008: 000b e00c | | Load 0x0,0xc 000c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 000d 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 000e 02c7 | | Declare_Variable Any 000f e5fe | | Load 0x2,-0x2 0010 a402 | | Store_Unchecked 0x2,0x2 0011 e009 | | Load 0x0,0x9 0012 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0013 02c7 | | Declare_Variable Any 0014 00d8 | | Load_Top At_Offset_0 0015 1c00 | | Execute_Immediate Run_Utility,0x0 0016 e009 | | Load 0x0,0x9 0017 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0018 02c7 | | Declare_Variable Any 0019 00d8 | | Load_Top At_Offset_0 001a 1c00 | | Execute_Immediate Run_Utility,0x0 001b e009 | | Load 0x0,0x9 001c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 001d 02c7 | | Declare_Variable Any 001e e009 | | Load 0x0,0x9 001f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0020 a405 | | Store_Unchecked 0x2,0x5 0021 00e1 | | Load_Encached Boolean_Cache 0022 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0023 00e1 | | Load_Encached Boolean_Cache 0024 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0025 e009 | | Load 0x0,0x9 0026 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0027 e5fd | | Load 0x2,-0x3 0028 e011 | | Load 0x0,0x11 0029 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 002a e00a | | Load 0x0,0xa 002b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 002c 02c7 | | Declare_Variable Any 002d e00a | | Load 0x0,0xa 002e 180e | | Execute Package,Field_Execute,Field_Number 0xe 002f a40a | | Store_Unchecked 0x2,0xa 0030 029f 00cb | | Declare_Subprogram INIT_00c8,For_Call 0032 BODY_0008: 0032 e402 | | Load 0x2,0x2 0033 e00c | | Load 0x0,0xc 0034 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0035 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0036 00cf | | Action Mark_Auxiliary 0037 7878 |xx | Jump 0xb0 0038 e009 | | Load 0x0,0x9 0039 1b0d | | Execute Package,Field_Read,Field_Number 0xd 003a e403 | | Load 0x2,0x3 003b 0120 | | Execute Any,Is_Value 003c 6803 |h | Jump_Zero 0x40 003d e009 | | Load 0x0,0x9 003e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 003f 7801 |x | Jump 0x41 0040 e403 | | Load 0x2,0x3 0041 e402 | | Load 0x2,0x2 0042 e00c | | Load 0x0,0xc 0043 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0044 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0045 e00c | | Load 0x0,0xc 0046 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0047 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 0048 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0049 c403 | | Store 0x2,0x3 004a c408 | | Store 0x2,0x8 004b e408 | | Load 0x2,0x8 004c 6808 |h | Jump_Zero 0x55 004d e00a | | Load 0x0,0xa 004e 180e | | Execute Package,Field_Execute,Field_Number 0xe 004f 4807 |H | Short_Literal 0x7 0050 0092 00ed | | Action Push_String_Extended,0xed ; "Error in getting object from its handle" 0052 e00d | | Load 0x0,0xd 0053 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0054 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0055 00da | | Load_Top At_Offset_2 0056 e403 | | Load 0x2,0x3 0057 e00b | | Load 0x0,0xb 0058 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0059 1820 | | Execute Package,Field_Execute,Field_Number 0x20 005a c404 | | Store 0x2,0x4 005b e5fc | | Load 0x2,-0x4 005c 00e1 | | Load_Encached Boolean_Cache 005d e40a | | Load 0x2,0xa 005e e403 | | Load 0x2,0x3 005f e00e | | Load 0x0,0xe 0060 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0061 c406 | | Store 0x2,0x6 0062 c5fc | | Store 0x2,-0x4 0063 e406 | | Load 0x2,0x6 0064 6812 |h | Jump_Zero 0x77 0065 00da | | Load_Top At_Offset_2 0066 e403 | | Load 0x2,0x3 0067 e00e | | Load 0x0,0xe 0068 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0069 700d |p | Jump_Nonzero 0x77 006a e00a | | Load 0x0,0xa 006b 180e | | Execute Package,Field_Execute,Field_Number 0xe 006c 4802 |H | Short_Literal 0x2 006d 0092 00ee | | Action Push_String_Extended,0xee ; "Not generating ADA compile commands for" 006f e403 | | Load 0x2,0x3 0070 e009 | | Load 0x0,0x9 0071 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0072 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0073 01cc | | Execute Vector,Catenate 0074 e00d | | Load 0x0,0xd 0075 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0076 7833 |x3 | Jump 0xaa 0077 e00a | | Load 0x0,0xa 0078 180e | | Execute Package,Field_Execute,Field_Number 0xe 0079 4802 |H | Short_Literal 0x2 007a 0092 00ef | | Action Push_String_Extended,0xef ; "Generating ADA compile commands for " 007c e403 | | Load 0x2,0x3 007d e009 | | Load 0x0,0x9 007e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 007f 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0080 01cc | | Execute Vector,Catenate 0081 e00d | | Load 0x0,0xd 0082 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0083 e404 | | Load 0x2,0x4 0084 e405 | | Load 0x2,0x5 0085 012e | . | Execute Any,Not_Equal 0086 6822 |h" | Jump_Zero 0xa9 0087 e407 | | Load 0x2,0x7 0088 7005 |p | Jump_Nonzero 0x8e 0089 0092 00f0 | | Action Push_String_Extended,0xf0 ; "!" 008b e5ff | | Load 0x2,-0x1 008c e012 | | Load 0x0,0x12 008d 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 008e e5fc | | Load 0x2,-0x4 008f e5fd | | Load 0x2,-0x3 0090 e403 | | Load 0x2,0x3 0091 e5ff | | Load 0x2,-0x1 0092 820e | | Call 0x1,0xe 0093 c5fc | | Store 0x2,-0x4 0094 00db | | Load_Top At_Offset_3 0095 01db | | Execute Vector,Length 0096 6804 |h | Jump_Zero 0x9b 0097 00db | | Load_Top At_Offset_3 0098 e5ff | | Load 0x2,-0x1 0099 e012 | | Load 0x0,0x12 009a 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 009b 00da | | Load_Top At_Offset_2 009c e403 | | Load 0x2,0x3 009d e20d | | Load 0x1,0xd 009e 8210 | | Call 0x1,0x10 009f 0092 00f1 | | Action Push_String_Extended,0xf1 ; " -I <<!" 00a1 01cc | | Execute Vector,Catenate 00a2 e5ff | | Load 0x2,-0x1 00a3 e012 | | Load 0x0,0x12 00a4 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 00a5 4800 |H | Short_Literal 0x0 00a6 a407 | | Store_Unchecked 0x2,0x7 00a7 e404 | | Load 0x2,0x4 00a8 c405 | | Store 0x2,0x5 00a9 840b | | Call 0x2,0xb 00aa e402 | | Load 0x2,0x2 00ab e00c | | Load 0x0,0xc 00ac 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00ad 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 00ae c402 | | Store 0x2,0x2 00af 00c9 | | Action Pop_Auxiliary_Loop 00b0 e402 | | Load 0x2,0x2 00b1 e00c | | Load 0x0,0xc 00b2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00b3 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 00b4 6f83 |o | Jump_Zero 0x38 00b5 00ce | | Action Pop_Auxiliary 00b6 e407 | | Load 0x2,0x7 00b7 7005 |p | Jump_Nonzero 0xbd 00b8 0092 00f0 | | Action Push_String_Extended,0xf0 ; "!" 00ba e5ff | | Load 0x2,-0x1 00bb e012 | | Load 0x0,0x12 00bc 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 00bd 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00be TRAP_0008: 00be 0007 | | Action Break_Optional 00bf e5fc | | Load 0x2,-0x4 00c0 0092 00f2 | | Action Push_String_Extended,0xf2 ; "generate_ada_commands" 00c2 8217 | | Call 0x1,0x17 00c3 c5fc | | Store 0x2,-0x4 00c4 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00c5 0000 0000 | | .XXX[0x3] 00c7 0000 | | 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00d5 | | .CONST 0x00d5 ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0002 | | .CONST 0x0002 ; Number of locals 00cb INIT_00c8: 00cb e40a | | Load 0x2,0xa 00cc e403 | | Load 0x2,0x3 00cd e404 | | Load 0x2,0x4 00ce e009 | | Load 0x0,0x9 00cf 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00d0 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 00d1 e00e | | Load 0x0,0xe 00d2 180f | | Execute Package,Field_Execute,Field_Number 0xf 00d3 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 00d4 0007 | | Action Break_Optional 00d5 BODY_00c8: 00d5 00d8 | | Load_Top At_Offset_0 00d6 01db | | Execute Vector,Length 00d7 7010 |p | Jump_Nonzero 0xe8 00d8 e00a | | Load 0x0,0xa 00d9 180e | | Execute Package,Field_Execute,Field_Number 0xe 00da 4807 |H | Short_Literal 0x7 00db 0092 00f3 | | Action Push_String_Extended,0xf3 ; "Error while getting remote unit name for " 00dd e403 | | Load 0x2,0x3 00de e009 | | Load 0x0,0x9 00df 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00e0 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 00e1 01cc | | Execute Vector,Catenate 00e2 0092 00f4 | | Action Push_String_Extended,0xf4 ; " while generating batch compile commands" 00e4 01cc | | Execute Vector,Catenate 00e5 e00d | | Load 0x0,0xd 00e6 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00e7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00e8 00d8 | | Load_Top At_Offset_0 00e9 e5ff | | Load 0x2,-0x1 00ea e012 | | Load 0x0,0x12 00eb 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 00ec 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00ed ; -------------------------------------------------------------------------------------- 00ed ; STRING TABLE 00ed ; -------------------------------------------------------------------------------------- 00ed 0012 | | .STRTAB 0x0012->0x00f6 ; "Error in getting object from its handle" 00ee 0037 | 7 | .STRTAB 0x0037->0x0109 ; "Not generating ADA compile commands for" 00ef 005c | \ | .STRTAB 0x005c->0x011d ; "Generating ADA compile commands for " 00f0 007e | ~ | .STRTAB 0x007e->0x012f ; "!" 00f1 007d | } | .STRTAB 0x007d->0x012f ; " -I <<!" 00f2 0082 | | .STRTAB 0x0082->0x0133 ; "generate_ada_commands" 00f3 0095 | | .STRTAB 0x0095->0x013d ; "Error while getting remote unit name for " 00f4 00bc | | .STRTAB 0x00bc->0x0152 ; " while generating batch compile commands" 00f5 00e2 | | .STREND 0x00e2->0x0166 00f6 4572 726f |Erro| .STRTAB_STRINGS 0166 0000 0000 | | .XXX[0x2] 0168 ; -------------------------------------------------------------------------------------- 0168 ; Debug Table 0168 ; -------------------------------------------------------------------------------------- 0168 0004 0003 | | .DEBUG4 0x0004,0x0003,0x4655,0x0000,0x0001,0x0002 016e 000b 0176 | v| .DBG4T 0x000b,0x0176,0x0001,0x4000 0172 00cb 01b2 | | .DBG4T 0x00cb,0x01b2,0x0004,0x0000 0176 ; -------------------------------------------------------------------------------------- 0176 ; Debug chain 0176 ; -------------------------------------------------------------------------------------- 0176 0008 0019 | | .DBGLEN 0x0008,0x0019 0178 000b 0011 | | .DBGLNO 0x000b,0x0011,0x001b,0x0021,0x0023,0x0025,0x0027,0x002a,0x0032,0x0038,0x004b,0x004d,0x0054,0x0055,0x005b,0x0063,0x006a,0x0077,0x0083,0x0087,0x0089,0x008e,0x0094,0x0097,0x009b,0x00a5,0x00a7,0x00a9,0x00aa,0x00b0,0x00b6,0x00b8,0x00bf 0199 0001 0003 | | .XXX[0x19] 019b 0004 0005 | | 019d 0006 0007 | | 019f 0008 0009 | | 01a1 000a 000b | | 01a3 000c 000d | | 01a5 000e 000f | | 01a7 0010 0011 | | 01a9 0012 0013 | | 01ab 0014 0015 | | 01ad 0016 0002 | | 01af 0017 0018 | | 01b1 0019 | | 01b2 ; -------------------------------------------------------------------------------------- 01b2 ; Debug chain 01b2 ; -------------------------------------------------------------------------------------- 01b2 0001 0003 | | .DBGLEN 0x0001,0x0003 01b4 00cb 00d5 | | .DBGLNO 0x00cb,0x00d5,0x00d8,0x00e8 01b8 0000 0000 | | .BLANK 0000[0x48]