|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_664cf7
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0068 | h | .CONST 0x0068 ; 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 0000 | | .CONST 0x0000 ; 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 0027 | ' | .CONST 0x0027 ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0004 | | .CONST 0x0004 ; Number of locals
001b INIT_0018:
001b e002 | | Load 0x0,0x2
001c 02ff | | Declare_Variable Variant_Record
001d 00d8 | | Load_Top At_Offset_0
001e 1c00 | | Execute_Immediate Run_Utility,0x0
001f 00d8 | | Load_Top At_Offset_0
0020 02ff | | Declare_Variable Variant_Record
0021 00d8 | | Load_Top At_Offset_0
0022 1c00 | | Execute_Immediate Run_Utility,0x0
0023 00d8 | | Load_Top At_Offset_0
0024 02ff | | Declare_Variable Variant_Record
0025 00d8 | | Load_Top At_Offset_0
0026 1c00 | | Execute_Immediate Run_Utility,0x0
0027 BODY_0018:
0027 8003 | | Call 0x0,0x3
0028 00cf | | Action Mark_Auxiliary
0029 6036 |`6 | Indirect_Literal Discrete,0x60,{0x00000000, 0x000104e4}
002a 4801 |H | Short_Literal 0x1
002b 0007 | | Action Break_Optional
002c e402 | | Load 0x2,0x2
002d 8004 | | Call 0x0,0x4
002e 00d1 | | Pop_Control Pop_Count_1
002f 00c8 | | Action Pop_Auxiliary_Range
0030 3ffb |? | Loop_Increasing 0x2c
0031 00ce | | Action Pop_Auxiliary
0032 00d9 | | Load_Top At_Offset_1
0033 8004 | | Call 0x0,0x4
0034 00d1 | | Pop_Control Pop_Count_1
0035 00cf | | Action Mark_Auxiliary
0036 4801 |H | Short_Literal 0x1
0037 4801 |H | Short_Literal 0x1
0038 0007 | | Action Break_Optional
0039 e402 | | Load 0x2,0x2
003a 8004 | | Call 0x0,0x4
003b 00d1 | | Pop_Control Pop_Count_1
003c 00c8 | | Action Pop_Auxiliary_Range
003d 3ffb |? | Loop_Increasing 0x39
003e 00ce | | Action Pop_Auxiliary
003f 00d8 | | Load_Top At_Offset_0
0040 8004 | | Call 0x0,0x4
0041 00d1 | | Pop_Control Pop_Count_1
0042 8005 | | Call 0x0,0x5
0043 00da | | Load_Top At_Offset_2
0044 8006 | | Call 0x0,0x6
0045 4801 |H | Short_Literal 0x1
0046 8005 | | Call 0x0,0x5
0047 8007 | | Call 0x0,0x7
0048 00d8 | | Load_Top At_Offset_0
0049 00da | | Load_Top At_Offset_2
004a 8008 | | Call 0x0,0x8
004b 6804 |h | Jump_Zero 0x50
004c 8005 | | Call 0x0,0x5
004d 0092 0064 | d| Action Push_String_Extended,0x64 ; "<"
004f 8009 | | Call 0x0,0x9
0050 00d9 | | Load_Top At_Offset_1
0051 00d9 | | Load_Top At_Offset_1
0052 800a | | Call 0x0,0xa
0053 6804 |h | Jump_Zero 0x58
0054 8005 | | Call 0x0,0x5
0055 0092 0065 | e| Action Push_String_Extended,0x65 ; ">"
0057 8009 | | Call 0x0,0x9
0058 8005 | | Call 0x0,0x5
0059 00d9 | | Load_Top At_Offset_1
005a 8006 | | Call 0x0,0x6
005b 4801 |H | Short_Literal 0x1
005c 8005 | | Call 0x0,0x5
005d 8007 | | Call 0x0,0x7
005e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
005f 0000 | | .XXX[0x1]
0060 0000 0000 | | .LITERAL {0x00000000, 0x000104e4}
0064 ; --------------------------------------------------------------------------------------
0064 ; STRING TABLE
0064 ; --------------------------------------------------------------------------------------
0064 0006 | | .STRTAB 0x0006->0x0067 ; "<"
0065 0005 | | .STRTAB 0x0005->0x0067 ; ">"
0066 0004 | | .STREND 0x0004->0x0068
0067 3c3e |<> | .STRTAB_STRINGS
0068 ; --------------------------------------------------------------------------------------
0068 ; Debug Table
0068 ; --------------------------------------------------------------------------------------
0068 0004 0006 | | .DEBUG4 0x0004,0x0006,0xad51,0x0000,0x0001,0x0002
006e 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000
0072 001b 0076 | v| .DBG4T 0x001b,0x0076,0x8001,0x0000
0076 ; --------------------------------------------------------------------------------------
0076 ; Debug chain
0076 ; --------------------------------------------------------------------------------------
0076 0001 000f | | .DBGLEN 0x0001,0x000f
0078 001b 0027 | '| .DBGLNO 0x001b,0x0027,0x0029,0x002c,0x0032,0x0036,0x0039,0x003f,0x0042,0x0045,0x0048,0x004c,0x0050,0x0054,0x0058,0x005b
0088 0000 0000 | | .BLANK 0000[0x178]