|
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_11cacfe
└─⟦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 0150 | P | .CONST 0x0150 ; 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 0043 | C | .CONST 0x0043 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001c | | .CONST 0x001c ; 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 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated 0017 c216 | | Store 0x1,0x16 0018 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated 001a c20d | | Store 0x1,0xd 001b 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated 001d c20e | | Store 0x1,0xe 001e 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated 0020 c20f | | Store 0x1,0xf 0021 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated 0023 c213 | | Store 0x1,0x13 0024 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated 0026 c215 | | Store 0x1,0x15 0027 00bf | | Action Accept_Activation 0028 e001 | | Load 0x0,0x1 0029 1817 | | Execute Package,Field_Execute,Field_Number 0x17 002a 00e9 | | Load_Encached String_Cache 002b 02a0 | | Declare_Subprogram Null_Subprogram 002c 4818 |H | Short_Literal 0x18 002d 03d3 | | Declare_Type Access,Defined,Accesses_Protected 002e 00ea | | Load_Encached Null_String_Cache 002f 00d9 | | Load_Top At_Offset_1 0030 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0031 e002 | | Load 0x0,0x2 0032 02a5 | | Declare_Subprogram For_Outer_Call,With_Address 0033 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0034 00c7 | | Action Elaborate_Subprogram 0035 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0036 00c7 | | Action Elaborate_Subprogram 0037 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0038 00c7 | | Action Elaborate_Subprogram 0039 1d0f | | Execute_Immediate Reference_Lex_1,0xf 003a 00c7 | | Action Elaborate_Subprogram 003b 029d 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call 003d 029d 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call 003f 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0040 00c7 | | Action Elaborate_Subprogram 0041 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0042 00c7 | | Action Elaborate_Subprogram 0043 BODY_0008: 0043 00bc | | Action Signal_Activated 0044 00bb | | Action Signal_Completion 0045 0000 0000 | | .XXX[0x3] 0047 0000 | | 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 0058 | X | .CONST 0x0058 ; Address of begin 0049 0078 | x | .CONST 0x0078 ; Address of exception handler 004a 0005 | | .CONST 0x0005 ; Number of locals 004b INIT_0048: 004b e003 | | Load 0x0,0x3 004c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 004d 02c7 | | Declare_Variable Any 004e 00d8 | | Load_Top At_Offset_0 004f 1c00 | | Execute_Immediate Run_Utility,0x0 0050 4801 |H | Short_Literal 0x1 0051 4900 |I | Short_Literal 0x100 0052 00e9 | | Load_Encached String_Cache 0053 035b | [ | Declare_Type Array,Constrained 0054 0337 | 7 | Declare_Variable Array 0055 00e3 | | Load_Encached Natural_Cache 0056 029f 00eb | | Declare_Subprogram INIT_00e8,For_Call 0058 BODY_0048: 0058 00be | | Action Activate_Tasks 0059 00db | | Load_Top At_Offset_3 005a 00ea | | Load_Encached Null_String_Cache 005b 0092 00f6 | | Action Push_String_Extended,0xf6 ; "!TOOLS.DESIGN.INSIGHT.INSIGHT_COMMANDS'VIEW.UNITS.WORKSTATION_PATHNAME" 005d 4800 |H | Short_Literal 0x0 005e e003 | | Load 0x0,0x3 005f 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0060 c402 | | Store 0x2,0x2 0061 00e3 | | Load_Encached Natural_Cache 0062 00db | | Load_Top At_Offset_3 0063 e402 | | Load 0x2,0x2 0064 e003 | | Load 0x0,0x3 0065 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 0066 00d1 | | Pop_Control Pop_Count_1 0067 005a | Z | Store_Top Discrete,At_Offset_2 0068 00db | | Load_Top At_Offset_3 0069 e003 | | Load 0x0,0x3 006a 1816 | | Execute Package,Field_Execute,Field_Number 0x16 006b c402 | | Store 0x2,0x2 006c 00d9 | | Load_Top At_Offset_1 006d 0c01 | | Execute_Immediate Greater_Equal,0x1 006e 6807 |h | Jump_Zero 0x76 006f 4801 |H | Short_Literal 0x1 0070 00da | | Load_Top At_Offset_2 0071 e403 | | Load 0x2,0x3 0072 01cf | | Execute Vector,Slice_Read 0073 00e9 | | Load_Encached String_Cache 0074 01c6 | | Execute Vector,Convert_To_Formal 0075 00ca | | Action Exit_Nullary_Function 0076 821a | | Call 0x1,0x1a 0077 00ca | | Action Exit_Nullary_Function 0078 TRAP_0048: 0078 0007 | | Action Break_Optional 0079 8405 | | Call 0x2,0x5 007a 0831 | 1 | Execute_Immediate Raise,0x31 007b 0000 0000 | | .BLANK 0000[0x5] 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0083 | | .CONST 0x0083 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0001 | | .CONST 0x0001 ; Number of locals 0083 BODY_0080: 0083 INIT_0080: 0083 8216 | | Call 0x1,0x16 0084 0092 00f7 | | Action Push_String_Extended,0xf7 ; "/" 0086 01cc | | Execute Vector,Catenate 0087 0092 00f8 | | Action Push_String_Extended,0xf8 ; "insight_command" 0089 01cc | | Execute Vector,Catenate 008a 00ca | | Action Exit_Nullary_Function 008b 0000 0000 | | .BLANK 0000[0x5] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0093 | | .CONST 0x0093 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0001 | | .CONST 0x0001 ; Number of locals 0093 BODY_0090: 0093 INIT_0090: 0093 8216 | | Call 0x1,0x16 0094 0092 00f7 | | Action Push_String_Extended,0xf7 ; "/" 0096 01cc | | Execute Vector,Catenate 0097 0092 00f7 | | Action Push_String_Extended,0xf7 ; "/" 0099 01cc | | Execute Vector,Catenate 009a 0092 00f9 | | Action Push_String_Extended,0xf9 ; "layout" 009c 01cc | | Execute Vector,Catenate 009d 00ca | | Action Exit_Nullary_Function 009e 0000 0000 | | .XXX[0x2] 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00a3 | | .CONST 0x00a3 ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0001 | | .CONST 0x0001 ; Number of locals 00a3 BODY_00a0: 00a3 INIT_00a0: 00a3 0092 00fa | | Action Push_String_Extended,0xfa ; "nawk -f " 00a5 8216 | | Call 0x1,0x16 00a6 01cc | | Execute Vector,Catenate 00a7 0092 00f7 | | Action Push_String_Extended,0xf7 ; "/" 00a9 01cc | | Execute Vector,Catenate 00aa 0092 00f7 | | Action Push_String_Extended,0xf7 ; "/" 00ac 01cc | | Execute Vector,Catenate 00ad 0092 00fb | | Action Push_String_Extended,0xfb ; "external_withs.nawk" 00af 01cc | | Execute Vector,Catenate 00b0 00ca | | Action Exit_Nullary_Function 00b1 0000 0000 | | .BLANK 0000[0x7] 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00bd | | .CONST 0x00bd ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0002 | | .CONST 0x0002 ; Number of locals 00bb INIT_00b8: 00bb 0092 00fc | | Action Push_String_Extended,0xfc ; "$HOME/.Discover/" 00bd BODY_00b8: 00bd 00d8 | | Load_Top At_Offset_0 00be 821c | | Call 0x1,0x1c 00bf 01cc | | Execute Vector,Catenate 00c0 00ca | | Action Exit_Nullary_Function 00c1 0000 0000 | | .BLANK 0000[0x7] 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00cb | | .CONST 0x00cb ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0001 | | .CONST 0x0001 ; Number of locals 00cb BODY_00c8: 00cb INIT_00c8: 00cb e217 | | Load 0x1,0x17 00cc 00ca | | Action Exit_Nullary_Function 00cd 0000 0000 | | .XXX[0x3] 00cf 0000 | | 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 00da | | Load_Top At_Offset_2 00d4 0092 00fd | | Action Push_String_Extended,0xfd ; "<DEFAULT>" 00d6 01df | | Execute Vector,Equal 00d7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 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 e219 | | Load 0x1,0x19 00dc 0227 | ' | Execute Access,All_Reference 00dd 0092 00fe | | Action Push_String_Extended,0xfe ; ".ada_disc" 00df 01cc | | Execute Vector,Catenate 00e0 00ca | | Action Exit_Nullary_Function 00e1 0000 0000 | | .BLANK 0000[0x7] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00eb | | .CONST 0x00eb ; Address of begin 00e9 00f2 | | .CONST 0x00f2 ; Address of exception handler 00ea 0001 | | .CONST 0x0001 ; Number of locals 00eb BODY_00e8: 00eb INIT_00e8: 00eb e402 | | Load 0x2,0x2 00ec e003 | | Load 0x0,0x3 00ed 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00ee c402 | | Store 0x2,0x2 00ef 821a | | Call 0x1,0x1a 00f0 00cb | | Action Pop_Block_With_Result 00f1 00ca | | Action Exit_Nullary_Function 00f2 TRAP_00e8: 00f2 0007 | | Action Break_Optional 00f3 821a | | Call 0x1,0x1a 00f4 00cb | | Action Pop_Block_With_Result 00f5 00ca | | Action Exit_Nullary_Function 00f6 ; -------------------------------------------------------------------------------------- 00f6 ; STRING TABLE 00f6 ; -------------------------------------------------------------------------------------- 00f6 0014 | | .STRTAB 0x0014->0x0100 ; "!TOOLS.DESIGN.INSIGHT.INSIGHT_COMMANDS'VIEW.UNITS.WORKSTATION_PATHNAME" 00f7 0058 | X | .STRTAB 0x0058->0x0123 ; "/" 00f8 0057 | W | .STRTAB 0x0057->0x0123 ; "insight_command" 00f9 0064 | d | .STRTAB 0x0064->0x012b ; "layout" 00fa 0068 | h | .STRTAB 0x0068->0x012e ; "nawk -f " 00fb 006e | n | .STRTAB 0x006e->0x0132 ; "external_withs.nawk" 00fc 007f | | .STRTAB 0x007f->0x013b ; "$HOME/.Discover/" 00fd 008d | | .STRTAB 0x008d->0x0143 ; "<DEFAULT>" 00fe 0094 | | .STRTAB 0x0094->0x0148 ; ".ada_disc" 00ff 009b | | .STREND 0x009b->0x014c 0100 2154 4f4f |!TOO| .STRTAB_STRINGS 014d 0000 0000 | | .XXX[0x3] 014f 0000 | | 0150 ; -------------------------------------------------------------------------------------- 0150 ; Debug Table 0150 ; -------------------------------------------------------------------------------------- 0150 0004 0011 | | .DEBUG4 0x0004,0x0011,0x8a93,0x0000,0x0001,0x0000 0156 0000 0000 | | .BLANK 0000[0x7] 015d e540 | @ | .XXX[0x1] 015e 0000 0000 | | .BLANK 0000[0x16] 0174 06b0 4000 | @ | .XXX[0x8c] 0176 2202 4000 |" @ | 0178 588a 0001 |X | 017a 0c84 0025 | %| 017c db40 1680 | @ | 017e b100 0057 | W| 0180 ca48 4080 | H@ | 0182 0ed8 4000 | @ | 0184 2202 4000 |" @ | 0186 6c8a 0000 |l | 0188 f084 0025 | %| 018a d900 0382 | | 018c 6340 1b80 |c@ | 018e a2b8 4000 | @ | 0190 2202 4000 |" @ | 0192 5c92 0000 |\ | 0194 d884 0025 | %| 0196 dac4 b780 | | 0198 0a48 4000 | H@ | 019a 6250 4080 |bP@ | 019c 0100 03a1 | | 019e 6640 4000 |f@@ | 01a0 6a02 4000 |j @ | 01a2 208a 0000 | | 01a4 b884 0025 | %| 01a6 da50 4080 | P@ | 01a8 0248 4000 | H@ | 01aa 6100 03a1 |a | 01ac 4a40 4000 |J@@ | 01ae 6602 4000 |f @ | 01b0 208a 0000 | | 01b2 9c84 0025 | %| 01b4 d900 0383 | | 01b6 7f40 1b80 | @ | 01b8 a2c0 4000 | @ | 01ba 2202 4000 |" @ | 01bc 62e0 4080 |b @ | 01be 000a 0000 | | 01c0 66e8 4080 |f @ | 01c2 0202 9c00 | | 01c4 5cda 0000 |\ | 01c6 5f40 1680 |_@ | 01c8 b258 4000 | X@ | 01ca 6360 0b00 |c` | 01cc 0358 0b80 | X | 01ce 1240 0e81 | @ | 01d0 8360 8880 | ` | 01d2 0358 8880 | X | 01d4 1100 0076 | v| 01d6 b248 4080 | H@ | 01d8 0788 1900 | | 01da 02e0 1c80 | | 01dc 0740 9100 | @ | 01de 7790 1a00 |w | 01e0 03c0 1880 | | 01e2 33c0 9200 |3 | 01e4 7500 0383 |u | 01e6 6340 1b80 |c@ | 01e8 a2c0 4000 | @ | 01ea 2202 4000 |" @ | 01ec 604a ffff |`J | 01ee aee8 1d80 | | 01f0 1340 1680 | @ | 01f2 b100 005c | \| 01f4 6648 4080 |fH@ | 01f6 0100 0261 | a| 01f8 2ec0 4080 |. @ | 01fa 0042 0000 | B | 01fc 3404 0000 |4 | 01fe 03c0 1084 | |