|
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_0d2ce3
└─⟦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 0148 | H | .CONST 0x0148 ; 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 0094 | | .CONST 0x0094 ; 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 00a3 | | Declare_Subprogram INIT_00a0,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 00d6 | | Action Push_String_Extended,0xd6 ; "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 e003 | | Load 0x0,0x3
0031 180e | | Execute Package,Field_Execute,Field_Number 0xe
0032 4802 |H | Short_Literal 0x2
0033 0092 00d7 | | Action Push_String_Extended,0xd7 ; "Merging new activity into old"
0035 e004 | | Load 0x0,0x4
0036 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0037 e5fe | | Load 0x2,-0x2
0038 e5ff | | Load 0x2,-0x1
0039 8005 | | Call 0x0,0x5
003a 0092 00d8 | | Action Push_String_Extended,0xd8 ; "<PROFILE>"
003c e5fe | | Load 0x2,-0x2
003d e001 | | Load 0x0,0x1
003e 1817 | | Execute Package,Field_Execute,Field_Number 0x17
003f e003 | | Load 0x0,0x3
0040 180e | | Execute Package,Field_Execute,Field_Number 0xe
0041 4802 |H | Short_Literal 0x2
0042 0092 00d9 | | Action Push_String_Extended,0xd9 ; "Adding command links to !Machine.Release.Current.Commands"
0044 e004 | | Load 0x0,0x4
0045 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0046 e5fd | | Load 0x2,-0x3
0047 e5ff | | Load 0x2,-0x1
0048 8006 | | Call 0x0,0x6
0049 e5fc | | Load 0x2,-0x4
004a 8404 | | Call 0x2,0x4
004b 7009 |p | Jump_Nonzero 0x55
004c 0092 00d8 | | Action Push_String_Extended,0xd8 ; "<PROFILE>"
004e 4800 |H | Short_Literal 0x0
004f 0092 00da | | Action Push_String_Extended,0xda ; "_"
0051 e5fc | | Load 0x2,-0x4
0052 01cc | | Execute Vector,Catenate
0053 e007 | | Load 0x0,0x7
0054 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0055 e003 | | Load 0x0,0x3
0056 180e | | Execute Package,Field_Execute,Field_Number 0xe
0057 4802 |H | Short_Literal 0x2
0058 0092 00db | | Action Push_String_Extended,0xdb ; "Uncoding and recoding main procedures"
005a e004 | | Load 0x0,0x4
005b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
005c e5fb | | Load 0x2,-0x5
005d 8404 | | Call 0x2,0x4
005e 700c |p | Jump_Nonzero 0x6b
005f 0092 00d8 | | Action Push_String_Extended,0xd8 ; "<PROFILE>"
0061 4800 |H | Short_Literal 0x0
0062 0092 00dc | | Action Push_String_Extended,0xdc ; "<worlds>"
0064 4802 |H | Short_Literal 0x2
0065 0092 00da | | Action Push_String_Extended,0xda ; "_"
0067 e5fb | | Load 0x2,-0x5
0068 01cc | | Execute Vector,Catenate
0069 e008 | | Load 0x0,0x8
006a 1816 | | Execute Package,Field_Execute,Field_Number 0x16
006b e5fa | | Load 0x2,-0x6
006c 8404 | | Call 0x2,0x4
006d 700d |p | Jump_Nonzero 0x7b
006e 0092 00d8 | | Action Push_String_Extended,0xd8 ; "<PROFILE>"
0070 4800 |H | Short_Literal 0x0
0071 0092 00dc | | Action Push_String_Extended,0xdc ; "<worlds>"
0073 4803 |H | Short_Literal 0x3
0074 4802 |H | Short_Literal 0x2
0075 0092 00da | | Action Push_String_Extended,0xda ; "_"
0077 e5fa | | Load 0x2,-0x6
0078 01cc | | Execute Vector,Catenate
0079 e008 | | Load 0x0,0x8
007a 1819 | | Execute Package,Field_Execute,Field_Number 0x19
007b e5fc | | Load 0x2,-0x4
007c 8404 | | Call 0x2,0x4
007d 7009 |p | Jump_Nonzero 0x87
007e 0092 00d8 | | Action Push_String_Extended,0xd8 ; "<PROFILE>"
0080 4800 |H | Short_Literal 0x0
0081 0092 00da | | Action Push_String_Extended,0xda ; "_"
0083 e5fc | | Load 0x2,-0x4
0084 01cc | | Execute Vector,Catenate
0085 e007 | | Load 0x0,0x7
0086 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0087 00d9 | | Load_Top At_Offset_1
0088 e002 | | Load 0x0,0x2
0089 1817 | | Execute Package,Field_Execute,Field_Number 0x17
008a e003 | | Load 0x0,0x3
008b 180e | | Execute Package,Field_Execute,Field_Number 0xe
008c e004 | | Load 0x0,0x4
008d 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
008e 0092 00d8 | | Action Push_String_Extended,0xd8 ; "<PROFILE>"
0090 00db | | Load_Top At_Offset_3
0091 e001 | | Load 0x0,0x1
0092 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0093 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0094 TRAP_0018:
0094 0007 | | Action Break_Optional
0095 0092 00d8 | | Action Push_String_Extended,0xd8 ; "<PROFILE>"
0097 e402 | | Load 0x2,0x2
0098 e001 | | Load 0x0,0x1
0099 1817 | | Execute Package,Field_Execute,Field_Number 0x17
009a 00d8 | | Load_Top At_Offset_0
009b 0101 | | Execute Exception,Reraise
009c 0000 0000 | | .BLANK 0000[0x4]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00b1 | | .CONST 0x00b1 ; Address of begin
00a1 00cb | | .CONST 0x00cb ; Address of exception handler
00a2 0007 | | .CONST 0x0007 ; Number of locals
00a3 INIT_00a0:
00a3 e009 | | Load 0x0,0x9
00a4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00a5 02c7 | | Declare_Variable Any
00a6 00d8 | | Load_Top At_Offset_0
00a7 1c00 | | Execute_Immediate Run_Utility,0x0
00a8 4801 |H | Short_Literal 0x1
00a9 4801 |H | Short_Literal 0x1
00aa 00e9 | | Load_Encached String_Cache
00ab 035b | [ | Declare_Type Array,Constrained
00ac 0337 | 7 | Declare_Variable Array
00ad 00e3 | | Load_Encached Natural_Cache
00ae 00e1 | | Load_Encached Boolean_Cache
00af 03e9 | | Declare_Variable Discrete,Duplicate
00b0 03e9 | | Declare_Variable Discrete,Duplicate
00b1 BODY_00a0:
00b1 e602 | | Load 0x3,0x2
00b2 00ea | | Load_Encached Null_String_Cache
00b3 e7ff | | Load 0x3,-0x1
00b4 4800 |H | Short_Literal 0x0
00b5 e009 | | Load 0x0,0x9
00b6 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00b7 c602 | | Store 0x3,0x2
00b8 00e1 | | Load_Encached Boolean_Cache
00b9 00e1 | | Load_Encached Boolean_Cache
00ba 00e1 | | Load_Encached Boolean_Cache
00bb 00e3 | | Load_Encached Natural_Cache
00bc e603 | | Load 0x3,0x3
00bd e602 | | Load 0x3,0x2
00be e009 | | Load 0x0,0x9
00bf 1868 | h | Execute Package,Field_Execute,Field_Number 0x68
00c0 00d1 | | Pop_Control Pop_Count_1
00c1 c604 | | Store 0x3,0x4
00c2 c605 | | Store 0x3,0x5
00c3 005b | [ | Store_Top Discrete,At_Offset_3
00c4 0059 | Y | Store_Top Discrete,At_Offset_1
00c5 e602 | | Load 0x3,0x2
00c6 e009 | | Load 0x0,0x9
00c7 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00c8 c602 | | Store 0x3,0x2
00c9 00d8 | | Load_Top At_Offset_0
00ca 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00cb TRAP_00a0:
00cb 0007 | | Action Break_Optional
00cc e602 | | Load 0x3,0x2
00cd e009 | | Load 0x0,0x9
00ce 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
00cf 6804 |h | Jump_Zero 0xd4
00d0 e602 | | Load 0x3,0x2
00d1 e009 | | Load 0x0,0x9
00d2 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00d3 c602 | | Store 0x3,0x2
00d4 4801 |H | Short_Literal 0x1
00d5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00d6 ; --------------------------------------------------------------------------------------
00d6 ; STRING TABLE
00d6 ; --------------------------------------------------------------------------------------
00d6 0010 | | .STRTAB 0x0010->0x00de ; "Could not enable privileged mode for this user. Install may fail"
00d7 004f | O | .STRTAB 0x004f->0x00fe ; "Merging new activity into old"
00d8 006a | j | .STRTAB 0x006a->0x010d ; "<PROFILE>"
00d9 0071 | q | .STRTAB 0x0071->0x0111 ; "Adding command links to !Machine.Release.Current.Commands"
00da 00a8 | | .STRTAB 0x00a8->0x012e ; "_"
00db 00a7 | | .STRTAB 0x00a7->0x012e ; "Uncoding and recoding main procedures"
00dc 00ca | | .STRTAB 0x00ca->0x0141 ; "<worlds>"
00dd 00d0 | | .STREND 0x00d0->0x0145
00de 436f 756c |Coul| .STRTAB_STRINGS
0145 0000 0000 | | .XXX[0x3]
0147 0000 | |
0148 ; --------------------------------------------------------------------------------------
0148 ; Debug Table
0148 ; --------------------------------------------------------------------------------------
0148 0004 0000 | | .DEBUG4 0x0004,0x0000,0x77be,0x0000,0x0001,0x0000
014e 603c 08ec |`< | .XXX[0x4e]
0150 08f4 08ec | |
0152 08f4 08ec | |
0154 012f 9024 | / $|
0156 036b 980c | k |
0158 08ec 08f7 | |
015a 1031 1404 | 1 |
015c 0000 0000 | |
015e fd89 2508 | % |
0160 ef65 1d04 | e |
0162 fe26 6666 | &ff|
0164 6619 7b74 |f {t|
0166 fed5 5555 | UU|
0168 5555 555c |UUU\|
016a 0f44 0010 | D |
016c 0014 0398 | |
016e 0904 0398 | |
0170 0900 0398 | |
0172 0f8c 0a7c | ||
0174 156c 0364 | l d|
0176 04a8 001c | |
0178 0360 0f60 | ` `|
017a 0f63 901c | c |
017c 0363 9808 | c |
017e 08d1 c004 | |
0180 2004 010b | |
0182 9028 0363 | ( c|
0184 9808 08d1 | |
0186 c004 2004 | |
0188 0104 0361 | a|
018a 7f6c 0369 | l i|
018c 7f57 9815 | W |
018e 7f3c 08ec | < |
0190 08f4 08ec | |
0192 08f4 08ec | |
0194 012f 9024 | / $|
0196 036b 980c | k |
0198 08ec 08f7 | |
019a 1031 1404 | 1 |
019c 0000 0000 | | .BLANK 0000[0x6]
01a2 1024 0010 | $ | .XXX[0x5e]
01a4 0014 0398 | |
01a6 0904 0398 | |
01a8 0900 0398 | |
01aa 0f8c 0a7c | ||
01ac 15ac 0364 | d|
01ae 04a8 001c | |
01b0 0360 0f60 | ` `|
01b2 0f63 901c | c |
01b4 0363 9808 | c |
01b6 08d1 c004 | |
01b8 2004 010b | |
01ba 9028 0363 | ( c|
01bc 9808 08d1 | |
01be c004 2004 | |
01c0 0104 0361 | a|
01c2 606c 0369 |`l i|
01c4 6057 9815 |`W |
01c6 603c 08ec |`< |
01c8 08f4 08ec | |
01ca 08f4 08ec | |
01cc 012f 9024 | / $|
01ce 036b 980c | k |
01d0 08ec 08f7 | |
01d2 1031 1404 | 1 |
01d4 0000 0000 | |
01d6 fd89 2508 | % |
01d8 ef65 1d04 | e |
01da fe26 6666 | &ff|
01dc 6619 7b74 |f {t|
01de fed5 5555 | UU|
01e0 5555 555c |UUU\|
01e2 1124 0010 | $ |
01e4 0014 0398 | |
01e6 0904 0398 | |
01e8 0900 0398 | |
01ea 0f8c 0a7c | ||
01ec 15ec 0364 | d|
01ee 04a8 001c | |
01f0 0360 0f60 | ` `|
01f2 0f63 901c | c |
01f4 0363 9808 | c |
01f6 08d1 c004 | |
01f8 2004 010b | |
01fa 9028 0363 | ( c|
01fc 9808 08d1 | |
01fe c004 2004 | |