|
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_5e40f2
└─⟦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 0140 | @ | .CONST 0x0140 ; 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 0023 | # | .CONST 0x0023 ; Address of begin 0019 008b | | .CONST 0x008b ; Address of exception handler 001a 0004 | | .CONST 0x0004 ; Number of locals 001b INIT_0018: 001b e001 | | Load 0x0,0x1 001c 1816 | | Execute Package,Field_Execute,Field_Number 0x16 001d e002 | | Load 0x0,0x2 001e 1818 | | Execute Package,Field_Execute,Field_Number 0x18 001f 00e1 | | Load_Encached Boolean_Cache 0020 03f1 | | Declare_Variable Discrete,With_Value 0021 029f 009b | | Declare_Subprogram INIT_0098,For_Call 0023 BODY_0018: 0023 4801 |H | Short_Literal 0x1 0024 e002 | | Load 0x0,0x2 0025 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0026 e002 | | Load 0x0,0x2 0027 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0028 7007 |p | Jump_Nonzero 0x30 0029 e003 | | Load 0x0,0x3 002a 180e | | Execute Package,Field_Execute,Field_Number 0xe 002b 4806 |H | Short_Literal 0x6 002c 0092 00ce | | Action Push_String_Extended,0xce ; "Could not enable privileged mode for this user. Install may fail" 002e e004 | | Load 0x0,0x4 002f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0030 4800 |H | Short_Literal 0x0 0031 0092 00cf | | Action Push_String_Extended,0xcf ; "merging new activity into old" 0033 8005 | | Call 0x0,0x5 0034 e5fe | | Load 0x2,-0x2 0035 e5ff | | Load 0x2,-0x1 0036 8006 | | Call 0x0,0x6 0037 0092 00d0 | | Action Push_String_Extended,0xd0 ; "<PROFILE>" 0039 e5fe | | Load 0x2,-0x2 003a e001 | | Load 0x0,0x1 003b 1817 | | Execute Package,Field_Execute,Field_Number 0x17 003c 4800 |H | Short_Literal 0x0 003d 0092 00d1 | | Action Push_String_Extended,0xd1 ; "Adding command links to !Machine.Release.Current.Commands" 003f 8005 | | Call 0x0,0x5 0040 e5fd | | Load 0x2,-0x3 0041 e5ff | | Load 0x2,-0x1 0042 8007 | | Call 0x0,0x7 0043 e5fc | | Load 0x2,-0x4 0044 8404 | | Call 0x2,0x4 0045 7009 |p | Jump_Nonzero 0x4f 0046 0092 00d0 | | Action Push_String_Extended,0xd0 ; "<PROFILE>" 0048 4800 |H | Short_Literal 0x0 0049 0092 00d2 | | Action Push_String_Extended,0xd2 ; "_" 004b e5fc | | Load 0x2,-0x4 004c 01cc | | Execute Vector,Catenate 004d e008 | | Load 0x0,0x8 004e 181f | | Execute Package,Field_Execute,Field_Number 0x1f 004f 4800 |H | Short_Literal 0x0 0050 0092 00d3 | | Action Push_String_Extended,0xd3 ; "Uncoding and recoding main procedures" 0052 8005 | | Call 0x0,0x5 0053 e5fb | | Load 0x2,-0x5 0054 8404 | | Call 0x2,0x4 0055 700c |p | Jump_Nonzero 0x62 0056 0092 00d0 | | Action Push_String_Extended,0xd0 ; "<PROFILE>" 0058 4800 |H | Short_Literal 0x0 0059 0092 00d4 | | Action Push_String_Extended,0xd4 ; "<worlds>" 005b 4802 |H | Short_Literal 0x2 005c 0092 00d2 | | Action Push_String_Extended,0xd2 ; "_" 005e e5fb | | Load 0x2,-0x5 005f 01cc | | Execute Vector,Catenate 0060 e009 | | Load 0x0,0x9 0061 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0062 e5fa | | Load 0x2,-0x6 0063 8404 | | Call 0x2,0x4 0064 700d |p | Jump_Nonzero 0x72 0065 0092 00d0 | | Action Push_String_Extended,0xd0 ; "<PROFILE>" 0067 4800 |H | Short_Literal 0x0 0068 0092 00d4 | | Action Push_String_Extended,0xd4 ; "<worlds>" 006a 4803 |H | Short_Literal 0x3 006b 4802 |H | Short_Literal 0x2 006c 0092 00d2 | | Action Push_String_Extended,0xd2 ; "_" 006e e5fa | | Load 0x2,-0x6 006f 01cc | | Execute Vector,Catenate 0070 e009 | | Load 0x0,0x9 0071 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0072 e5fc | | Load 0x2,-0x4 0073 8404 | | Call 0x2,0x4 0074 7009 |p | Jump_Nonzero 0x7e 0075 0092 00d0 | | Action Push_String_Extended,0xd0 ; "<PROFILE>" 0077 4800 |H | Short_Literal 0x0 0078 0092 00d2 | | Action Push_String_Extended,0xd2 ; "_" 007a e5fc | | Load 0x2,-0x4 007b 01cc | | Execute Vector,Catenate 007c e008 | | Load 0x0,0x8 007d 181e | | Execute Package,Field_Execute,Field_Number 0x1e 007e 00d9 | | Load_Top At_Offset_1 007f e002 | | Load 0x0,0x2 0080 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0081 e003 | | Load 0x0,0x3 0082 180e | | Execute Package,Field_Execute,Field_Number 0xe 0083 e004 | | Load 0x0,0x4 0084 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0085 0092 00d0 | | Action Push_String_Extended,0xd0 ; "<PROFILE>" 0087 00db | | Load_Top At_Offset_3 0088 e001 | | Load 0x0,0x1 0089 1817 | | Execute Package,Field_Execute,Field_Number 0x17 008a 4507 |E | Exit_Suprogram New_Top_Offset 0x7 008b TRAP_0018: 008b 0007 | | Action Break_Optional 008c 0092 00d0 | | Action Push_String_Extended,0xd0 ; "<PROFILE>" 008e e402 | | Load 0x2,0x2 008f e001 | | Load 0x0,0x1 0090 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0091 00d8 | | Load_Top At_Offset_0 0092 0101 | | Execute Exception,Reraise 0093 0000 0000 | | .BLANK 0000[0x5] 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 00a9 | | .CONST 0x00a9 ; Address of begin 0099 00c3 | | .CONST 0x00c3 ; Address of exception handler 009a 0007 | | .CONST 0x0007 ; Number of locals 009b INIT_0098: 009b e00a | | Load 0x0,0xa 009c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 009d 02c7 | | Declare_Variable Any 009e 00d8 | | Load_Top At_Offset_0 009f 1c00 | | Execute_Immediate Run_Utility,0x0 00a0 4801 |H | Short_Literal 0x1 00a1 4801 |H | Short_Literal 0x1 00a2 00e9 | | Load_Encached String_Cache 00a3 035b | [ | Declare_Type Array,Constrained 00a4 0337 | 7 | Declare_Variable Array 00a5 00e3 | | Load_Encached Natural_Cache 00a6 00e1 | | Load_Encached Boolean_Cache 00a7 03e9 | | Declare_Variable Discrete,Duplicate 00a8 03e9 | | Declare_Variable Discrete,Duplicate 00a9 BODY_0098: 00a9 e602 | | Load 0x3,0x2 00aa 00ea | | Load_Encached Null_String_Cache 00ab e7ff | | Load 0x3,-0x1 00ac 4800 |H | Short_Literal 0x0 00ad e00a | | Load 0x0,0xa 00ae 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00af c602 | | Store 0x3,0x2 00b0 00e1 | | Load_Encached Boolean_Cache 00b1 00e1 | | Load_Encached Boolean_Cache 00b2 00e1 | | Load_Encached Boolean_Cache 00b3 00e3 | | Load_Encached Natural_Cache 00b4 e603 | | Load 0x3,0x3 00b5 e602 | | Load 0x3,0x2 00b6 e00a | | Load 0x0,0xa 00b7 1868 | h | Execute Package,Field_Execute,Field_Number 0x68 00b8 00d1 | | Pop_Control Pop_Count_1 00b9 c604 | | Store 0x3,0x4 00ba c605 | | Store 0x3,0x5 00bb 005b | [ | Store_Top Discrete,At_Offset_3 00bc 0059 | Y | Store_Top Discrete,At_Offset_1 00bd e602 | | Load 0x3,0x2 00be e00a | | Load 0x0,0xa 00bf 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00c0 c602 | | Store 0x3,0x2 00c1 00d8 | | Load_Top At_Offset_0 00c2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00c3 TRAP_0098: 00c3 0007 | | Action Break_Optional 00c4 e602 | | Load 0x3,0x2 00c5 e00a | | Load 0x0,0xa 00c6 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 00c7 6804 |h | Jump_Zero 0xcc 00c8 e602 | | Load 0x3,0x2 00c9 e00a | | Load 0x0,0xa 00ca 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00cb c602 | | Store 0x3,0x2 00cc 4801 |H | Short_Literal 0x1 00cd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ce ; -------------------------------------------------------------------------------------- 00ce ; STRING TABLE 00ce ; -------------------------------------------------------------------------------------- 00ce 0010 | | .STRTAB 0x0010->0x00d6 ; "Could not enable privileged mode for this user. Install may fail" 00cf 004f | O | .STRTAB 0x004f->0x00f6 ; "merging new activity into old" 00d0 006a | j | .STRTAB 0x006a->0x0105 ; "<PROFILE>" 00d1 0071 | q | .STRTAB 0x0071->0x0109 ; "Adding command links to !Machine.Release.Current.Commands" 00d2 00a8 | | .STRTAB 0x00a8->0x0126 ; "_" 00d3 00a7 | | .STRTAB 0x00a7->0x0126 ; "Uncoding and recoding main procedures" 00d4 00ca | | .STRTAB 0x00ca->0x0139 ; "<worlds>" 00d5 00d0 | | .STREND 0x00d0->0x013d 00d6 436f 756c |Coul| .STRTAB_STRINGS 013d 0000 0000 | | .XXX[0x3] 013f 0000 | | 0140 ; -------------------------------------------------------------------------------------- 0140 ; Debug Table 0140 ; -------------------------------------------------------------------------------------- 0140 0004 000d | | .DEBUG4 0x0004,0x000d,0x96d0,0x0000,0x0001,0x0000 0146 95c1 d1a5 | | .XXX[0x3b] 0148 bdb8 8185 | | 014a d081 c1bd | | 014c cda5 d1a5 | | 014e bdb8 b8b8 | | 0150 b880 80f4 | | 0152 f880 b8b8 | | 0154 b8a8 a8a8 | | 0156 81d5 b9a1 | | 0158 85b9 91b1 | | 015a 9590 81c1 | | 015c c995 d1d1 | | 015e e481 c1c9 | | 0160 a5b9 d195 | | 0162 c881 95e1 | | 0164 8d95 c1d1 | | 0166 a5bd b9dd | | 0168 85c9 b9a5 | | 016a b99c e881 | | 016c 9d85 c989 | | 016e 859d 9481 | | 0170 8da1 85c9 | | 0172 858d d195 | | 0174 c9cc 8189 | | 0176 95e5 bdb9 | | 0178 9081 859d | | 017a 9dc9 959d | | 017c 85d1 9481 | | 017e 95b9 90b0 | | 0180 8000 | | 0181 0000 0000 | | .BLANK 0000[0x6] 0187 1000 2eed | . | .XXX[0xc] 0189 0c00 0000 | | 018b 0400 0000 | | 018d 0000 0880 | | 018f c004 0000 | | 0191 0083 4000 | @ | 0193 0000 0000 | | .BLANK 0000[0x10] 01a3 0061 1541 | a A| .XXX[0x5d] 01a5 4d25 313d |M%1=| 01a7 397d 4d51 |9}MQ| 01a9 4925 391d |I%9 | 01ab 7d55 5125 |}UQ%| 01ad 3125 5125 |1%Q%| 01af 154c f8a4 | L | 01b1 0000 0000 | | 01b3 0880 c000 | | 01b5 0000 0000 | | 01b7 0000 0008 | | 01b9 80c0 0000 | | 01bb 0008 80c0 | | 01bd 0000 0000 | | 01bf 0008 80c0 | | 01c1 0000 0008 | | 01c3 80c0 0000 | | 01c5 0008 b4c4 | | 01c7 0000 0014 | | 01c9 80e0 c0c0 | | 01cb c000 0400 | | 01cd 0000 6115 | a | 01cf 414d 2531 |AM%1| 01d1 3d39 7d4d |=9}M| 01d3 5149 2539 |QI%9| 01d5 1d7d 5551 | }UQ| 01d7 2531 2551 |%1%Q| 01d9 2515 4d1c |% M | 01db a400 0000 | | 01dd 0020 80c4 | | 01df c8cc d4c8 | | 01e1 c0d0 0404 | | 01e3 0000 0010 | | 01e5 80c4 e0d4 | | 01e7 0404 0000 | | 01e9 000c 80e0 | | 01eb c400 0004 | | 01ed 0004 0000 | | 01ef 000c 80e0 | | 01f1 c400 0000 | | 01f3 0880 c004 | | 01f5 1c04 0000 | | 01f7 0008 80c0 | | 01f9 0000 0008 | | 01fb 80c4 0418 | | 01fd 0400 0000 | | 01ff 0880 | |