|
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_0340e4
└─⟦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 0080 | | .CONST 0x0080 ; 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 003b | ; | .CONST 0x003b ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 000c | | .CONST 0x000c ; Number of locals
001b INIT_0018:
001b e001 | | Load 0x0,0x1
001c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
001d 02c7 | | Declare_Variable Any
001e 00db | | Load_Top At_Offset_3
001f e001 | | Load 0x0,0x1
0020 1b58 | X | Execute Package,Field_Read,Field_Number 0x58
0021 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0022 e002 | | Load 0x0,0x2
0023 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0024 a402 | | Store_Unchecked 0x2,0x2
0025 00e3 | | Load_Encached Natural_Cache
0026 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0027 e001 | | Load 0x0,0x1
0028 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0029 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
002a 029f 0053 | S| Declare_Subprogram INIT_0050,For_Call
002c 029f 0073 | s| Declare_Subprogram INIT_0070,For_Call
002e a003 | | Store_Unchecked 0x0,0x3
002f 00c6 | | Action Check_Subprogram_Elaborated
0030 00e3 | | Load_Encached Natural_Cache
0031 4805 |H | Short_Literal 0x5
0032 4802 |H | Short_Literal 0x2
0033 0099 | | Action Reference_Dynamic
0034 4806 |H | Short_Literal 0x6
0035 4802 |H | Short_Literal 0x2
0036 0099 | | Action Reference_Dynamic
0037 e004 | | Load 0x0,0x4
0038 e005 | | Load 0x0,0x5
0039 480c |H | Short_Literal 0xc
003a 0007 | | Action Break_Optional
003b BODY_0018:
003b e404 | | Load 0x2,0x4
003c e403 | | Load 0x2,0x3
003d e402 | | Load 0x2,0x2
003e e002 | | Load 0x0,0x2
003f 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0040 e407 | | Load 0x2,0x7
0041 4808 |H | Short_Literal 0x8
0042 4802 |H | Short_Literal 0x2
0043 0099 | | Action Reference_Dynamic
0044 4809 |H | Short_Literal 0x9
0045 4802 |H | Short_Literal 0x2
0046 0099 | | Action Reference_Dynamic
0047 480a |H | Short_Literal 0xa
0048 4802 |H | Short_Literal 0x2
0049 0099 | | Action Reference_Dynamic
004a 8003 | | Call 0x0,0x3
004b c403 | | Store 0x2,0x3
004c c404 | | Store 0x2,0x4
004d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
004e 0000 0000 | | .XXX[0x2]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0058 | X | .CONST 0x0058 ; Address of begin
0051 0004 | | .CONST 0x0004 ; Address of exception handler
0052 0002 | | .CONST 0x0002 ; Number of locals
0053 INIT_0050:
0053 e001 | | Load 0x0,0x1
0054 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
0055 02c7 | | Declare_Variable Any
0056 00d8 | | Load_Top At_Offset_0
0057 1c00 | | Execute_Immediate Run_Utility,0x0
0058 BODY_0050:
0058 00db | | Load_Top At_Offset_3
0059 e001 | | Load 0x0,0x1
005a 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
005b c602 | | Store 0x3,0x2
005c 00d8 | | Load_Top At_Offset_0
005d e001 | | Load 0x0,0x1
005e 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
005f 0092 0076 | v| Action Push_String_Extended,0x76 ; " ("
0061 01cc | | Execute Vector,Catenate
0062 e7ff | | Load 0x3,-0x1
0063 e001 | | Load 0x0,0x1
0064 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0065 00e0 | | Load_Encached Standard_Cache
0066 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0067 01cc | | Execute Vector,Catenate
0068 0092 0077 | w| Action Push_String_Extended,0x77 ; ")"
006a 01cc | | Execute Vector,Catenate
006b e006 | | Load 0x0,0x6
006c 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
006d 4800 |H | Short_Literal 0x0
006e a7fd | | Store_Unchecked 0x3,-0x3
006f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0073 | s | .CONST 0x0073 ; Address of begin
0071 0004 | | .CONST 0x0004 ; Address of exception handler
0072 0001 | | .CONST 0x0001 ; Number of locals
0073 BODY_0070:
0073 INIT_0070:
0073 4800 |H | Short_Literal 0x0
0074 a7fd | | Store_Unchecked 0x3,-0x3
0075 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0076 ; --------------------------------------------------------------------------------------
0076 ; STRING TABLE
0076 ; --------------------------------------------------------------------------------------
0076 0006 | | .STRTAB 0x0006->0x0079 ; " ("
0077 0006 | | .STRTAB 0x0006->0x007a ; ")"
0078 0005 | | .STREND 0x0005->0x007a
0079 2028 2900 | () | .STRTAB_STRINGS
007b 0000 0000 | | .BLANK 0000[0x5]
0080 ; --------------------------------------------------------------------------------------
0080 ; Debug Table
0080 ; --------------------------------------------------------------------------------------
0080 0004 0004 | | .DEBUG4 0x0004,0x0004,0x2f8f,0x0000,0x0001,0x0004
0086 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000
008a 001b 0096 | | .DBG4T 0x001b,0x0096,0x8001,0x0000
008e 0053 009f | S | .DBG4T 0x0053,0x009f,0x0001,0x0000
0092 0073 00a5 | s | .DBG4T 0x0073,0x00a5,0x0001,0x0000
0096 ; --------------------------------------------------------------------------------------
0096 ; Debug chain
0096 ; --------------------------------------------------------------------------------------
0096 0006 0001 | | .DBGLEN 0x0006,0x0001
0098 001b 0025 | %| .DBGLNO 0x001b,0x0025,0x0027,0x002a,0x002c,0x002e,0x003b
009f ; --------------------------------------------------------------------------------------
009f ; Debug chain
009f ; --------------------------------------------------------------------------------------
009f 0001 0003 | | .DBGLEN 0x0001,0x0003
00a1 0053 0058 | S X| .DBGLNO 0x0053,0x0058,0x005c,0x006d
00a5 ; --------------------------------------------------------------------------------------
00a5 ; Debug chain
00a5 ; --------------------------------------------------------------------------------------
00a5 0000 0001 | | .DBGLEN 0x0000,0x0001
00a7 0073 | s | .DBGLNO 0x0073
00a8 0000 0000 | | .BLANK 0000[0x158]