|
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 00b8 | | .CONST 0x00b8 ; 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 0052 | R | .CONST 0x0052 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0025 | % | .CONST 0x0025 ; 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 00c4 | | Action Make_Default
0016 00c4 | | Action Make_Default
0017 00c4 | | Action Make_Default
0018 00c4 | | Action Make_Default
0019 00c4 | | Action Make_Default
001a 00c4 | | Action Make_Default
001b 00c4 | | Action Make_Default
001c 00c4 | | Action Make_Default
001d 00c4 | | Action Make_Default
001e 00c4 | | Action Make_Default
001f 00c4 | | Action Make_Default
0020 00c4 | | Action Make_Default
0021 00c4 | | Action Make_Default
0022 00c4 | | Action Make_Default
0023 00c4 | | Action Make_Default
0024 e001 | | Load 0x0,0x1
0025 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0026 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0027 0129 | ) | Execute Any,Make_Visible
0028 c21d | | Store 0x1,0x1d
0029 e001 | | Load 0x0,0x1
002a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
002b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
002c 0129 | ) | Execute Any,Make_Visible
002d c21e | | Store 0x1,0x1e
002e 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated
0030 c21f | | Store 0x1,0x1f
0031 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated
0033 c220 | | Store 0x1,0x20
0034 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated
0036 c221 | ! | Store 0x1,0x21
0037 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated
0039 c222 | " | Store 0x1,0x22
003a 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated
003c c223 | # | Store 0x1,0x23
003d 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated
003f c224 | $ | Store 0x1,0x24
0040 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated
0042 c225 | % | Store 0x1,0x25
0043 00bf | | Action Accept_Activation
0044 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0045 00c7 | | Action Elaborate_Subprogram
0046 1d20 | | Execute_Immediate Reference_Lex_1,0x20
0047 00c7 | | Action Elaborate_Subprogram
0048 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
0049 00c7 | | Action Elaborate_Subprogram
004a 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
004b 00c7 | | Action Elaborate_Subprogram
004c 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
004d 00c7 | | Action Elaborate_Subprogram
004e 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
004f 00c7 | | Action Elaborate_Subprogram
0050 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
0051 00c7 | | Action Elaborate_Subprogram
0052 BODY_0008:
0052 00bc | | Action Signal_Activated
0053 00bb | | Action Signal_Completion
0054 0000 0000 | | .BLANK 0000[0x4]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005f | _ | .CONST 0x005f ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0002 | | .CONST 0x0002 ; Number of locals
005b INIT_0058:
005b e21d | | Load 0x1,0x1d
005c 02c7 | | Declare_Variable Any
005d 00d8 | | Load_Top At_Offset_0
005e 1c00 | | Execute_Immediate Run_Utility,0x0
005f BODY_0058:
005f 0833 | 3 | Execute_Immediate Raise,0x33
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0063 | c | .CONST 0x0063 ; Address of begin
0061 0004 | | .CONST 0x0004 ; Address of exception handler
0062 0001 | | .CONST 0x0001 ; Number of locals
0063 BODY_0060:
0063 INIT_0060:
0063 00da | | Load_Top At_Offset_2
0064 e001 | | Load 0x0,0x1
0065 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0066 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0067 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b | k | .CONST 0x006b ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0001 | | .CONST 0x0001 ; Number of locals
006b BODY_0068:
006b INIT_0068:
006b 00da | | Load_Top At_Offset_2
006c e001 | | Load 0x0,0x1
006d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
006e 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
006f e002 | | Load 0x0,0x2
0070 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0071 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0072 0000 0000 | | .BLANK 0000[0x6]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b | { | .CONST 0x007b ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0001 | | .CONST 0x0001 ; Number of locals
007b BODY_0078:
007b INIT_0078:
007b 00da | | Load_Top At_Offset_2
007c e001 | | Load 0x0,0x1
007d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
007e 1820 | | Execute Package,Field_Execute,Field_Number 0x20
007f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
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 00da | | Load_Top At_Offset_2
0084 8222 | " | Call 0x1,0x22
0085 0092 00ae | | Action Push_String_Extended,0xae ; ".??"
0087 01cc | | Execute Vector,Catenate
0088 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0089 0000 0000 | | .BLANK 0000[0x7]
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 0833 | 3 | Execute_Immediate Raise,0x33
0094 0000 0000 | | .BLANK 0000[0x4]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b | | .CONST 0x009b ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0001 | | .CONST 0x0001 ; Number of locals
009b BODY_0098:
009b INIT_0098:
009b 00cf | | Action Mark_Auxiliary
009c 780b |x | Jump 0xa8
009d e5fd | | Load 0x2,-0x3
009e e001 | | Load 0x0,0x1
009f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00a0 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
00a1 85fe | | Call 0x2,-0x2
00a2 e5fd | | Load 0x2,-0x3
00a3 e001 | | Load 0x0,0x1
00a4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00a5 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
00a6 c5fd | | Store 0x2,-0x3
00a7 00c9 | | Action Pop_Auxiliary_Loop
00a8 e5fd | | Load 0x2,-0x3
00a9 e001 | | Load 0x0,0x1
00aa 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ab 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
00ac 6ff0 |o | Jump_Zero 0x9d
00ad 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00ae ; --------------------------------------------------------------------------------------
00ae ; STRING TABLE
00ae ; --------------------------------------------------------------------------------------
00ae 0004 | | .STRTAB 0x0004->0x00b0 ; ".??"
00af 0005 | | .STREND 0x0005->0x00b1
00b0 2e3f 3f00 |.?? | .STRTAB_STRINGS
00b2 0000 0000 | | .BLANK 0000[0x6]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; Debug Table
00b8 ; --------------------------------------------------------------------------------------
00b8 0004 0011 | | .DEBUG4 0x0004,0x0011,0x4bc3,0x0000,0x0001,0x0000
00be 0028 869e | ( | .XXX[0x58]
00c0 9ca6 a882 | |
00c2 9ca8 bea6 | |
00c4 a8a4 929c | |
00c6 8ebe a88a | |
00c8 a6a9 c000 | |
00ca 062f 437a | /Cz|
00cc 1400 038e | |
00ce 8e2f 437a | /Cz|
00d0 1400 0390 | |
00d2 d42f 437a | /Cz|
00d4 1400 01f5 | |
00d6 8c13 1801 | |
00d8 fc00 0042 | B|
00da f437 a140 | 7 @|
00dc 0035 8002 | 5 |
00de f437 a140 | 7 @|
00e0 0038 e8e2 | 8 |
00e2 f437 a140 | 7 @|
00e4 0035 7ca3 | 5| |
00e6 7160 1fc0 |q` |
00e8 0008 2f43 | /C|
00ea 7a14 0003 |z |
00ec 52ec 2f43 |R /C|
00ee 7a14 0003 |z |
00f0 5800 2f43 |X /C|
00f2 7a14 0002 |z |
00f4 0ff0 3716 | 7 |
00f6 01fc 0000 | |
00f8 42f4 37a1 |B 7 |
00fa 4000 34d8 |@ 4 |
00fc e2f4 37a1 | 7 |
00fe 4000 352e |@ 5.|
0100 c2f4 37a1 | 7 |
0102 4000 34d5 |@ 4 |
0104 8371 601f | q` |
0106 c000 082f | /|
0108 437a 1400 |Cz |
010a 034a 9c2f | J /|
010c 437a 1400 |Cz |
010e 034d 8e2f | M /|
0110 437a 1400 |Cz |
0112 0228 5637 | (V7|
0114 1601 fc00 | |
0116 0000 0000 | | .BLANK 0000[0xea]