|
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: 2048 (0x800)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0da4bf
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦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 01a8 | | .CONST 0x01a8 ; 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 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0039 | 9 | .CONST 0x0039 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0010 | | .CONST 0x0010 ; Number of locals
000b INIT_0008:
000b 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated
000d 00bf | | Action Accept_Activation
000e 029d 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call
0010 0093 0000 | | push_full_address 0x0
0012 6035 |`5 | Indirect_Literal Discrete,0x48,{0x80000000, 0x00010000}
0013 0273 | s | Execute Discrete,Plus
0014 e002 | | Load 0x0,0x2
0015 0273 | s | Execute Discrete,Plus
0016 e003 | | Load 0x0,0x3
0017 0273 | s | Execute Discrete,Plus
0018 e004 | | Load 0x0,0x4
0019 1d0e | | Execute_Immediate Reference_Lex_1,0xe
001a e005 | | Load 0x0,0x5
001b 0387 | | Declare_Variable Package
001c 00d8 | | Load_Top At_Offset_0
001d 020f | | Execute Module,Activate
001e 4800 |H | Short_Literal 0x0
001f 0093 0063 | c| push_full_address INIT_0060
0021 00f5 | | Load_Encached Unused21
0022 037d | } | Declare_Type Task,Defined
0023 036f | o | Declare_Variable Task
0024 e006 | | Load 0x0,0x6
0025 e007 | | Load 0x0,0x7
0026 e008 | | Load 0x0,0x8
0027 e004 | | Load 0x0,0x4
0028 e009 | | Load 0x0,0x9
0029 a00a | | Store_Unchecked 0x0,0xa
002a e00b | | Load 0x0,0xb
002b e00c | | Load 0x0,0xc
002c a00d | | Store_Unchecked 0x0,0xd
002d a00e | | Store_Unchecked 0x0,0xe
002e e00f | | Load 0x0,0xf
002f e20f | | Load 0x1,0xf
0030 0095 | | Execute Package,Field_Reference_Dynamic
0031 a010 | | Store_Unchecked 0x0,0x10
0032 a011 | | Store_Unchecked 0x0,0x11
0033 480d |H | Short_Literal 0xd
0034 e210 | | Load 0x1,0x10
0035 020e | | Execute Module,Augment_Imports
0036 0007 | | Action Break_Optional
0037 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0038 00c7 | | Action Elaborate_Subprogram
0039 BODY_0008:
0039 00be | | Action Activate_Tasks
003a 00bc | | Action Signal_Activated
003b 00bb | | Action Signal_Completion
003c 0000 0000 | | .BLANK 0000[0x4]
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0043 | C | .CONST 0x0043 ; Address of begin
0041 0004 | | .CONST 0x0004 ; Address of exception handler
0042 0001 | | .CONST 0x0001 ; Number of locals
0043 BODY_0040:
0043 INIT_0040:
0043 4800 |H | Short_Literal 0x0
0044 e210 | | Load 0x1,0x10
0045 170d | | Execute Task,Entry_Call,Field_Number 0xd
0046 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0047 0000 | | .XXX[0x1]
0048 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
004c 0000 0000 | | .BLANK 0000[0x4]
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 00db | | Load_Top At_Offset_3
0054 e012 | | Load 0x0,0x12
0055 01c3 | | Execute Vector,Check_In_Type
0056 00db | | Load_Top At_Offset_3
0057 8013 | | Call 0x0,0x13
0058 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0059 0000 0000 | | .BLANK 0000[0x7]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0080 | | .CONST 0x0080 ; Address of begin
0061 0004 | | .CONST 0x0004 ; Address of exception handler
0062 0016 | | .CONST 0x0016 ; Number of locals
0063 INIT_0060:
0063 4800 |H | Short_Literal 0x0
0064 02cb | | Declare_Variable Entry
0065 00bf | | Action Accept_Activation
0066 e001 | | Load 0x0,0x1
0067 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0068 02c7 | | Declare_Variable Any
0069 00d8 | | Load_Top At_Offset_0
006a 1c00 | | Execute_Immediate Run_Utility,0x0
006b e002 | | Load 0x0,0x2
006c 0337 | 7 | Declare_Variable Array
006d e003 | | Load 0x0,0x3
006e 0337 | 7 | Declare_Variable Array
006f 00e1 | | Load_Encached Boolean_Cache
0070 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0071 03e9 | | Declare_Variable Discrete,Duplicate
0072 00e4 | | Load_Encached Positive_Cache
0073 061e | | Execute_Immediate Set_Value_Unchecked,0x1e
0074 e004 | | Load 0x0,0x4
0075 0322 | " | Declare_Variable Record
0076 00e1 | | Load_Encached Boolean_Cache
0077 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0078 480d 481f |H H | Declare_Variable Select 0x000, 0x001,
007a 4801 4800 |H H | [0x001]: 0x000 = 0x0000,
007c 4800 4801 |H H | [0x00d]: 0x01f = 0x00f8
007e 02cf | |
007f 00bc | | Action Signal_Activated
0080 BODY_0060:
0080 0092 0108 | | Action Push_String_Extended,0x108 ; "Control Manager is alive !!"
0082 e005 | | Load 0x0,0x5
0083 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0084 00cf | | Action Mark_Auxiliary
0085 00d9 | | Load_Top At_Offset_1
0086 013f | ? | Execute Select,Rendezvous
0087 4602 |F | Jump_Case 0x3
0088 785d |x] | Jump 0xe6 ; case 0x0
0089 7800 |x | Jump 0x8a ; case 0x1
008a 4801 |H | Short_Literal 0x1 ; case 0x2
008b a211 | | Store_Unchecked 0x1,0x11
008c 00cf | | Action Mark_Auxiliary
008d 781d |x | Jump 0xab
008e 6075 |`u | Indirect_Literal Discrete,0x104,{0x00000000, 0x001e0000}
008f 00ba | | Action Initiate_Delay
0090 00e1 | | Load_Encached Boolean_Cache
0091 e210 | | Load 0x1,0x10
0092 e20f | | Load 0x1,0xf
0093 e20e | | Load 0x1,0xe
0094 0120 | | Execute Any,Is_Value
0095 6803 |h | Jump_Zero 0x99
0096 e001 | | Load 0x0,0x1
0097 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0098 7801 |x | Jump 0x9a
0099 e20e | | Load 0x1,0xe
009a 8006 | | Call 0x0,0x6
009b c20e | | Store 0x1,0xe
009c 00d2 | | Pop_Control Pop_Count_2
009d c211 | | Store 0x1,0x11
009e e211 | | Load 0x1,0x11
009f 0f01 | | Execute_Immediate Equal,0x1
00a0 6805 |h | Jump_Zero 0xa6
00a1 0092 0109 | | Action Push_String_Extended,0x109 ; "Control Manager : no agent to test"
00a3 e005 | | Load 0x0,0x5
00a4 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00a5 7804 |x | Jump 0xaa
00a6 0092 010a | | Action Push_String_Extended,0x10a ; "Control Manager : there is a agent to test"
00a8 e005 | | Load 0x0,0x5
00a9 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00aa 00c9 | | Action Pop_Auxiliary_Loop
00ab e211 | | Load 0x1,0x11
00ac 0f01 | | Execute_Immediate Equal,0x1
00ad 77e0 |w | Jump_Nonzero 0x8e
00ae 00ce | | Action Pop_Auxiliary
00af 00db | | Load_Top At_Offset_3
00b0 0092 010b | | Action Push_String_Extended,0x10b ; "Agent, are you alive ??"
00b2 0092 010c | | Action Push_String_Extended,0x10c ; "chck"
00b4 0092 010c | | Action Push_String_Extended,0x10c ; "chck"
00b6 4800 |H | Short_Literal 0x0
00b7 4800 |H | Short_Literal 0x0
00b8 e007 | | Load 0x0,0x7
00b9 e008 | | Load 0x0,0x8
00ba e20f | | Load 0x1,0xf
00bb e210 | | Load 0x1,0x10
00bc 0092 010d | | Action Push_String_Extended,0x10d ; "orb "
00be 8009 | | Call 0x0,0x9
00bf 00d1 | | Pop_Control Pop_Count_1
00c0 0092 010e | | Action Push_String_Extended,0x10e ; "Control Manager is going to send the frame :"
00c2 e005 | | Load 0x0,0x5
00c3 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00c4 00db | | Load_Top At_Offset_3
00c5 800a | | Call 0x0,0xa
00c6 e005 | | Load 0x0,0x5
00c7 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00c8 00e1 | | Load_Encached Boolean_Cache
00c9 e214 | | Load 0x1,0x14
00ca e213 | | Load 0x1,0x13
00cb e210 | | Load 0x1,0x10
00cc e20f | | Load 0x1,0xf
00cd e20e | | Load 0x1,0xe
00ce 800b | | Call 0x0,0xb
00cf c212 | | Store 0x1,0x12
00d0 e212 | | Load 0x1,0x12
00d1 0f01 | | Execute_Immediate Equal,0x1
00d2 6808 |h | Jump_Zero 0xdb
00d3 e210 | | Load 0x1,0x10
00d4 e20f | | Load 0x1,0xf
00d5 800c | | Call 0x0,0xc
00d6 0092 010f | | Action Push_String_Extended,0x10f ; "Control Manager : the agent is Ok"
00d8 e005 | | Load 0x0,0x5
00d9 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00da 780b |x | Jump 0xe6
00db 0092 0110 | | Action Push_String_Extended,0x110 ; "going to set agent to failure"
00dd e005 | | Load 0x0,0x5
00de 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00df e210 | | Load 0x1,0x10
00e0 e20f | | Load 0x1,0xf
00e1 800d | | Call 0x0,0xd
00e2 0092 0111 | | Action Push_String_Extended,0x111 ; "Control Manager : the agent is set to failure"
00e4 e005 | | Load 0x0,0x5
00e5 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00e6 00da | | Load_Top At_Offset_2
00e7 0f01 | | Execute_Immediate Equal,0x1
00e8 7008 |p | Jump_Nonzero 0xf1
00e9 0092 0108 | | Action Push_String_Extended,0x108 ; "Control Manager is alive !!"
00eb e005 | | Load 0x0,0x5
00ec 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00ed 6012 |` | Indirect_Literal Discrete,0x100,{0x00000000, 0x00050000}
00ee 00ba | | Action Initiate_Delay
00ef 00c9 | | Action Pop_Auxiliary_Loop
00f0 7f94 | | Jump 0x85
00f1 00ce | | Action Pop_Auxiliary
00f2 00bb | | Action Signal_Completion
00f3 0000 0000 | | .BLANK 0000[0x5]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; See instruction 0x02cf at 0x78, index=0xd
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb | | .CONST 0x00fb ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0001 | | .CONST 0x0001 ; Number of locals
00fb BODY_00f8:
00fb INIT_00f8:
00fb 4801 |H | Short_Literal 0x1
00fc a215 | | Store_Unchecked 0x1,0x15
00fd 4100 |A | End_Rendezvous 0x0
00fe 0000 0000 | | .XXX[0x2]
0100 0000 0000 | | .LITERAL {0x00000000, 0x00050000}
0104 0000 0000 | | .LITERAL {0x00000000, 0x001e0000}
0108 ; --------------------------------------------------------------------------------------
0108 ; STRING TABLE
0108 ; --------------------------------------------------------------------------------------
0108 0016 | | .STRTAB 0x0016->0x0113 ; "Control Manager is alive !!"
0109 002f | / | .STRTAB 0x002f->0x0120 ; "Control Manager : no agent to test"
010a 004f | O | .STRTAB 0x004f->0x0131 ; "Control Manager : there is a agent to test"
010b 0077 | w | .STRTAB 0x0077->0x0146 ; "Agent, are you alive ??"
010c 008c | | .STRTAB 0x008c->0x0152 ; "chck"
010d 008e | | .STRTAB 0x008e->0x0154 ; "orb "
010e 0090 | | .STRTAB 0x0090->0x0156 ; "Control Manager is going to send the frame :"
010f 00ba | | .STRTAB 0x00ba->0x016c ; "Control Manager : the agent is Ok"
0110 00d9 | | .STRTAB 0x00d9->0x017c ; "going to set agent to failure"
0111 00f4 | | .STRTAB 0x00f4->0x018b ; "Control Manager : the agent is set to failure"
0112 011f | | .STREND 0x011f->0x01a1
0113 436f 6e74 |Cont| .STRTAB_STRINGS
01a2 0000 0000 | | .BLANK 0000[0x6]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; Debug Table
01a8 ; --------------------------------------------------------------------------------------
01a8 0004 000a | | .DEBUG4 0x0004,0x000a,0x7c18,0x0000,0x0001,0x0007
01ae 000b 01ca | | .DBG4T 0x000b,0x01ca,0x8000,0x0000
01b2 000e 01cd | | .DBG4T 0x000e,0x01cd,0x8000,0x0000
01b6 0043 01d3 | C | .DBG4T 0x0043,0x01d3,0x0001,0x0000
01ba 0053 0000 | S | .DBG4T 0x0053,0x0000,0x000b,0x0000
01be 0063 01d6 | c | .DBG4T 0x0063,0x01d6,0x0000,0x0000
01c2 0066 01d9 | f | .DBG4T 0x0066,0x01d9,0x0000,0x4000
01c6 00fb 020e | | .DBG4T 0x00fb,0x020e,0x0003,0x0000
01ca ; --------------------------------------------------------------------------------------
01ca ; Debug chain
01ca ; --------------------------------------------------------------------------------------
01ca 0001 0000 | | .DBGLEN 0x0001,0x0000
01cc 000b | | .DBGLNO 0x000b
01cd ; --------------------------------------------------------------------------------------
01cd ; Debug chain
01cd ; --------------------------------------------------------------------------------------
01cd 0004 0000 | | .DBGLEN 0x0004,0x0000
01cf 000e 001e | | .DBGLNO 0x000e,0x001e,0x0024,0x0037
01d3 ; --------------------------------------------------------------------------------------
01d3 ; Debug chain
01d3 ; --------------------------------------------------------------------------------------
01d3 0000 0001 | | .DBGLEN 0x0000,0x0001
01d5 0043 | C | .DBGLNO 0x0043
01d6 ; --------------------------------------------------------------------------------------
01d6 ; Debug chain
01d6 ; --------------------------------------------------------------------------------------
01d6 0001 0000 | | .DBGLEN 0x0001,0x0000
01d8 0063 | c | .DBGLNO 0x0063
01d9 ; --------------------------------------------------------------------------------------
01d9 ; Debug chain
01d9 ; --------------------------------------------------------------------------------------
01d9 0007 0016 | | .DBGLEN 0x0007,0x0016
01db 0066 006b | f k| .DBGLNO 0x0066,0x006b,0x006d,0x006f,0x0072,0x0074,0x0076,0x0080,0x0085,0x008a,0x008e,0x0090,0x009e,0x00a1,0x00a6,0x00ab,0x00af,0x00c0,0x00c4,0x00c8,0x00d0,0x00d3,0x00d6,0x00db,0x00df,0x00e2,0x00e6,0x00e9,0x00ed
01f8 0001 0003 | | .XXX[0x16]
01fa 0005 0007 | |
01fc 0008 0009 | |
01fe 000a 000b | |
0200 0006 000c | |
0202 000d 000e | |
0204 000f 0010 | |
0206 0011 0012 | |
0208 0013 0014 | |
020a 0015 0016 | |
020c 0017 0018 | |
020e ; --------------------------------------------------------------------------------------
020e ; Debug chain
020e ; --------------------------------------------------------------------------------------
020e 0000 0001 | | .DBGLEN 0x0000,0x0001
0210 00fb | | .DBGLNO 0x00fb
0211 0000 0000 | | .BLANK 0000[0x1ef]