|
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_1c75ca7
└─⟦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 0070 | p | .CONST 0x0070 ; 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 002f | / | .CONST 0x002f ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0014 | | .CONST 0x0014 ; Number of locals
000b INIT_0008:
000b e002 | | Load 0x0,0x2
000c e003 | | Load 0x0,0x3
000d 00e3 | | Load_Encached Natural_Cache
000e e004 | | Load 0x0,0x4
000f 1b50 | P | Execute Package,Field_Read,Field_Number 0x50
0010 0386 | | Declare_Variable Package,Visible
0011 00d8 | | Load_Top At_Offset_0
0012 020f | | Execute Module,Activate
0013 0093 0000 | | push_full_address 0x0
0015 602e |`. | Indirect_Literal Discrete,0x44,{0x80000000, 0x00010000}
0016 0273 | s | Execute Discrete,Plus
0017 0129 | ) | Execute Any,Make_Visible
0018 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated
001a 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated
001c 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated
001e 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated
0020 00bf | | Action Accept_Activation
0021 00e3 | | Load_Encached Natural_Cache
0022 e004 | | Load 0x0,0x4
0023 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0024 02c7 | | Declare_Variable Any
0025 00d8 | | Load_Top At_Offset_0
0026 1c00 | | Execute_Immediate Run_Utility,0x0
0027 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0028 00c7 | | Action Elaborate_Subprogram
0029 1d10 | | Execute_Immediate Reference_Lex_1,0x10
002a 00c7 | | Action Elaborate_Subprogram
002b 1d11 | | Execute_Immediate Reference_Lex_1,0x11
002c 00c7 | | Action Elaborate_Subprogram
002d 1d12 | | Execute_Immediate Reference_Lex_1,0x12
002e 00c7 | | Action Elaborate_Subprogram
002f BODY_0008:
002f 00be | | Action Activate_Tasks
0030 00bc | | Action Signal_Activated
0031 00bb | | Action Signal_Completion
0032 0000 0000 | | .BLANK 0000[0x6]
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 003b | ; | .CONST 0x003b ; Address of begin
0039 0004 | | .CONST 0x0004 ; Address of exception handler
003a 0001 | | .CONST 0x0001 ; Number of locals
003b BODY_0038:
003b INIT_0038:
003b e214 | | Load 0x1,0x14
003c 00ea | | Load_Encached Null_String_Cache
003d e5ff | | Load 0x2,-0x1
003e 4800 |H | Short_Literal 0x0
003f e004 | | Load 0x0,0x4
0040 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0041 c214 | | Store 0x1,0x14
0042 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0043 0000 | | .XXX[0x1]
0044 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 004b | K | .CONST 0x004b ; Address of begin
0049 0004 | | .CONST 0x0004 ; Address of exception handler
004a 0001 | | .CONST 0x0001 ; Number of locals
004b BODY_0048:
004b INIT_0048:
004b e214 | | Load 0x1,0x14
004c e004 | | Load 0x0,0x4
004d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
004e c214 | | Store 0x1,0x14
004f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0053 | S | .CONST 0x0053 ; Address of begin
0051 005b | [ | .CONST 0x005b ; Address of exception handler
0052 0001 | | .CONST 0x0001 ; Number of locals
0053 BODY_0050:
0053 INIT_0050:
0053 e20d | | Load 0x1,0xd
0054 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0055 4800 |H | Short_Literal 0x0
0056 e214 | | Load 0x1,0x14
0057 e20d | | Load 0x1,0xd
0058 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0059 c213 | | Store 0x1,0x13
005a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
005b TRAP_0050:
005b 00d8 | | Load_Top At_Offset_0
005c 0107 | | Execute Exception,Get_Name
005d 4950 |IP | Short_Literal 0x150
005e 495f |I_ | Short_Literal 0x15f
005f 0262 | b | Execute Discrete,In_Range
0060 6802 |h | Jump_Zero 0x63
0061 e20e | | Load 0x1,0xe
0062 0257 | W | Execute Discrete,Raise
0063 0100 | | Execute Exception,Raise
0064 0000 0000 | | .BLANK 0000[0x4]
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 e213 | | Load 0x1,0x13
006c 00ca | | Action Exit_Nullary_Function
006d 0000 0000 | | .XXX[0x3]
006f 0000 | |
0070 ; --------------------------------------------------------------------------------------
0070 ; Debug Table
0070 ; --------------------------------------------------------------------------------------
0070 0004 0009 | | .DEBUG4 0x0004,0x0009,0x107d,0x0000,0x0001,0x0006
0076 000b 008e | | .DBG4T 0x000b,0x008e,0x8000,0x0000
007a 0021 0096 | ! | .DBG4T 0x0021,0x0096,0x8000,0x0000
007e 003b 009e | ; | .DBG4T 0x003b,0x009e,0x0001,0x0000
0082 004b 00a1 | K | .DBG4T 0x004b,0x00a1,0x0001,0x0000
0086 0053 00a4 | S | .DBG4T 0x0053,0x00a4,0x0001,0x0000
008a 006b 00a8 | k | .DBG4T 0x006b,0x00a8,0x0002,0x0000
008e ; --------------------------------------------------------------------------------------
008e ; Debug chain
008e ; --------------------------------------------------------------------------------------
008e 0006 0000 | | .DBGLEN 0x0006,0x0000
0090 000b 0013 | | .DBGLNO 0x000b,0x0013,0x0018,0x001a,0x001c,0x001e
0096 ; --------------------------------------------------------------------------------------
0096 ; Debug chain
0096 ; --------------------------------------------------------------------------------------
0096 0006 0000 | | .DBGLEN 0x0006,0x0000
0098 0021 0022 | ! "| .DBGLNO 0x0021,0x0022,0x0027,0x0029,0x002b,0x002d
009e ; --------------------------------------------------------------------------------------
009e ; Debug chain
009e ; --------------------------------------------------------------------------------------
009e 0000 0001 | | .DBGLEN 0x0000,0x0001
00a0 003b | ; | .DBGLNO 0x003b
00a1 ; --------------------------------------------------------------------------------------
00a1 ; Debug chain
00a1 ; --------------------------------------------------------------------------------------
00a1 0000 0001 | | .DBGLEN 0x0000,0x0001
00a3 004b | K | .DBGLNO 0x004b
00a4 ; --------------------------------------------------------------------------------------
00a4 ; Debug chain
00a4 ; --------------------------------------------------------------------------------------
00a4 0000 0002 | | .DBGLEN 0x0000,0x0002
00a6 0053 0061 | S a| .DBGLNO 0x0053,0x0061
00a8 ; --------------------------------------------------------------------------------------
00a8 ; Debug chain
00a8 ; --------------------------------------------------------------------------------------
00a8 0000 0001 | | .DBGLEN 0x0000,0x0001
00aa 006b | k | .DBGLNO 0x006b
00ab 0000 0000 | | .BLANK 0000[0x155]