|
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 0170 | p | .CONST 0x0170 ; 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 0x12a, index=0x0
0008 ; --------------------------------------------------------------------------------------
0008 0057 | W | .CONST 0x0057 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0019 | | .CONST 0x0019 ; Number of locals
000b INIT_0008:
000b INIT_0008:
000b 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated
000d 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated
000f 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated
0011 00bf | | Action Accept_Activation
0012 e20e | | Load 0x1,0xe
0013 e002 | | Load 0x0,0x2
0014 1c07 | | Execute_Immediate Run_Utility,0x7
0015 00d8 | | Load_Top At_Offset_0
0016 00e3 | | Load_Encached Natural_Cache
0017 029f 0103 | | Declare_Subprogram INIT_0100,For_Call
0019 4802 |H | Short_Literal 0x2
001a 032d | - | Declare_Type Record,Defined
001b 029b 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Unelaborated
001d 0093 0000 | | push_full_address 0x0
001f 605c |`\ | Indirect_Literal Discrete,0x7c,{0x80000000, 0x00020000}
0020 0273 | s | Execute Discrete,Plus
0021 e20d | | Load 0x1,0xd
0022 6055 |`U | Indirect_Literal Discrete,0x78,{0x00000000, 0x0000ffff}
0023 0279 | y | Execute Discrete,And
0024 0273 | s | Execute Discrete,Plus
0025 e003 | | Load 0x0,0x3
0026 0273 | s | Execute Discrete,Plus
0027 00da | | Load_Top At_Offset_2
0028 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0029 e004 | | Load 0x0,0x4
002a 0387 | | Declare_Variable Package
002b 00d8 | | Load_Top At_Offset_0
002c 020f | | Execute Module,Activate
002d 0093 0000 | | push_full_address 0x0
002f 6044 |`D | Indirect_Literal Discrete,0x74,{0x80000000, 0x00010000}
0030 0273 | s | Execute Discrete,Plus
0031 e20d | | Load 0x1,0xd
0032 6045 |`E | Indirect_Literal Discrete,0x78,{0x00000000, 0x0000ffff}
0033 0279 | y | Execute Discrete,And
0034 0273 | s | Execute Discrete,Plus
0035 e005 | | Load 0x0,0x5
0036 0273 | s | Execute Discrete,Plus
0037 e20e | | Load 0x1,0xe
0038 e20f | | Load 0x1,0xf
0039 e006 | | Load 0x0,0x6
003a 1d10 | | Execute_Immediate Reference_Lex_1,0x10
003b e007 | | Load 0x0,0x7
003c 0387 | | Declare_Variable Package
003d 00d8 | | Load_Top At_Offset_0
003e 020f | | Execute Module,Activate
003f 4800 |H | Short_Literal 0x0
0040 0093 0123 | #| push_full_address INIT_0120
0042 00f5 | | Load_Encached Unused21
0043 037d | } | Declare_Type Task,Defined
0044 036f | o | Declare_Variable Task
0045 e215 | | Load 0x1,0x15
0046 e008 | | Load 0x0,0x8
0047 e217 | | Load 0x1,0x17
0048 0095 | | Execute Package,Field_Reference_Dynamic
0049 a009 | | Store_Unchecked 0x0,0x9
004a 1d12 | | Execute_Immediate Reference_Lex_1,0x12
004b 4804 |H | Short_Literal 0x4
004c e219 | | Load 0x1,0x19
004d 020e | | Execute Module,Augment_Imports
004e 0007 | | Action Break_Optional
004f 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0050 00c7 | | Action Elaborate_Subprogram
0051 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0052 00c7 | | Action Elaborate_Subprogram
0053 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0054 00c7 | | Action Elaborate_Subprogram
0055 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0056 00c7 | | Action Elaborate_Subprogram
0057 BODY_0008:
0057 BODY_0008:
0057 00be | | Action Activate_Tasks
0058 00bc | | Action Signal_Activated
0059 00bb | | Action Signal_Completion
005a 0000 0000 | | .BLANK 0000[0x6]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0067 | g | .CONST 0x0067 ; Address of begin
0061 0004 | | .CONST 0x0004 ; Address of exception handler
0062 0002 | | .CONST 0x0002 ; Number of locals
0063 INIT_0060:
0063 e215 | | Load 0x1,0x15
0064 0322 | " | Declare_Variable Record
0065 00d8 | | Load_Top At_Offset_0
0066 1c00 | | Execute_Immediate Run_Utility,0x0
0067 BODY_0060:
0067 00d8 | | Load_Top At_Offset_0
0068 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0069 e5ff | | Load 0x2,-0x1
006a 800a | | Call 0x0,0xa
006b 00d1 | | Pop_Control Pop_Count_1
006c e5fe | | Load 0x2,-0x2
006d 00d9 | | Load_Top At_Offset_1
006e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
006f 00d8 | | Load_Top At_Offset_0
0070 e00b | | Load 0x0,0xb
0071 e217 | | Load 0x1,0x17
0072 0096 | | Execute Package,Entry
0073 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0074 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
0078 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
007c 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 008c | | .CONST 0x008c ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0006 | | .CONST 0x0006 ; Number of locals
0083 INIT_0080:
0083 00e3 | | Load_Encached Natural_Cache
0084 e00c | | Load 0x0,0xc
0085 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0086 e00c | | Load 0x0,0xc
0087 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0088 e00c | | Load 0x0,0xc
0089 1b11 | | Execute Package,Field_Read,Field_Number 0x11
008a e00c | | Load 0x0,0xc
008b 1b11 | | Execute Package,Field_Read,Field_Number 0x11
008c BODY_0080:
008c 0092 0147 | G| Action Push_String_Extended,0x147 ; "Message send to receiver : "
008e e5fe | | Load 0x2,-0x2
008f 00e0 | | Load_Encached Standard_Cache
0090 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0091 01cc | | Execute Vector,Catenate
0092 0092 0148 | H| Action Push_String_Extended,0x148 ; " > "
0094 01cc | | Execute Vector,Catenate
0095 e5ff | | Load 0x2,-0x1
0096 01cc | | Execute Vector,Catenate
0097 e00d | | Load 0x0,0xd
0098 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0099 e5fe | | Load 0x2,-0x2
009a 800e | | Call 0x0,0xe
009b 6843 |hC | Jump_Zero 0xdf
009c e00c | | Load 0x0,0xc
009d 1b11 | | Execute Package,Field_Read,Field_Number 0x11
009e e00c | | Load 0x0,0xc
009f 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00a0 e00c | | Load 0x0,0xc
00a1 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00a2 e00c | | Load 0x0,0xc
00a3 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00a4 e00f | | Load 0x0,0xf
00a5 e5fe | | Load 0x2,-0x2
00a6 8010 | | Call 0x0,0x10
00a7 c402 | | Store 0x2,0x2
00a8 c403 | | Store 0x2,0x3
00a9 c404 | | Store 0x2,0x4
00aa 005b | [ | Store_Top Discrete,At_Offset_3
00ab 0059 | Y | Store_Top Discrete,At_Offset_1
00ac e20f | | Load 0x1,0xf
00ad 00d9 | | Load_Top At_Offset_1
00ae 00db | | Load_Top At_Offset_3
00af e404 | | Load 0x2,0x4
00b0 e403 | | Load 0x2,0x3
00b1 e402 | | Load 0x2,0x2
00b2 e5ff | | Load 0x2,-0x1
00b3 8011 | | Call 0x0,0x11
00b4 7029 |p) | Jump_Nonzero 0xde
00b5 0092 0149 | I| Action Push_String_Extended,0x149 ; "Message not sent >"
00b7 e402 | | Load 0x2,0x2
00b8 00e0 | | Load_Encached Standard_Cache
00b9 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00ba 01cc | | Execute Vector,Catenate
00bb e403 | | Load 0x2,0x3
00bc 00e0 | | Load_Encached Standard_Cache
00bd 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00be 01cc | | Execute Vector,Catenate
00bf 00db | | Load_Top At_Offset_3
00c0 00e0 | | Load_Encached Standard_Cache
00c1 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00c2 01cc | | Execute Vector,Catenate
00c3 00da | | Load_Top At_Offset_2
00c4 00e0 | | Load_Encached Standard_Cache
00c5 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00c6 01cc | | Execute Vector,Catenate
00c7 00d9 | | Load_Top At_Offset_1
00c8 00e0 | | Load_Encached Standard_Cache
00c9 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00ca 01cc | | Execute Vector,Catenate
00cb e5ff | | Load 0x2,-0x1
00cc 01cc | | Execute Vector,Catenate
00cd e00d | | Load 0x0,0xd
00ce 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00cf 00d8 | | Load_Top At_Offset_0
00d0 00da | | Load_Top At_Offset_2
00d1 e404 | | Load 0x2,0x4
00d2 e403 | | Load 0x2,0x3
00d3 e402 | | Load 0x2,0x2
00d4 00d8 | | Load_Top At_Offset_0
00d5 e00f | | Load 0x0,0xf
00d6 0260 | ` | Execute Discrete,In_Type
00d7 7001 |p | Jump_Nonzero 0xd9
00d8 0801 | | Execute_Immediate Raise,0x1
00d9 e5fe | | Load 0x2,-0x2
00da e5ff | | Load 0x2,-0x1
00db e012 | | Load 0x0,0x12
00dc e218 | | Load 0x1,0x18
00dd 0096 | | Execute Package,Entry
00de 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00df 0092 014a | J| Action Push_String_Extended,0x14a ; "Receiver unknown >"
00e1 e5fe | | Load 0x2,-0x2
00e2 00e0 | | Load_Encached Standard_Cache
00e3 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00e4 01cc | | Execute Vector,Catenate
00e5 0092 0148 | H| Action Push_String_Extended,0x148 ; " > "
00e7 01cc | | Execute Vector,Catenate
00e8 e5ff | | Load 0x2,-0x1
00e9 01cc | | Execute Vector,Catenate
00ea e00d | | Load 0x0,0xd
00eb 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00ec 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00ed 0000 0000 | | .XXX[0x3]
00ef 0000 | |
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3 | | .CONST 0x00f3 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0001 | | .CONST 0x0001 ; Number of locals
00f3 BODY_00f0:
00f3 INIT_00f0:
00f3 e219 | | Load 0x1,0x19
00f4 0209 | | Execute Task,Abort
00f5 0007 | | Action Break_Optional
00f6 e013 | | Load 0x0,0x13
00f7 e218 | | Load 0x1,0x18
00f8 0096 | | Execute Package,Entry
00f9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00fa 0000 0000 | | .BLANK 0000[0x6]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 4601 |F | Jump_Case 0x2
0104 7801 |x | Jump 0x106 ; case 0x0
0105 7807 |x | Jump 0x10d ; case 0x1
0106 00da | | Load_Top At_Offset_2
0107 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0108 0125 | % | Execute Any,Set_Constraint
0109 00da | | Load_Top At_Offset_2
010a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
010b 1c00 | | Execute_Immediate Run_Utility,0x0
010c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
010d 00da | | Load_Top At_Offset_2
010e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
010f 0125 | % | Execute Any,Set_Constraint
0110 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0111 0000 0000 | | .BLANK 0000[0x7]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b | | .CONST 0x011b ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0001 | | .CONST 0x0001 ; Number of locals
011b BODY_0118:
011b INIT_0118:
011b 00da | | Load_Top At_Offset_2
011c 4801 |H | Short_Literal 0x1
011d e219 | | Load 0x1,0x19
011e 170d | | Execute Task,Entry_Call,Field_Number 0xd
011f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0132 | 2 | .CONST 0x0132 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 000f | | .CONST 0x000f ; Number of locals
0123 INIT_0120:
0123 4801 |H | Short_Literal 0x1
0124 02cb | | Declare_Variable Entry
0125 00bf | | Action Accept_Activation
0126 e001 | | Load 0x0,0x1
0127 0322 | " | Declare_Variable Record
0128 00d8 | | Load_Top At_Offset_0
0129 1c00 | | Execute_Immediate Run_Utility,0x0
012a 480d 4828 |H H(| Declare_Variable Select 0x000, 0x001,
012c 4800 4801 |H H | [0x000]: 0x001 = 0x0008,
012e 4800 4801 |H H | [0x00d]: 0x028 = 0x0140
0130 02cf | |
0131 00bc | | Action Signal_Activated
0132 BODY_0120:
0132 8002 | | Call 0x0,0x2
0133 00cf | | Action Mark_Auxiliary
0134 00d9 | | Load_Top At_Offset_1
0135 013f | ? | Execute Select,Rendezvous
0136 00d1 | | Pop_Control Pop_Count_1
0137 00da | | Load_Top At_Offset_2
0138 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0139 00db | | Load_Top At_Offset_3
013a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
013b 8003 | | Call 0x0,0x3
013c 8004 | | Call 0x0,0x4
013d 8002 | | Call 0x0,0x2
013e 00c9 | | Action Pop_Auxiliary_Loop
013f 7ff4 | | Jump 0x134
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; See instruction 0x02cf at 0x12a, index=0xd
0140 ; --------------------------------------------------------------------------------------
0140 0143 | C | .CONST 0x0143 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0001 | | .CONST 0x0001 ; Number of locals
0143 BODY_0140:
0143 INIT_0140:
0143 00db | | Load_Top At_Offset_3
0144 e20e | | Load 0x1,0xe
0145 017d | } | Execute Record,Structure_Write
0146 4100 |A | End_Rendezvous 0x0
0147 ; --------------------------------------------------------------------------------------
0147 ; STRING TABLE
0147 ; --------------------------------------------------------------------------------------
0147 000a | | .STRTAB 0x000a->0x014c ; "Message send to receiver : "
0148 0023 | # | .STRTAB 0x0023->0x0159 ; " > "
0149 0024 | $ | .STRTAB 0x0024->0x015b ; "Message not sent >"
014a 0034 | 4 | .STRTAB 0x0034->0x0164 ; "Receiver unknown >"
014b 0044 | D | .STREND 0x0044->0x016d
014c 4d65 7373 |Mess| .STRTAB_STRINGS
016d 0000 0000 | | .XXX[0x3]
016f 0000 | |
0170 ; --------------------------------------------------------------------------------------
0170 ; Debug Table
0170 ; --------------------------------------------------------------------------------------
0170 0004 0002 | | .DEBUG4 0x0004,0x0002,0xd1ab,0x0000,0x0001,0x0000
0176 d1a1 9481 | | .XXX[0x8a]
0178 b195 d1d1 | |
017a 95c8 8114 | |
017c 8185 b990 | |
017e 8185 b881 | |
0180 15e1 c081 | |
0182 99a5 95b1 | |
0184 90b8 8081 | |
0186 51a1 9481 |Q |
0188 d1dd bc28 | (|
018a 8081 c1bd | |
018c cdcd a589 | |
018e b194 8199 | |
0190 bdc9 b585 | |
0192 d1cc 81d1 | |
0194 a1d5 cc81 | |
0196 8dbd c9c9 | |
0198 95cd c1bd | |
019a b990 81d1 | |
019c bce8 2880 | ( |
019e 8080 8080 | |
01a0 8119 bdc9 | |
01a2 9480 b881 | |
01a4 0599 d028 | (|
01a6 2880 8185 |( |
01a8 b990 e828 | (|
01aa 8080 8080 | |
01ac 8081 19bd | |
01ae c994 80b8 | |
01b0 8105 99d0 | |
01b2 8114 8115 | |
01b4 e1c0 2828 | ((|
01b6 8081 dda5 | |
01b8 d1a0 81b9 | |
01ba bc81 cdc1 | |
01bc 858d 95cc | |
01be 8189 95d1 | |
01c0 dd95 95b8 | |
01c2 81d1 a195 | |
01c4 cd94 8199 | |
01c6 a595 b191 | |
01c8 ccb8 8081 | |
01ca 51a1 9481 |Q |
01cc 19bd c994 | |
01ce 8199 a595 | |
01d0 b190 818d | |
01d2 85b8 81a5 | |
01d4 b98d b1d5 | |
01d6 9194 2880 | ( |
01d8 81b1 9585 | |
01da 91a5 b99c | |
01dc 81cd c185 | |
01de 8d95 cc81 | |
01e0 85b9 9081 | |
01e2 8481 b5a5 | |
01e4 b9d5 cc81 | |
01e6 cda5 9db8 | |
01e8 8199 bdc8 | |
01ea 81b9 959d | |
01ec 85d1 a5d9 | |
01ee 9481 d985 | |
01f0 b1d5 95cc | |
01f2 b880 8151 | Q|
01f4 a194 8105 | |
01f6 99d0 2880 | ( |
01f8 8199 a595 | |
01fa b190 81a5 | |
01fc b98d b1d5 | |
01fe 9195 cc81 | |