|
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_5f28f0
└─⟦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 00c8 | | .CONST 0x00c8 ; 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 0043 | C | .CONST 0x0043 ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0007 | | .CONST 0x0007 ; Number of locals 001b INIT_0018: 001b 0092 0080 | | Action Push_String_Extended,0x80 ; "!MACHINE.RELEASE.CURRENT.COMMANDS" 001d 00e9 | | Load_Encached String_Cache 001e 02a0 | | Declare_Subprogram Null_Subprogram 001f 4818 |H | Short_Literal 0x18 0020 03d3 | | Declare_Type Access,Defined,Accesses_Protected 0021 00d8 | | Load_Top At_Offset_0 0022 00d9 | | Load_Top At_Offset_1 0023 02a0 | | Declare_Subprogram Null_Subprogram 0024 4802 |H | Short_Literal 0x2 0025 032d | - | Declare_Type Record,Defined 0026 00e4 | | Load_Encached Positive_Cache 0027 0266 | f | Execute Discrete,Bounds 0028 00da | | Load_Top At_Offset_2 0029 02a0 | | Declare_Subprogram Null_Subprogram 002a 4801 |H | Short_Literal 0x1 002b 0350 | P | Declare_Type Array,Defined,Bounds_With_Object 002c 4801 |H | Short_Literal 0x1 002d 4801 |H | Short_Literal 0x1 002e 00da | | Load_Top At_Offset_2 002f 0334 | 4 | Declare_Variable Array,With_Constraint 0030 00da | | Load_Top At_Offset_2 0031 0322 | " | Declare_Variable Record 0032 0092 0081 | | Action Push_String_Extended,0x81 ; "DI" 0034 e403 | | Load 0x2,0x3 0035 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0036 00d9 | | Load_Top At_Offset_1 0037 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0038 0092 0082 | | Action Push_String_Extended,0x82 ; "!TOOLS.DESIGN_IMPLEMENTATION" 003a e403 | | Load 0x2,0x3 003b 03b6 | | Declare_Variable Access,By_Allocation,With_Value 003c 00d9 | | Load_Top At_Offset_1 003d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 003e 4801 |H | Short_Literal 0x1 003f 00da | | Load_Top At_Offset_2 0040 01d6 | | Execute Vector,Field_Write 0041 029f 0053 | S| Declare_Subprogram INIT_0050,For_Call 0043 BODY_0018: 0043 00cf | | Action Mark_Auxiliary 0044 00da | | Load_Top At_Offset_2 0045 01d9 | | Execute Vector,Reverse_Bounds 0046 0263 | c | Execute Discrete,Above_Bound 0047 7003 |p | Jump_Nonzero 0x4b 0048 8407 | | Call 0x2,0x7 0049 00c8 | | Action Pop_Auxiliary_Range 004a 3ffd |? | Loop_Increasing 0x48 004b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 004c 0000 0000 | | .BLANK 0000[0x4] 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 0057 | W | .CONST 0x0057 ; Address of begin 0051 0063 | c | .CONST 0x0063 ; Address of exception handler 0052 0002 | | .CONST 0x0002 ; Number of locals 0053 INIT_0050: 0053 e40a | | Load 0x2,0xa 0054 e406 | | Load 0x2,0x6 0055 01d5 | | Execute Vector,Field_Reference 0056 0007 | | Action Break_Optional 0057 BODY_0050: 0057 0092 0083 | | Action Push_String_Extended,0x83 ; "PROPAGATE,<PROFILE>" 0059 e402 | | Load 0x2,0x2 005a 00da | | Load_Top At_Offset_2 005b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 005c 0227 | ' | Execute Access,All_Reference 005d 00db | | Load_Top At_Offset_3 005e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 005f 0227 | ' | Execute Access,All_Reference 0060 e001 | | Load 0x0,0x1 0061 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0062 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0063 TRAP_0050: 0063 e002 | | Load 0x0,0x2 0064 1b47 | G | Execute Package,Field_Read,Field_Number 0x47 0065 010f | | Execute Exception,Equal 0066 6818 |h | Jump_Zero 0x7f 0067 e002 | | Load 0x0,0x2 0068 180e | | Execute Package,Field_Execute,Field_Number 0xe 0069 4806 |H | Short_Literal 0x6 006a 0092 0084 | | Action Push_String_Extended,0x84 ; "Unable to create abbreviation " 006c e602 | | Load 0x3,0x2 006d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 006e 0227 | ' | Execute Access,All_Reference 006f 01cc | | Execute Vector,Catenate 0070 0092 0085 | | Action Push_String_Extended,0x85 ; " => " 0072 01cc | | Execute Vector,Catenate 0073 e602 | | Load 0x3,0x2 0074 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0075 0227 | ' | Execute Access,All_Reference 0076 01cc | | Execute Vector,Catenate 0077 0092 0086 | | Action Push_String_Extended,0x86 ; " in world " 0079 01cc | | Execute Vector,Catenate 007a e402 | | Load 0x2,0x2 007b 01cc | | Execute Vector,Catenate 007c e003 | | Load 0x0,0x3 007d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 007e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 007f 0100 | | Execute Exception,Raise 0080 ; -------------------------------------------------------------------------------------- 0080 ; STRING TABLE 0080 ; -------------------------------------------------------------------------------------- 0080 0010 | | .STRTAB 0x0010->0x0088 ; "!MACHINE.RELEASE.CURRENT.COMMANDS" 0081 002f | / | .STRTAB 0x002f->0x0098 ; "DI" 0082 002f | / | .STRTAB 0x002f->0x0099 ; "!TOOLS.DESIGN_IMPLEMENTATION" 0083 0049 | I | .STRTAB 0x0049->0x00a7 ; "PROPAGATE,<PROFILE>" 0084 005a | Z | .STRTAB 0x005a->0x00b1 ; "Unable to create abbreviation " 0085 0076 | v | .STRTAB 0x0076->0x00c0 ; " => " 0086 0078 | x | .STRTAB 0x0078->0x00c2 ; " in world " 0087 0080 | | .STREND 0x0080->0x00c7 0088 214d 4143 |!MAC| .STRTAB_STRINGS 00c7 0000 | | .XXX[0x1] 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; Debug Table 00c8 ; -------------------------------------------------------------------------------------- 00c8 0004 000b | | .DEBUG4 0x0004,0x000b,0x14fe,0x0000,0x0001,0x0000 00ce 0000 2000 | | .XXX[0x4] 00d0 026c 4000 | l@ | 00d2 0000 0000 | | .BLANK 0000[0x4] 00d6 0001 2000 | | .XXX[0x2f] 00d8 00fb 4012 | @ | 00da 8505 4000 | @ | 00dc 0000 0012 | | 00de 8683 d009 | | 00e0 42e3 7000 |B p | 00e2 03af e801 | | 00e4 285c ee01 |(\ | 00e6 285f 9400 |(_ | 00e8 00bb c402 | | 00ea 42e6 8400 |B | 00ec 0000 0002 | | 00ee 50c4 7400 |P t | 00f0 0000 0002 | | 00f2 50c8 7400 |P t | 00f4 024a b804 | J | 00f6 0000 ba38 | 8| 00f8 1035 0b80 | 5 | 00fa 0100 0017 | | 00fc 4700 0017 |G | 00fe 7880 485c |x H\| 0100 d080 0000 | | 0102 0000 4a19 | J | 0104 8f00 | | 0105 0000 0000 | | .BLANK 0000[0x4] 0109 0049 5700 | IW | .XXX[0x15] 010b 8000 1747 | G| 010d 0206 a170 | p| 010f 0018 0002 | | 0111 e8e0 04a1 | | 0113 8cf0 0000 | | 0115 0000 0000 | | 0117 0010 0000 | | 0119 0000 0000 | | 011b 0008 0004 | | 011d 9570 | p | 011e 0000 0000 | | .BLANK 0000[0x4] 0122 04a1 94f0 | | .XXX[0xc] 0124 0000 0000 | | 0126 0000 0010 | | 0128 0000 0000 | | 012a 000c acb0 | | 012c 0001 a8f8 | | 012e 0000 0000 | | .BLANK 0000[0x4] 0132 0250 ce7c | P || .XXX[0xc] 0134 0000 0000 | | 0136 0000 0008 | | 0138 0000 0000 | | 013a 0000 0004 | | 013c 0002 4ab8 | J | 013e 0000 0000 | | .BLANK 0000[0x5] 0143 0024 0000 | $ | .XXX[0x5] 0145 bbc4 0250 | P| 0147 b7d0 | | 0148 0000 0000 | | .BLANK 0000[0x4] 014c 0128 6a04 | (j | .XXX[0x10] 014e 0000 0f5c | \| 0150 4025 0d50 |@% P| 0152 8025 0da5 | % | 0154 4000 03ed |@ | 0156 8011 82a6 | | 0158 8000 0000 | | 015a 004a 1bf4 | J | 015c 0000 0000 | | .BLANK 0000[0x5] 0161 09b2 0080 | | .XXX[0x11] 0163 0003 9e86 | | 0165 0020 1000 | | 0167 f800 0073 | s| 0169 d000 007d | }| 016b b002 3054 | 0T| 016d d000 0000 | | 016f 0009 4396 | C | 0171 7000 |p | 0172 0000 0000 | | .BLANK 0000[0x4] 0176 0136 4010 | 6@ | .XXX[0x35] 0178 0000 73d0 | s | 017a c004 0200 | | 017c 5f00 000e |_ | 017e 7a00 9438 |z 8| 0180 6900 0000 |i | 0182 0000 0000 | | 0184 0400 0000 | | 0186 0000 0000 | | 0188 0100 0013 | | 018a 6600 0000 |f | 018c 0001 2871 | (q| 018e d100 0000 | | 0190 0400 0026 | &| 0192 c800 0000 | | 0194 0000 0000 | | 0196 0001 2873 | (s| 0198 d000 0000 | | 019a 0000 0000 | | 019c 0800 0000 | | 019e 0000 0000 | | 01a0 0200 0026 | &| 01a2 cc00 0000 | | 01a4 0002 50e9 | P | 01a6 9e00 0000 | | 01a8 0800 004d | M| 01aa 9000 | | 01ab 0000 0000 | | .BLANK 0000[0x5] 01b0 2400 001f |$ | .XXX[0x2e] 01b2 6c02 50d2 |l P | 01b4 fc00 0000 | | 01b6 0002 5106 | Q | 01b8 c601 2877 | (w| 01ba 9400 006d | m| 01bc fcc0 250f | % | 01be 0280 250f | % | 01c0 5740 0017 |W@ | 01c2 7900 485d |y H]| 01c4 8c80 0000 | | 01c6 0000 4a1f | J | 01c8 5800 0000 |X | 01ca 0000 4a1f | J | 01cc d800 0049 | I| 01ce 5500 8000 |U | 01d0 1747 0206 | G | 01d2 a170 0020 | p | 01d4 0002 e8e0 | | 01d6 0002 ef20 | | 01d8 090b b190 | | 01da 0000 0000 | | 01dc 0944 0b10 | D | 01de 0000 0000 | | .BLANK 0000[0x4] 01e2 0009 2aa0 | * | .XXX[0x15] 01e4 1000 02e8 | | 01e6 e040 d42e | @ .| 01e8 0003 0000 | | 01ea 5d1c 0094 |] | 01ec 3f31 0000 |?1 | 01ee 0000 0000 | | 01f0 0002 0000 | | 01f2 0000 0000 | | 01f4 0001 0000 | | 01f6 92aa | | 01f7 0000 0000 | | .BLANK 0000[0x4] 01fb 0094 4031 | @1| .XXX[0x5] 01fd 0000 0000 | | 01ff 0000 | |