|
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_0230eb
└─⟦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 01d8 | | .CONST 0x01d8 ; 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 8001 | | .CONST 0x8001 ; 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 0080 | | .CONST 0x0080 ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0011 | | .CONST 0x0011 ; Number of locals
001b INIT_0018:
001b e002 | | Load 0x0,0x2
001c 0322 | " | Declare_Variable Record
001d 00d8 | | Load_Top At_Offset_0
001e 1c00 | | Execute_Immediate Run_Utility,0x0
001f 6078 |`x | Indirect_Literal Discrete,0x98,{0x00000000, 0x00000400}
0020 e003 | | Load 0x0,0x3
0021 1c08 | | Execute_Immediate Run_Utility,0x8
0022 00d8 | | Load_Top At_Offset_0
0023 1c00 | | Execute_Immediate Run_Utility,0x0
0024 00e3 | | Load_Encached Natural_Cache
0025 e004 | | Load 0x0,0x4
0026 0007 | | Action Break_Optional
0027 e005 | | Load 0x0,0x5
0028 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0029 4800 |H | Short_Literal 0x0
002a 0093 0153 | S| push_full_address INIT_0150
002c 00f5 | | Load_Encached Unused21
002d 037d | } | Declare_Type Task,Defined
002e 036f | o | Declare_Variable Task
002f 029e 00a3 | | Declare_Subprogram INIT_00a0,For_Call,Unelaborated
0031 029e 00cb | | Declare_Subprogram INIT_00c8,For_Call,Unelaborated
0033 029e 00d3 | | Declare_Subprogram INIT_00d0,For_Call,Unelaborated
0035 029e 00eb | | Declare_Subprogram INIT_00e8,For_Call,Unelaborated
0037 029e 0113 | | Declare_Subprogram INIT_0110,For_Call,Unelaborated
0039 029e 011b | | Declare_Subprogram INIT_0118,For_Call,Unelaborated
003b 029e 012b | +| Declare_Subprogram INIT_0128,For_Call,Unelaborated
003d 4808 |H | Short_Literal 0x8
003e 4802 |H | Short_Literal 0x2
003f 0099 | | Action Reference_Dynamic
0040 480d |H | Short_Literal 0xd
0041 4802 |H | Short_Literal 0x2
0042 0099 | | Action Reference_Dynamic
0043 480e |H | Short_Literal 0xe
0044 4802 |H | Short_Literal 0x2
0045 0099 | | Action Reference_Dynamic
0046 4803 |H | Short_Literal 0x3
0047 e407 | | Load 0x2,0x7
0048 020e | | Execute Module,Augment_Imports
0049 0007 | | Action Break_Optional
004a 4809 |H | Short_Literal 0x9
004b 4802 |H | Short_Literal 0x2
004c 0099 | | Action Reference_Dynamic
004d 00c7 | | Action Elaborate_Subprogram
004e 480a |H | Short_Literal 0xa
004f 4802 |H | Short_Literal 0x2
0050 0099 | | Action Reference_Dynamic
0051 00c7 | | Action Elaborate_Subprogram
0052 480b |H | Short_Literal 0xb
0053 4802 |H | Short_Literal 0x2
0054 0099 | | Action Reference_Dynamic
0055 00c7 | | Action Elaborate_Subprogram
0056 029f 0133 | 3| Declare_Subprogram INIT_0130,For_Call
0058 0093 0000 | | push_full_address 0x0
005a 6039 |`9 | Indirect_Literal Discrete,0x94,{0x80000000, 0x00010000}
005b 0273 | s | Execute Discrete,Plus
005c e006 | | Load 0x0,0x6
005d 0273 | s | Execute Discrete,Plus
005e e007 | | Load 0x0,0x7
005f 0273 | s | Execute Discrete,Plus
0060 4801 |H | Short_Literal 0x1
0061 480f |H | Short_Literal 0xf
0062 4802 |H | Short_Literal 0x2
0063 0099 | | Action Reference_Dynamic
0064 480a |H | Short_Literal 0xa
0065 4802 |H | Short_Literal 0x2
0066 0099 | | Action Reference_Dynamic
0067 4809 |H | Short_Literal 0x9
0068 4802 |H | Short_Literal 0x2
0069 0099 | | Action Reference_Dynamic
006a e008 | | Load 0x0,0x8
006b 0387 | | Declare_Variable Package
006c 00d8 | | Load_Top At_Offset_0
006d 020f | | Execute Module,Activate
006e 029f 0143 | C| Declare_Subprogram INIT_0140,For_Call
0070 480c |H | Short_Literal 0xc
0071 4802 |H | Short_Literal 0x2
0072 0099 | | Action Reference_Dynamic
0073 00c7 | | Action Elaborate_Subprogram
0074 480d |H | Short_Literal 0xd
0075 4802 |H | Short_Literal 0x2
0076 0099 | | Action Reference_Dynamic
0077 00c7 | | Action Elaborate_Subprogram
0078 480e |H | Short_Literal 0xe
0079 4802 |H | Short_Literal 0x2
007a 0099 | | Action Reference_Dynamic
007b 00c7 | | Action Elaborate_Subprogram
007c 4808 |H | Short_Literal 0x8
007d 4802 |H | Short_Literal 0x2
007e 0099 | | Action Reference_Dynamic
007f 00c7 | | Action Elaborate_Subprogram
0080 BODY_0018:
0080 00be | | Action Activate_Tasks
0081 0092 018c | | Action Push_String_Extended,0x18c ; " ---------------------"
0083 e009 | | Load 0x0,0x9
0084 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0085 0092 018d | | Action Push_String_Extended,0x18d ; " -- Word consumer --"
0087 e009 | | Load 0x0,0x9
0088 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0089 0092 018c | | Action Push_String_Extended,0x18c ; " ---------------------"
008b e009 | | Load 0x0,0x9
008c 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
008d 800a | | Call 0x0,0xa
008e 4801 |H | Short_Literal 0x1
008f e009 | | Load 0x0,0x9
0090 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0091 8411 | | Call 0x2,0x11
0092 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0093 0000 | | .XXX[0x1]
0094 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
0098 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
009c 0000 0000 | | .BLANK 0000[0x4]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00ab | | .CONST 0x00ab ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0003 | | .CONST 0x0003 ; Number of locals
00a3 INIT_00a0:
00a3 e002 | | Load 0x0,0x2
00a4 0322 | " | Declare_Variable Record
00a5 00d8 | | Load_Top At_Offset_0
00a6 1c00 | | Execute_Immediate Run_Utility,0x0
00a7 e002 | | Load 0x0,0x2
00a8 0322 | " | Declare_Variable Record
00a9 00d8 | | Load_Top At_Offset_0
00aa 1c00 | | Execute_Immediate Run_Utility,0x0
00ab BODY_00a0:
00ab 00cf | | Action Mark_Auxiliary
00ac 00da | | Load_Top At_Offset_2
00ad 4800 |H | Short_Literal 0x0
00ae 4800 |H | Short_Literal 0x0
00af e404 | | Load 0x2,0x4
00b0 4837 |H7 | Short_Literal 0x37
00b1 800b | | Call 0x0,0xb
00b2 00d1 | | Pop_Control Pop_Count_1
00b3 4801 |H | Short_Literal 0x1
00b4 e009 | | Load 0x0,0x9
00b5 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
00b6 0092 018e | | Action Push_String_Extended,0x18e ; "Le mot recu est => "
00b8 e009 | | Load 0x0,0x9
00b9 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
00ba 00da | | Load_Top At_Offset_2
00bb 840c | | Call 0x2,0xc
00bc e403 | | Load 0x2,0x3
00bd 800c | | Call 0x0,0xc
00be 800d | | Call 0x0,0xd
00bf 00da | | Load_Top At_Offset_2
00c0 017d | } | Execute Record,Structure_Write
00c1 00d9 | | Load_Top At_Offset_1
00c2 800e | | Call 0x0,0xe
00c3 e009 | | Load 0x0,0x9
00c4 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00c5 00c9 | | Action Pop_Auxiliary_Loop
00c6 7fe5 | | Jump 0xac
00c7 0000 | | .XXX[0x1]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
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 4800 |H | Short_Literal 0x0
00cc e407 | | Load 0x2,0x7
00cd 170e | | Execute Task,Entry_Call,Field_Number 0xe
00ce 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00cf 0000 | | .XXX[0x1]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
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 e403 | | Load 0x2,0x3
00d4 00db | | Load_Top At_Offset_3
00d5 800f | | Call 0x0,0xf
00d6 00d1 | | Pop_Control Pop_Count_1
00d7 e403 | | Load 0x2,0x3
00d8 800c | | Call 0x0,0xc
00d9 800d | | Call 0x0,0xd
00da e402 | | Load 0x2,0x2
00db 017d | } | Execute Record,Structure_Write
00dc e402 | | Load 0x2,0x2
00dd 8010 | | Call 0x0,0x10
00de 0f03 | | Execute_Immediate Equal,0x3
00df 6804 |h | Jump_Zero 0xe4
00e0 0092 018f | | Action Push_String_Extended,0x18f ; "Error in the returned message"
00e2 e009 | | Load 0x0,0x9
00e3 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00e4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00e5 0000 0000 | | .XXX[0x3]
00e7 0000 | |
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb | | .CONST 0x00eb ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0001 | | .CONST 0x0001 ; Number of locals
00eb BODY_00e8:
00eb INIT_00e8:
00eb 00db | | Load_Top At_Offset_3
00ec a404 | | Store_Unchecked 0x2,0x4
00ed 00da | | Load_Top At_Offset_2
00ee 8011 | | Call 0x0,0x11
00ef 00d8 | | Load_Top At_Offset_0
00f0 e004 | | Load 0x0,0x4
00f1 0260 | ` | Execute Discrete,In_Type
00f2 7001 |p | Jump_Nonzero 0xf4
00f3 0801 | | Execute_Immediate Raise,0x1
00f4 a405 | | Store_Unchecked 0x2,0x5
00f5 0092 0190 | | Action Push_String_Extended,0x190 ; "My Socket number : "
00f7 e405 | | Load 0x2,0x5
00f8 00e0 | | Load_Encached Standard_Cache
00f9 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00fa 01cc | | Execute Vector,Catenate
00fb e009 | | Load 0x0,0x9
00fc 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00fd 0092 0191 | | Action Push_String_Extended,0x191 ; "My Behavior_Id : "
00ff e404 | | Load 0x2,0x4
0100 00e0 | | Load_Encached Standard_Cache
0101 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0102 01cc | | Execute Vector,Catenate
0103 e009 | | Load 0x0,0x9
0104 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0105 4800 |H | Short_Literal 0x0
0106 e407 | | Load 0x2,0x7
0107 170f | | Execute Task,Entry_Call,Field_Number 0xf
0108 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0109 0000 0000 | | .BLANK 0000[0x7]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113 | | .CONST 0x0113 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0001 | | .CONST 0x0001 ; Number of locals
0113 BODY_0110:
0113 INIT_0110:
0113 00da | | Load_Top At_Offset_2
0114 e012 | | Load 0x0,0x12
0115 e410 | | Load 0x2,0x10
0116 0096 | | Execute Package,Entry
0117 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011f | | .CONST 0x011f ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0002 | | .CONST 0x0002 ; Number of locals
011b INIT_0118:
011b e002 | | Load 0x0,0x2
011c 0322 | " | Declare_Variable Record
011d 00d8 | | Load_Top At_Offset_0
011e 1c00 | | Execute_Immediate Run_Utility,0x0
011f BODY_0118:
011f e404 | | Load 0x2,0x4
0120 00d8 | | Load_Top At_Offset_0
0121 4801 |H | Short_Literal 0x1
0122 8013 | | Call 0x0,0x13
0123 00d9 | | Load_Top At_Offset_1
0124 017d | } | Execute Record,Structure_Write
0125 00d8 | | Load_Top At_Offset_0
0126 840c | | Call 0x2,0xc
0127 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b | + | .CONST 0x012b ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0001 | | .CONST 0x0001 ; Number of locals
012b BODY_0128:
012b INIT_0128:
012b e014 | | Load 0x0,0x14
012c e410 | | Load 0x2,0x10
012d 0096 | | Execute Package,Entry
012e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
012f 0000 | | .XXX[0x1]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133 | 3 | .CONST 0x0133 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0001 | | .CONST 0x0001 ; Number of locals
0133 BODY_0130:
0133 INIT_0130:
0133 00db | | Load_Top At_Offset_3
0134 00d8 | | Load_Top At_Offset_0
0135 00e3 | | Load_Encached Natural_Cache
0136 0260 | ` | Execute Discrete,In_Type
0137 7001 |p | Jump_Nonzero 0x139
0138 0801 | | Execute_Immediate Raise,0x1
0139 00db | | Load_Top At_Offset_3
013a 840b | | Call 0x2,0xb
013b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
013c 0000 0000 | | .BLANK 0000[0x4]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
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 4800 |H | Short_Literal 0x0
0144 e407 | | Load 0x2,0x7
0145 170d | | Execute Task,Entry_Call,Field_Number 0xd
0146 e015 | | Load 0x0,0x15
0147 e410 | | Load 0x2,0x10
0148 0096 | | Execute Package,Entry
0149 4501 |E | Exit_Suprogram New_Top_Offset 0x1
014a 0000 0000 | | .BLANK 0000[0x6]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0166 | f | .CONST 0x0166 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0013 | | .CONST 0x0013 ; Number of locals
0153 INIT_0150:
0153 4800 |H | Short_Literal 0x0
0154 02cb | | Declare_Variable Entry
0155 4800 |H | Short_Literal 0x0
0156 02cb | | Declare_Variable Entry
0157 4800 |H | Short_Literal 0x0
0158 02cb | | Declare_Variable Entry
0159 00bf | | Action Accept_Activation
015a 00e1 | | Load_Encached Boolean_Cache
015b 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
015c 480d |H | Short_Literal 0xd
015d 0299 017b | {| Declare_Subprogram INIT_0178,For_Accept
015f 480f |H | Short_Literal 0xf
0160 0299 0183 | | Declare_Subprogram INIT_0180,For_Accept
0162 480e |H | Short_Literal 0xe
0163 0299 018b | | Declare_Subprogram INIT_0188,For_Accept
0165 00bc | | Action Signal_Activated
0166 BODY_0150:
0166 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0167 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0168 0137 | 7 | Execute Entry,Rendezvous
0169 1d12 | | Execute_Immediate Reference_Lex_1,0x12
016a 1d0f | | Execute_Immediate Reference_Lex_1,0xf
016b 0137 | 7 | Execute Entry,Rendezvous
016c 1d13 | | Execute_Immediate Reference_Lex_1,0x13
016d 1d0e | | Execute_Immediate Reference_Lex_1,0xe
016e 0137 | 7 | Execute Entry,Rendezvous
016f 8001 | | Call 0x0,0x1
0170 8002 | | Call 0x0,0x2
0171 8003 | | Call 0x0,0x3
0172 00bb | | Action Signal_Completion
0173 0000 0000 | | .BLANK 0000[0x5]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b | { | .CONST 0x017b ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0001 | | .CONST 0x0001 ; Number of locals
017b BODY_0178:
017b INIT_0178:
017b 4100 |A | End_Rendezvous 0x0
017c 0000 0000 | | .BLANK 0000[0x4]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183 | | .CONST 0x0183 ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0001 | | .CONST 0x0001 ; Number of locals
0183 BODY_0180:
0183 INIT_0180:
0183 4100 |A | End_Rendezvous 0x0
0184 0000 0000 | | .BLANK 0000[0x4]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b | | .CONST 0x018b ; Address of begin
0189 0004 | | .CONST 0x0004 ; Address of exception handler
018a 0001 | | .CONST 0x0001 ; Number of locals
018b BODY_0188:
018b INIT_0188:
018b 4100 |A | End_Rendezvous 0x0
018c ; --------------------------------------------------------------------------------------
018c ; STRING TABLE
018c ; --------------------------------------------------------------------------------------
018c 000e | | .STRTAB 0x000e->0x0193 ; " ---------------------"
018d 0024 | $ | .STRTAB 0x0024->0x019f ; " -- Word consumer --"
018e 003a | : | .STRTAB 0x003a->0x01ab ; "Le mot recu est => "
018f 004b | K | .STRTAB 0x004b->0x01b4 ; "Error in the returned message"
0190 0066 | f | .STRTAB 0x0066->0x01c3 ; "My Socket number : "
0191 0077 | w | .STRTAB 0x0077->0x01cc ; "My Behavior_Id : "
0192 0088 | | .STREND 0x0088->0x01d6
0193 2020 202d | -| .STRTAB_STRINGS
01d6 0000 0000 | | .XXX[0x2]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; Debug Table
01d8 ; --------------------------------------------------------------------------------------
01d8 0004 0002 | | .DEBUG4 0x0004,0x0002,0xd8aa,0x0000,0x0001,0x0000
01de d000 0000 | | .XXX[0x5]
01e0 0100 0000 | |
01e2 3200 |2 |
01e3 0000 0000 | | .BLANK 0000[0x18]
01fb 0020 0000 | | .XXX[0x5]
01fd 0c80 0000 | |
01ff 0000 | |