|
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_0694fc
└─⟦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 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 8000 | | .CONST 0x8000 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0049 | I | .CONST 0x0049 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001d | | .CONST 0x001d ; Number of locals 000b INIT_0008: 000b 00c4 | | Action Make_Default 000c 00c4 | | Action Make_Default 000d 00c4 | | Action Make_Default 000e 00c4 | | Action Make_Default 000f 00c4 | | Action Make_Default 0010 00c4 | | Action Make_Default 0011 00c4 | | Action Make_Default 0012 00c4 | | Action Make_Default 0013 00c4 | | Action Make_Default 0014 00c4 | | Action Make_Default 0015 00c4 | | Action Make_Default 0016 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated 0018 c216 | | Store 0x1,0x16 0019 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated 001b c20d | | Store 0x1,0xd 001c 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated 001e c20e | | Store 0x1,0xe 001f 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated 0021 c20f | | Store 0x1,0xf 0022 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated 0024 c213 | | Store 0x1,0x13 0025 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated 0027 c215 | | Store 0x1,0x15 0028 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated 002a c217 | | Store 0x1,0x17 002b 00bf | | Action Accept_Activation 002c e001 | | Load 0x0,0x1 002d 1817 | | Execute Package,Field_Execute,Field_Number 0x17 002e 00e9 | | Load_Encached String_Cache 002f 02a0 | | Declare_Subprogram Null_Subprogram 0030 4818 |H | Short_Literal 0x18 0031 03d3 | | Declare_Type Access,Defined,Accesses_Protected 0032 00ea | | Load_Encached Null_String_Cache 0033 00d9 | | Load_Top At_Offset_1 0034 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0035 e002 | | Load 0x0,0x2 0036 02a5 | | Declare_Subprogram For_Outer_Call,With_Address 0037 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0038 00c7 | | Action Elaborate_Subprogram 0039 1d0d | | Execute_Immediate Reference_Lex_1,0xd 003a 00c7 | | Action Elaborate_Subprogram 003b 1d0e | | Execute_Immediate Reference_Lex_1,0xe 003c 00c7 | | Action Elaborate_Subprogram 003d 1d0f | | Execute_Immediate Reference_Lex_1,0xf 003e 00c7 | | Action Elaborate_Subprogram 003f 029d 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call 0041 029d 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call 0043 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0044 00c7 | | Action Elaborate_Subprogram 0045 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0046 00c7 | | Action Elaborate_Subprogram 0047 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0048 00c7 | | Action Elaborate_Subprogram 0049 BODY_0008: 0049 00bc | | Action Signal_Activated 004a 00bb | | Action Signal_Completion 004b 0000 0000 | | .BLANK 0000[0x5] 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 0060 | ` | .CONST 0x0060 ; Address of begin 0051 0080 | | .CONST 0x0080 ; Address of exception handler 0052 0005 | | .CONST 0x0005 ; Number of locals 0053 INIT_0050: 0053 e003 | | Load 0x0,0x3 0054 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0055 02c7 | | Declare_Variable Any 0056 00d8 | | Load_Top At_Offset_0 0057 1c00 | | Execute_Immediate Run_Utility,0x0 0058 4801 |H | Short_Literal 0x1 0059 4900 |I | Short_Literal 0x100 005a 00e9 | | Load_Encached String_Cache 005b 035b | [ | Declare_Type Array,Constrained 005c 0337 | 7 | Declare_Variable Array 005d 00e3 | | Load_Encached Natural_Cache 005e 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call 0060 BODY_0050: 0060 00be | | Action Activate_Tasks 0061 00db | | Load_Top At_Offset_3 0062 00ea | | Load_Encached Null_String_Cache 0063 0092 0106 | | Action Push_String_Extended,0x106 ; "!TOOLS.DESIGN.INSIGHT.INSIGHT_COMMANDS'VIEW.UNITS.WORKSTATION_PATHNAME" 0065 4800 |H | Short_Literal 0x0 0066 e003 | | Load 0x0,0x3 0067 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0068 c402 | | Store 0x2,0x2 0069 00e3 | | Load_Encached Natural_Cache 006a 00db | | Load_Top At_Offset_3 006b e402 | | Load 0x2,0x2 006c e003 | | Load 0x0,0x3 006d 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 006e 00d1 | | Pop_Control Pop_Count_1 006f 005a | Z | Store_Top Discrete,At_Offset_2 0070 00db | | Load_Top At_Offset_3 0071 e003 | | Load 0x0,0x3 0072 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0073 c402 | | Store 0x2,0x2 0074 00d9 | | Load_Top At_Offset_1 0075 0c01 | | Execute_Immediate Greater_Equal,0x1 0076 6807 |h | Jump_Zero 0x7e 0077 4801 |H | Short_Literal 0x1 0078 00da | | Load_Top At_Offset_2 0079 e403 | | Load 0x2,0x3 007a 01cf | | Execute Vector,Slice_Read 007b 00e9 | | Load_Encached String_Cache 007c 01c6 | | Execute Vector,Convert_To_Formal 007d 00ca | | Action Exit_Nullary_Function 007e 821b | | Call 0x1,0x1b 007f 00ca | | Action Exit_Nullary_Function 0080 TRAP_0050: 0080 0007 | | Action Break_Optional 0081 8405 | | Call 0x2,0x5 0082 0831 | 1 | Execute_Immediate Raise,0x31 0083 0000 0000 | | .BLANK 0000[0x5] 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 008b | | .CONST 0x008b ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0001 | | .CONST 0x0001 ; Number of locals 008b BODY_0088: 008b INIT_0088: 008b 8216 | | Call 0x1,0x16 008c 0092 0107 | | Action Push_String_Extended,0x107 ; "/" 008e 01cc | | Execute Vector,Catenate 008f 0092 0108 | | Action Push_String_Extended,0x108 ; "insight" 0091 01cc | | Execute Vector,Catenate 0092 00ca | | Action Exit_Nullary_Function 0093 0000 0000 | | .BLANK 0000[0x5] 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 009b | | .CONST 0x009b ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0001 | | .CONST 0x0001 ; Number of locals 009b BODY_0098: 009b INIT_0098: 009b 8216 | | Call 0x1,0x16 009c 0092 0107 | | Action Push_String_Extended,0x107 ; "/" 009e 01cc | | Execute Vector,Catenate 009f 0092 0107 | | Action Push_String_Extended,0x107 ; "/" 00a1 01cc | | Execute Vector,Catenate 00a2 0092 0109 | | Action Push_String_Extended,0x109 ; "layout" 00a4 01cc | | Execute Vector,Catenate 00a5 00ca | | Action Exit_Nullary_Function 00a6 0000 0000 | | .XXX[0x2] 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00ab | | .CONST 0x00ab ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0001 | | .CONST 0x0001 ; Number of locals 00ab BODY_00a8: 00ab INIT_00a8: 00ab 0092 010a | | Action Push_String_Extended,0x10a ; "nawk -f " 00ad 8216 | | Call 0x1,0x16 00ae 01cc | | Execute Vector,Catenate 00af 0092 0107 | | Action Push_String_Extended,0x107 ; "/" 00b1 01cc | | Execute Vector,Catenate 00b2 0092 0107 | | Action Push_String_Extended,0x107 ; "/" 00b4 01cc | | Execute Vector,Catenate 00b5 0092 010b | | Action Push_String_Extended,0x10b ; "external_withs.nawk" 00b7 01cc | | Execute Vector,Catenate 00b8 00ca | | Action Exit_Nullary_Function 00b9 0000 0000 | | .BLANK 0000[0x7] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c5 | | .CONST 0x00c5 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0002 | | .CONST 0x0002 ; Number of locals 00c3 INIT_00c0: 00c3 0092 010c | | Action Push_String_Extended,0x10c ; "$HOME/.Discover/" 00c5 BODY_00c0: 00c5 00d8 | | Load_Top At_Offset_0 00c6 821d | | Call 0x1,0x1d 00c7 01cc | | Execute Vector,Catenate 00c8 00ca | | Action Exit_Nullary_Function 00c9 0000 0000 | | .BLANK 0000[0x7] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d3 | | .CONST 0x00d3 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0001 | | .CONST 0x0001 ; Number of locals 00d3 BODY_00d0: 00d3 INIT_00d0: 00d3 e218 | | Load 0x1,0x18 00d4 00ca | | Action Exit_Nullary_Function 00d5 0000 0000 | | .XXX[0x3] 00d7 0000 | | 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00db | | .CONST 0x00db ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0001 | | .CONST 0x0001 ; Number of locals 00db BODY_00d8: 00db INIT_00d8: 00db 8216 | | Call 0x1,0x16 00dc 0092 010d | | Action Push_String_Extended,0x10d ; "/insight_tmp_name" 00de 01cc | | Execute Vector,Catenate 00df 00ca | | Action Exit_Nullary_Function 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00e3 | | .CONST 0x00e3 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0001 | | .CONST 0x0001 ; Number of locals 00e3 BODY_00e0: 00e3 INIT_00e0: 00e3 00da | | Load_Top At_Offset_2 00e4 0092 010e | | Action Push_String_Extended,0x10e ; "<DEFAULT>" 00e6 01df | | Execute Vector,Equal 00e7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00eb | | .CONST 0x00eb ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0001 | | .CONST 0x0001 ; Number of locals 00eb BODY_00e8: 00eb INIT_00e8: 00eb e21a | | Load 0x1,0x1a 00ec 0227 | ' | Execute Access,All_Reference 00ed 0092 010f | | Action Push_String_Extended,0x10f ; ".ada_disc" 00ef 01cc | | Execute Vector,Catenate 00f0 00ca | | Action Exit_Nullary_Function 00f1 0000 0000 | | .BLANK 0000[0x7] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 00fb | | .CONST 0x00fb ; Address of begin 00f9 0102 | | .CONST 0x0102 ; Address of exception handler 00fa 0001 | | .CONST 0x0001 ; Number of locals 00fb BODY_00f8: 00fb INIT_00f8: 00fb e402 | | Load 0x2,0x2 00fc e003 | | Load 0x0,0x3 00fd 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00fe c402 | | Store 0x2,0x2 00ff 821b | | Call 0x1,0x1b 0100 00cb | | Action Pop_Block_With_Result 0101 00ca | | Action Exit_Nullary_Function 0102 TRAP_00f8: 0102 0007 | | Action Break_Optional 0103 821b | | Call 0x1,0x1b 0104 00cb | | Action Pop_Block_With_Result 0105 00ca | | Action Exit_Nullary_Function 0106 ; -------------------------------------------------------------------------------------- 0106 ; STRING TABLE 0106 ; -------------------------------------------------------------------------------------- 0106 0016 | | .STRTAB 0x0016->0x0111 ; "!TOOLS.DESIGN.INSIGHT.INSIGHT_COMMANDS'VIEW.UNITS.WORKSTATION_PATHNAME" 0107 005a | Z | .STRTAB 0x005a->0x0134 ; "/" 0108 0059 | Y | .STRTAB 0x0059->0x0134 ; "insight" 0109 005e | ^ | .STRTAB 0x005e->0x0138 ; "layout" 010a 0062 | b | .STRTAB 0x0062->0x013b ; "nawk -f " 010b 0068 | h | .STRTAB 0x0068->0x013f ; "external_withs.nawk" 010c 0079 | y | .STRTAB 0x0079->0x0148 ; "$HOME/.Discover/" 010d 0087 | | .STRTAB 0x0087->0x0150 ; "/insight_tmp_name" 010e 0096 | | .STRTAB 0x0096->0x0159 ; "<DEFAULT>" 010f 009d | | .STRTAB 0x009d->0x015d ; ".ada_disc" 0110 00a4 | | .STREND 0x00a4->0x0162 0111 2154 4f4f |!TOO| .STRTAB_STRINGS 0162 0000 0000 | | .BLANK 0000[0x6] 0168 ; -------------------------------------------------------------------------------------- 0168 ; Debug Table 0168 ; -------------------------------------------------------------------------------------- 0168 0004 0014 | | .DEBUG4 0x0004,0x0014,0x0e45,0x0000,0x0001,0x0000 016e ac03 fe1a | | .XXX[0x92] 0170 2a0d 4cfa |* L | 0172 3432 8d78 |42 x| 0174 d4bd 7c02 | | | 0176 344f e800 |4O | 0178 3966 7538 |9fu8| 017a 1074 5037 | tP7| 017c 0c21 6a20 | !j | 017e 4585 e44e |E N| 0180 4d92 910b |M | 0182 055e 2628 | ^&(| 0184 30a3 f413 |0 | 0186 6008 054d |` M| 0188 a402 393c | 9<| 018a ad74 79f0 | ty | 018c f60d 9062 | b| 018e b539 c4ce | 9 | 0190 2dba 219a |- ! | 0192 362a 8003 |6* | 0194 7909 c425 |y %| 0196 4802 693f |H i?| 0198 752a 0090 |u* | 019a 3c3c d402 |<< | 019c 9570 1047 | p G| 019e 5801 d861 |X a| 01a0 8002 883b | ;| 01a2 1998 e565 | e| 01a4 c584 8001 | | 01a6 9803 3e0b | > | 01a8 a823 9008 | # | 01aa 6e1b 4e08 |n N | 01ac 021e 200a | | 01ae 8c5b 35f4 | [5 | 01b0 4c06 8445 |L E| 01b2 b020 fc01 | | 01b4 2965 c944 |)e D| 01b6 a050 0602 | P | 01b8 a053 241c | S$ | 01ba 3caf 301f |< 0 | 01bc c989 596a | Yj| 01be 3d43 9880 |=C | 01c0 5c40 e800 |\@ | 01c2 4e1f a885 |N | 01c4 a998 5c30 | \0| 01c6 2c36 de00 |,6 | 01c8 8885 243a | $:| 01ca ea03 a84a | J| 01cc 2420 a085 |$ | 01ce d4cf 2dff | - | 01d0 c049 7450 | ItP| 01d2 195c bca0 | \ | 01d4 e04c 8021 | L !| 01d6 9424 5c1d | $\ | 01d8 b400 1588 | | 01da 8969 258c | i% | 01dc 017d 5464 | }Td| 01de b804 d62c | ,| 01e0 e8ea 501d | P | 01e2 a003 44da | D | 01e4 920d 4929 | I)| 01e6 3d32 94cd |=2 | 01e8 022c 81ca | , | 01ea 553f 641a |U?d | 01ec 0d89 4403 | D | 01ee 74db 059d |t | 01f0 8002 415b | A[| 01f2 1d76 da28 | v (| 01f4 81fe a818 | | 01f6 98bc ae2f | /| 01f8 bc44 620f | Db | 01fa 545c bc03 |T\ | 01fc 5175 8898 |Qu | 01fe 3cac 7a0f |< z |