|
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_03c8f4
└─⟦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 00e0 | | .CONST 0x00e0 ; 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 ; SUBPROGRAM
0008 ; See instruction 0x02cf at 0x7e, index=0x0
0008 ; SUBPROGRAM
0008 ; See instruction 0x02cf at 0x85, index=0x0
0008 ; SUBPROGRAM
0008 ; See instruction 0x02cf at 0x8c, index=0x0
0008 ; --------------------------------------------------------------------------------------
0008 0040 | @ | .CONST 0x0040 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0014 | | .CONST 0x0014 ; Number of locals
000b INIT_0008:
000b INIT_0008:
000b INIT_0008:
000b INIT_0008:
000b 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated
000d 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated
000f 00bf | | Action Accept_Activation
0010 0093 0000 | | push_full_address 0x0
0012 604d |`M | Indirect_Literal Discrete,0x60,{0x80000000, 0x00010000}
0013 0273 | s | Execute Discrete,Plus
0014 e20d | | Load 0x1,0xd
0015 6046 |`F | Indirect_Literal Discrete,0x5c,{0x00000000, 0x0000ffff}
0016 0279 | y | Execute Discrete,And
0017 0273 | s | Execute Discrete,Plus
0018 e002 | | Load 0x0,0x2
0019 0273 | s | Execute Discrete,Plus
001a e20e | | Load 0x1,0xe
001b e003 | | Load 0x0,0x3
001c 0387 | | Declare_Variable Package
001d 00d8 | | Load_Top At_Offset_0
001e 020f | | Execute Module,Activate
001f e004 | | Load 0x0,0x4
0020 00d9 | | Load_Top At_Offset_1
0021 0098 | | Execute Package,Field_Read_Dynamic
0022 0322 | " | Declare_Variable Record
0023 4800 |H | Short_Literal 0x0
0024 0093 0073 | s| push_full_address INIT_0070
0026 00f5 | | Load_Encached Unused21
0027 037d | } | Declare_Type Task,Defined
0028 036f | o | Declare_Variable Task
0029 e20e | | Load 0x1,0xe
002a 00da | | Load_Top At_Offset_2
002b e005 | | Load 0x0,0x5
002c e212 | | Load 0x1,0x12
002d 0095 | | Execute Package,Field_Reference_Dynamic
002e e006 | | Load 0x0,0x6
002f e212 | | Load 0x1,0x12
0030 0095 | | Execute Package,Field_Reference_Dynamic
0031 e007 | | Load 0x0,0x7
0032 e212 | | Load 0x1,0x12
0033 0095 | | Execute Package,Field_Reference_Dynamic
0034 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0035 e008 | | Load 0x0,0x8
0036 e212 | | Load 0x1,0x12
0037 0095 | | Execute Package,Field_Reference_Dynamic
0038 4807 |H | Short_Literal 0x7
0039 e214 | | Load 0x1,0x14
003a 020e | | Execute Module,Augment_Imports
003b 0007 | | Action Break_Optional
003c 1d10 | | Execute_Immediate Reference_Lex_1,0x10
003d 00c7 | | Action Elaborate_Subprogram
003e 1d11 | | Execute_Immediate Reference_Lex_1,0x11
003f 00c7 | | Action Elaborate_Subprogram
0040 BODY_0008:
0040 BODY_0008:
0040 BODY_0008:
0040 BODY_0008:
0040 00be | | Action Activate_Tasks
0041 00d9 | | Load_Top At_Offset_1
0042 e009 | | Load 0x0,0x9
0043 e212 | | Load 0x1,0x12
0044 0096 | | Execute Package,Entry
0045 00d1 | | Pop_Control Pop_Count_1
0046 4800 |H | Short_Literal 0x0
0047 00d9 | | Load_Top At_Offset_1
0048 170d | | Execute Task,Entry_Call,Field_Number 0xd
0049 00bc | | Action Signal_Activated
004a 00bb | | Action Signal_Completion
004b 0000 0000 | | .BLANK 0000[0x5]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0053 | S | .CONST 0x0053 ; Address of begin
0051 0004 | | .CONST 0x0004 ; Address of exception handler
0052 0001 | | .CONST 0x0001 ; Number of locals
0053 BODY_0050:
0053 INIT_0050:
0053 00da | | Load_Top At_Offset_2
0054 e20e | | Load 0x1,0xe
0055 0119 | | Execute Any,Check_In_Formal_Type
0056 4801 |H | Short_Literal 0x1
0057 e214 | | Load 0x1,0x14
0058 170f | | Execute Task,Entry_Call,Field_Number 0xf
0059 4502 |E | Exit_Suprogram New_Top_Offset 0x2
005a 0000 0000 | | .XXX[0x2]
005c 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
0060 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
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 4800 |H | Short_Literal 0x0
006c e214 | | Load 0x1,0x14
006d 170e | | Execute Task,Entry_Call,Field_Number 0xe
006e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
006f 0000 | | .XXX[0x1]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0096 | | .CONST 0x0096 ; Address of begin
0071 0004 | | .CONST 0x0004 ; Address of exception handler
0072 0013 | | .CONST 0x0013 ; Number of locals
0073 INIT_0070:
0073 4800 |H | Short_Literal 0x0
0074 02cb | | Declare_Variable Entry
0075 4800 |H | Short_Literal 0x0
0076 02cb | | Declare_Variable Entry
0077 4801 |H | Short_Literal 0x1
0078 02cb | | Declare_Variable Entry
0079 00bf | | Action Accept_Activation
007a e001 | | Load 0x0,0x1
007b 02c7 | | Declare_Variable Any
007c 00d8 | | Load_Top At_Offset_0
007d 1c00 | | Execute_Immediate Run_Utility,0x0
007e 480d 4816 |H H | Declare_Variable Select 0x000, 0x001,
0080 4800 4801 |H H | [0x000]: 0x001 = 0x0008,
0082 4800 4801 |H H | [0x00d]: 0x016 = 0x00b0
0084 02cf | |
0085 480f 4817 |H H | Declare_Variable Select 0x000, 0x001,
0087 4800 4801 |H H | [0x000]: 0x001 = 0x0008,
0089 4800 4801 |H H | [0x00f]: 0x017 = 0x00b8
008b 02cf | |
008c 480e 4819 |H H | Declare_Variable Select 0x000, 0x002,
008e 480f 481a |H H | [0x000]: 0x001 = 0x0008,
0090 4800 4801 |H H | [0x00f]: 0x01a = 0x00d0,
0092 4800 4802 |H H | [0x00e]: 0x019 = 0x00c8
0094 02cf | |
0095 00bc | | Action Signal_Activated
0096 BODY_0070:
0096 00da | | Load_Top At_Offset_2
0097 013f | ? | Execute Select,Rendezvous
0098 00d1 | | Pop_Control Pop_Count_1
0099 00cf | | Action Mark_Auxiliary
009a e002 | | Load 0x0,0x2
009b 8003 | | Call 0x0,0x3
009c 6804 |h | Jump_Zero 0xa1
009d 00da | | Load_Top At_Offset_2
009e 013f | ? | Execute Select,Rendezvous
009f 00d1 | | Pop_Control Pop_Count_1
00a0 780d |x | Jump 0xae
00a1 00d9 | | Load_Top At_Offset_1
00a2 013f | ? | Execute Select,Rendezvous
00a3 4602 |F | Jump_Case 0x3
00a4 7801 |x | Jump 0xa6 ; case 0x0
00a5 7808 |x | Jump 0xae ; case 0x1
00a6 e002 | | Load 0x0,0x2 ; case 0x2
00a7 8004 | | Call 0x0,0x4
00a8 c210 | | Store 0x1,0x10
00a9 e002 | | Load 0x0,0x2
00aa 8005 | | Call 0x0,0x5
00ab 00d1 | | Pop_Control Pop_Count_1
00ac e210 | | Load 0x1,0x10
00ad 8006 | | Call 0x0,0x6
00ae 00c9 | | Action Pop_Auxiliary_Loop
00af 7fea | | Jump 0x9a
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; See instruction 0x02cf at 0x7e, index=0xd
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3 | | .CONST 0x00b3 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0001 | | .CONST 0x0001 ; Number of locals
00b3 BODY_00b0:
00b3 INIT_00b0:
00b3 4100 |A | End_Rendezvous 0x0
00b4 0000 0000 | | .BLANK 0000[0x4]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; See instruction 0x02cf at 0x85, index=0xf
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb | | .CONST 0x00bb ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0001 | | .CONST 0x0001 ; Number of locals
00bb BODY_00b8:
00bb INIT_00b8:
00bb e002 | | Load 0x0,0x2
00bc e5fe | | Load 0x2,-0x2
00bd e001 | | Load 0x0,0x1
00be 0119 | | Execute Any,Check_In_Formal_Type
00bf 8007 | | Call 0x0,0x7
00c0 4100 |A | End_Rendezvous 0x0
00c1 0000 0000 | | .BLANK 0000[0x7]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; See instruction 0x02cf at 0x8c, index=0xe
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb | | .CONST 0x00cb ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0001 | | .CONST 0x0001 ; Number of locals
00cb BODY_00c8:
00cb INIT_00c8:
00cb 4100 |A | End_Rendezvous 0x0
00cc 0000 0000 | | .BLANK 0000[0x4]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; See instruction 0x02cf at 0x8c, index=0xf
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3 | | .CONST 0x00d3 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0001 | | .CONST 0x0001 ; Number of locals
00d3 BODY_00d0:
00d3 INIT_00d0:
00d3 e002 | | Load 0x0,0x2
00d4 e5fe | | Load 0x2,-0x2
00d5 e001 | | Load 0x0,0x1
00d6 0119 | | Execute Any,Check_In_Formal_Type
00d7 8007 | | Call 0x0,0x7
00d8 4100 |A | End_Rendezvous 0x0
00d9 0000 0000 | | .BLANK 0000[0x7]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; Debug Table
00e0 ; --------------------------------------------------------------------------------------
00e0 0004 0002 | | .DEBUG4 0x0004,0x0002,0xcb9a,0x0000,0x0001,0x0000
00e6 0000 0000 | | .BLANK 0000[0x11a]