|
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 0100 | | .CONST 0x0100 ; 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 0026 | & | .CONST 0x0026 ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0004 | | .CONST 0x0004 ; Number of locals
001b INIT_0018:
001b 0092 0088 | | Action Push_String_Extended,0x88 ; "!Machine[Initialize@,Editor_Data.@_Commands]"
001d e001 | | Load 0x0,0x1
001e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
001f 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0020 02c7 | | Declare_Variable Any
0021 00d8 | | Load_Top At_Offset_0
0022 1c00 | | Execute_Immediate Run_Utility,0x0
0023 e001 | | Load 0x0,0x1
0024 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0025 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0026 BODY_0018:
0026 0092 0089 | | Action Push_String_Extended,0x89 ; "Reboot_For_New_Release"
0028 8002 | | Call 0x0,0x2
0029 6858 |hX | Jump_Zero 0x82
002a 0092 008a | | Action Push_String_Extended,0x8a ; "<errors>"
002c 4800 |H | Short_Literal 0x0
002d 0092 008b | | Action Push_String_Extended,0x8b ; "<ALL_WORLDS>"
002f 4803 |H | Short_Literal 0x3
0030 4803 |H | Short_Literal 0x3
0031 e402 | | Load 0x2,0x2
0032 e003 | | Load 0x0,0x3
0033 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0034 e001 | | Load 0x0,0x1
0035 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0036 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0037 00da | | Load_Top At_Offset_2
0038 604b |`K | Indirect_Literal Discrete,0x84,{0x00000000, 0x00004000}
0039 e004 | | Load 0x0,0x4
003a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
003b e005 | | Load 0x0,0x5
003c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
003d e006 | | Load 0x0,0x6
003e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
003f 4801 |H | Short_Literal 0x1
0040 4800 |H | Short_Literal 0x0
0041 e005 | | Load 0x0,0x5
0042 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0043 e001 | | Load 0x0,0x1
0044 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0045 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0046 0092 008c | | Action Push_String_Extended,0x8c ; "!Machine[Initialize@,Editor_Data.@_Commands]'S(~coded)"
0048 e001 | | Load 0x0,0x1
0049 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
004a 181b | | Execute Package,Field_Execute,Field_Number 0x1b
004b c403 | | Store 0x2,0x3
004c 0059 | Y | Store_Top Discrete,At_Offset_1
004d 00d8 | | Load_Top At_Offset_0
004e 0f03 | | Execute_Immediate Equal,0x3
004f 7007 |p | Jump_Nonzero 0x57
0050 00d8 | | Load_Top At_Offset_0
0051 7012 |p | Jump_Nonzero 0x64
0052 00d9 | | Load_Top At_Offset_1
0053 e001 | | Load 0x0,0x1
0054 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0055 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0056 680d |h | Jump_Zero 0x64
0057 4800 |H | Short_Literal 0x0
0058 e007 | | Load 0x0,0x7
0059 181f | | Execute Package,Field_Execute,Field_Number 0x1f
005a e5ff | | Load 0x2,-0x1
005b e007 | | Load 0x0,0x7
005c 181d | | Execute Package,Field_Execute,Field_Number 0x1d
005d 0092 008d | | Action Push_String_Extended,0x8d ; "Load new release"
005f 0092 008e | | Action Push_String_Extended,0x8e ; "Release"
0061 e007 | | Load 0x0,0x7
0062 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0063 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0064 e008 | | Load 0x0,0x8
0065 180e | | Execute Package,Field_Execute,Field_Number 0xe
0066 4805 |H | Short_Literal 0x5
0067 0092 008f | | Action Push_String_Extended,0x8f ; "The following Units must be coded before rebooting..."
0069 e009 | | Load 0x0,0x9
006a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
006b 00cf | | Action Mark_Auxiliary
006c 780f |x | Jump 0x7c
006d e008 | | Load 0x0,0x8
006e 180e | | Execute Package,Field_Execute,Field_Number 0xe
006f 4807 |H | Short_Literal 0x7
0070 e403 | | Load 0x2,0x3
0071 e001 | | Load 0x0,0x1
0072 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0073 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0074 e009 | | Load 0x0,0x9
0075 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0076 00da | | Load_Top At_Offset_2
0077 e001 | | Load 0x0,0x1
0078 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0079 181d | | Execute Package,Field_Execute,Field_Number 0x1d
007a c403 | | Store 0x2,0x3
007b 00c9 | | Action Pop_Auxiliary_Loop
007c 00da | | Load_Top At_Offset_2
007d e001 | | Load 0x0,0x1
007e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
007f 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0080 6fec |o | Jump_Zero 0x6d
0081 00ce | | Action Pop_Auxiliary
0082 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0083 0000 | | .XXX[0x1]
0084 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0088 ; --------------------------------------------------------------------------------------
0088 ; STRING TABLE
0088 ; --------------------------------------------------------------------------------------
0088 0012 | | .STRTAB 0x0012->0x0091 ; "!Machine[Initialize@,Editor_Data.@_Commands]"
0089 003c | < | .STRTAB 0x003c->0x00a7 ; "Reboot_For_New_Release"
008a 0050 | P | .STRTAB 0x0050->0x00b2 ; "<errors>"
008b 0056 | V | .STRTAB 0x0056->0x00b6 ; "<ALL_WORLDS>"
008c 0060 | ` | .STRTAB 0x0060->0x00bc ; "!Machine[Initialize@,Editor_Data.@_Commands]'S(~coded)"
008d 0094 | | .STRTAB 0x0094->0x00d7 ; "Load new release"
008e 00a2 | | .STRTAB 0x00a2->0x00df ; "Release"
008f 00a7 | | .STRTAB 0x00a7->0x00e2 ; "The following Units must be coded before rebooting..."
0090 00da | | .STREND 0x00da->0x00fd
0091 214d 6163 |!Mac| .STRTAB_STRINGS
00fd 0000 0000 | | .XXX[0x3]
00ff 0000 | |
0100 ; --------------------------------------------------------------------------------------
0100 ; Debug Table
0100 ; --------------------------------------------------------------------------------------
0100 0004 000d | | .DEBUG4 0x0004,0x000d,0x96dc,0x0000,0x0001,0x0000
0106 1918 e0c0 | | .XXX[0xfa]
0108 c080 c0cd | |
010a 14c0 c0c0 | |
010c f829 4161 | )Aa|
010e 310c 8149 |1 I|
0110 4028 c4d4 |@( |
0112 d0d4 80d4 | |
0114 d0c4 8161 | a|
0116 6481 18d4 |d |
0118 cca0 d8a5 | |
011a 4c29 6140 |L)a@|
011c 80bd 18d4 | |
011e cc80 c4c4 | |
0120 d080 c8c8 | |
0122 80c4 80c0 | |
0124 80c8 c080 | |
0126 c4e0 80c4 | |
0128 e080 c8d0 | |
012a 80c0 28f1 | ( |
012c 1918 c119 | |
012e 0cc0 8119 | |
0130 18cd 1914 | |
0132 c081 1918 | |
0134 dd19 14c0 | |
0136 80c0 dd18 | |
0138 c0d0 c080 | |
013a c0dd 14c0 | |
013c c0c0 80c0 | |
013e dd0c c0c0 | |
0140 c080 c0dc | |
0142 e0c0 c0c0 | |
0144 80c0 dce0 | |
0146 c0c0 c080 | |
0148 c0dc c0c0 | |
014a c0c0 2880 | ( |
014c c0dc c0c0 | |
014e c0c0 80c0 | |
0150 dcc0 c0c0 | |
0152 c080 c0dc | |
0154 c0c0 c0c0 | |
0156 80c0 dcc0 | |
0158 c0c0 c080 | |
015a c0dc c0c0 | |
015c c0c0 80c0 | |
015e dcc0 c0c0 | |
0160 c081 1919 | |
0162 190c c0c0 | |
0164 8119 1919 | |
0166 0cc0 c081 | |
0168 1919 190c | |
016a c0c0 f829 | )|
016c 4161 310c |Aa1 |
016e 8149 4028 | I@(|
0170 c4d4 e0e4 | |
0172 80d4 d0c4 | |
0174 8161 6481 | ad |
0176 18d4 cca1 | |
0178 c8a5 4c29 | L)|
017a 6140 80bd |a@ |
017c 18d4 cc80 | |
017e e4dc 80c8 | |
0180 c880 c880 | |
0182 c080 c8c4 | |
0184 80c4 e080 | |
0186 c4e0 80c8 | |
0188 d080 c028 | (|
018a f0c5 1914 | |
018c c0c0 c080 | |
018e dd19 18e0 | |
0190 c0c0 80dd | |
0192 1919 0cc0 | |
0194 c080 dce0 | |
0196 cd0c c0c0 | |
0198 80cc c0c5 | |
019a 14c0 c080 | |
019c c0c0 c114 | |
019e c0c0 80c0 | |
01a0 c0c1 14c0 | |
01a2 c080 c0cd | |
01a4 1914 c0c0 | |
01a6 80c5 1919 | |
01a8 14c0 c028 | (|
01aa 80dd 14c1 | |
01ac 14c0 c081 | |
01ae 18c0 c114 | |
01b0 c0c0 8114 | |
01b2 c0c1 14c0 | |
01b4 c081 14c0 | |
01b6 c114 c0c0 | |
01b8 8118 c0c5 | |
01ba 14c0 c081 | |
01bc 18e0 cd14 | |
01be c0c0 80dd | |
01c0 1919 1914 | |
01c2 c080 cd19 | |
01c4 14dd 14c0 | |
01c6 80c1 18e0 | |
01c8 cd14 c0f8 | |
01ca 2941 6131 |)Aa1|
01cc 0c81 4940 | I@|
01ce 28c4 d8c4 |( |
01d0 c080 d4d0 | |
01d2 c481 6164 | ad|
01d4 8118 d4cc | |
01d6 a184 a54c | L|
01d8 2961 4080 |)a@ |
01da bd18 d4cc | |
01dc 80c4 c4c0 | |
01de 80c8 c880 | |
01e0 c080 c080 | |
01e2 c8c4 80c4 | |
01e4 e080 c4e0 | |
01e6 80c8 d080 | |
01e8 c028 f0dd | ( |
01ea 14cd 0cc0 | |
01ec c081 1915 | |
01ee 1918 c0c0 | |
01f0 80dd 1919 | |
01f2 18e0 c080 | |
01f4 c118 e0dc | |
01f6 e0c0 80c1 | |
01f8 18c0 cce0 | |
01fa c080 c118 | |
01fc c0cc e0c0 | |
01fe 80c1 14c0 | |