|
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_141ca1
└─⟦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 0140 | @ | .CONST 0x0140 ; 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 0036 | 6 | .CONST 0x0036 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0012 | | .CONST 0x0012 ; 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 e002 | | Load 0x0,0x2 000f 0322 | " | Declare_Variable Record 0010 00d8 | | Load_Top At_Offset_0 0011 1c00 | | Execute_Immediate Run_Utility,0x0 0012 4800 |H | Short_Literal 0x0 0013 0093 004b | K| push_full_address INIT_0048 0015 00f5 | | Load_Encached Unused21 0016 037d | } | Declare_Type Task,Defined 0017 036f | o | Declare_Variable Task 0018 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0019 00c7 | | Action Elaborate_Subprogram 001a e003 | | Load 0x0,0x3 001b e004 | | Load 0x0,0x4 001c e005 | | Load 0x0,0x5 001d e006 | | Load 0x0,0x6 001e e007 | | Load 0x0,0x7 001f a008 | | Store_Unchecked 0x0,0x8 0020 a009 | | Store_Unchecked 0x0,0x9 0021 a00a | | Store_Unchecked 0x0,0xa 0022 a00b | | Store_Unchecked 0x0,0xb 0023 a00c | | Store_Unchecked 0x0,0xc 0024 a00d | | Store_Unchecked 0x0,0xd 0025 a00e | | Store_Unchecked 0x0,0xe 0026 e00f | | Load 0x0,0xf 0027 a010 | | Store_Unchecked 0x0,0x10 0028 e011 | | Load 0x0,0x11 0029 1d0f | | Execute_Immediate Reference_Lex_1,0xf 002a 1d0e | | Execute_Immediate Reference_Lex_1,0xe 002b a012 | | Store_Unchecked 0x0,0x12 002c a013 | | Store_Unchecked 0x0,0x13 002d e211 | | Load 0x1,0x11 002e e014 | | Load 0x0,0x14 002f e015 | | Load 0x0,0x15 0030 a016 | | Store_Unchecked 0x0,0x16 0031 a017 | | Store_Unchecked 0x0,0x17 0032 a018 | | Store_Unchecked 0x0,0x18 0033 4819 |H | Short_Literal 0x19 0034 e212 | | Load 0x1,0x12 0035 020e | | Execute Module,Augment_Imports 0036 BODY_0008: 0036 00be | | Action Activate_Tasks 0037 00bc | | Action Signal_Activated 0038 00bb | | Action Signal_Completion 0039 0000 0000 | | .BLANK 0000[0x7] 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 e212 | | Load 0x1,0x12 0045 170d | | Execute Task,Entry_Call,Field_Number 0xd 0046 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0047 0000 | | .XXX[0x1] 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 0071 | q | .CONST 0x0071 ; Address of begin 0049 0004 | | .CONST 0x0004 ; Address of exception handler 004a 0018 | | .CONST 0x0018 ; Number of locals 004b INIT_0048: 004b 4800 |H | Short_Literal 0x0 004c 02cb | | Declare_Variable Entry 004d 00bf | | Action Accept_Activation 004e e001 | | Load 0x0,0x1 004f 0322 | " | Declare_Variable Record 0050 00d8 | | Load_Top At_Offset_0 0051 1c00 | | Execute_Immediate Run_Utility,0x0 0052 e001 | | Load 0x0,0x1 0053 0322 | " | Declare_Variable Record 0054 00d8 | | Load_Top At_Offset_0 0055 1c00 | | Execute_Immediate Run_Utility,0x0 0056 e002 | | Load 0x0,0x2 0057 0007 | | Action Break_Optional 0058 e003 | | Load 0x0,0x3 0059 1b10 | | Execute Package,Field_Read,Field_Number 0x10 005a e003 | | Load 0x0,0x3 005b 1b10 | | Execute Package,Field_Read,Field_Number 0x10 005c e004 | | Load 0x0,0x4 005d 0337 | 7 | Declare_Variable Array 005e e005 | | Load 0x0,0x5 005f 02ff | | Declare_Variable Variant_Record 0060 00d8 | | Load_Top At_Offset_0 0061 1c00 | | Execute_Immediate Run_Utility,0x0 0062 e005 | | Load 0x0,0x5 0063 02ff | | Declare_Variable Variant_Record 0064 00d8 | | Load_Top At_Offset_0 0065 1c00 | | Execute_Immediate Run_Utility,0x0 0066 00e1 | | Load_Encached Boolean_Cache 0067 00e1 | | Load_Encached Boolean_Cache 0068 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0069 480d 4821 |H H!| Declare_Variable Select 0x000, 0x001, 006b 4801 4800 |H H | [0x001]: 0x000 = 0x0000, 006d 4800 4801 |H H | [0x00d]: 0x021 = 0x0108 006f 02cf | | 0070 00bc | | Action Signal_Activated 0071 BODY_0048: 0071 0092 010e | | Action Push_String_Extended,0x10e ; "debut de la partie serveur de l objet" 0073 8006 | | Call 0x0,0x6 0074 00cf | | Action Mark_Auxiliary 0075 00d9 | | Load_Top At_Offset_1 0076 013f | ? | Execute Select,Rendezvous 0077 4602 |F | Jump_Case 0x3 0078 7882 |x | Jump 0xfb ; case 0x0 0079 7800 |x | Jump 0x7a ; case 0x1 007a 8007 | | Call 0x0,0x7 ; case 0x2 007b 707f |p | Jump_Nonzero 0xfb 007c 0092 010f | | Action Push_String_Extended,0x10f ; "il ya quelque chose dans la bal" 007e 8006 | | Call 0x0,0x6 007f e20e | | Load 0x1,0xe 0080 8008 | | Call 0x0,0x8 0081 00d1 | | Pop_Control Pop_Count_1 0082 e20e | | Load 0x1,0xe 0083 8009 | | Call 0x0,0x9 0084 a210 | | Store_Unchecked 0x1,0x10 0085 e20e | | Load 0x1,0xe 0086 800a | | Call 0x0,0xa 0087 a211 | | Store_Unchecked 0x1,0x11 0088 e211 | | Load 0x1,0x11 0089 e003 | | Load 0x0,0x3 008a 1815 | | Execute Package,Field_Execute,Field_Number 0x15 008b e214 | | Load 0x1,0x14 008c 016d | m | Execute Variant_Record,Structure_Write 008d e211 | | Load 0x1,0x11 008e e003 | | Load 0x0,0x3 008f 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0090 a211 | | Store_Unchecked 0x1,0x11 0091 e211 | | Load 0x1,0x11 0092 e003 | | Load 0x0,0x3 0093 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0094 e215 | | Load 0x1,0x15 0095 016d | m | Execute Variant_Record,Structure_Write 0096 e211 | | Load 0x1,0x11 0097 e003 | | Load 0x0,0x3 0098 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0099 a211 | | Store_Unchecked 0x1,0x11 009a e20e | | Load 0x1,0xe 009b 800b | | Call 0x0,0xb 009c e213 | | Load 0x1,0x13 009d 01d4 | | Execute Vector,Structure_Write 009e e210 | | Load 0x1,0x10 009f 460f |F | Jump_Case 0x10 00a0 785a |xZ | Jump 0xfb ; case 0x0 00a1 7859 |xY | Jump 0xfb ; case 0x1 00a2 7858 |xX | Jump 0xfb ; case 0x2 00a3 7825 |x% | Jump 0xc9 ; case 0x3 00a4 7856 |xV | Jump 0xfb ; case 0x4 00a5 7855 |xU | Jump 0xfb ; case 0x5 00a6 7854 |xT | Jump 0xfb ; case 0x6 00a7 7853 |xS | Jump 0xfb ; case 0x7 00a8 7815 |x | Jump 0xbe ; case 0x8 00a9 7851 |xQ | Jump 0xfb ; case 0x9 00aa 7850 |xP | Jump 0xfb ; case 0xa 00ab 784f |xO | Jump 0xfb ; case 0xb 00ac 784e |xN | Jump 0xfb ; case 0xc 00ad 784d |xM | Jump 0xfb ; case 0xd 00ae 784c |xL | Jump 0xfb ; case 0xe 00af 7800 |x | Jump 0xb0 ; case 0xf 00b0 e211 | | Load 0x1,0x11 00b1 e20e | | Load 0x1,0xe 00b2 800c | | Call 0x0,0xc 00b3 e213 | | Load 0x1,0x13 00b4 00e2 | | Load_Encached Integer_Cache 00b5 00e0 | | Load_Encached Standard_Cache 00b6 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00b7 00d8 | | Load_Top At_Offset_0 00b8 e00d | | Load 0x0,0xd 00b9 0260 | ` | Execute Discrete,In_Type 00ba 7001 |p | Jump_Nonzero 0xbc 00bb 0801 | | Execute_Immediate Raise,0x1 00bc 800e | | Call 0x0,0xe 00bd 783d |x= | Jump 0xfb 00be e211 | | Load 0x1,0x11 00bf e215 | | Load 0x1,0x15 00c0 e00f | | Load 0x0,0xf 00c1 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00c2 e214 | | Load 0x1,0x14 00c3 e00f | | Load 0x0,0xf 00c4 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00c5 e20e | | Load 0x1,0xe 00c6 800c | | Call 0x0,0xc 00c7 8010 | | Call 0x0,0x10 00c8 7832 |x2 | Jump 0xfb 00c9 e212 | | Load 0x1,0x12 00ca e214 | | Load 0x1,0x14 00cb e003 | | Load 0x0,0x3 00cc 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00cd a212 | | Store_Unchecked 0x1,0x12 00ce e212 | | Load 0x1,0x12 00cf e215 | | Load 0x1,0x15 00d0 e003 | | Load 0x0,0x3 00d1 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00d2 a212 | | Store_Unchecked 0x1,0x12 00d3 e212 | | Load 0x1,0x12 00d4 e003 | | Load 0x0,0x3 00d5 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00d6 0122 | " | Execute Any,Make_Root_Type 00d7 0226 | & | Execute Access,Convert 00d8 e211 | | Load 0x1,0x11 00d9 e215 | | Load 0x1,0x15 00da e00f | | Load 0x0,0xf 00db 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00dc 8011 | | Call 0x0,0x11 00dd c212 | | Store 0x1,0x12 00de e20f | | Load 0x1,0xf 00df e212 | | Load 0x1,0x12 00e0 e213 | | Load 0x1,0x13 00e1 480f |H | Short_Literal 0xf 00e2 e20e | | Load 0x1,0xe 00e3 800c | | Call 0x0,0xc 00e4 e20e | | Load 0x1,0xe 00e5 8012 | | Call 0x0,0x12 00e6 8013 | | Call 0x0,0x13 00e7 00d1 | | Pop_Control Pop_Count_1 00e8 00e1 | | Load_Encached Boolean_Cache 00e9 e014 | | Load 0x0,0x14 00ea e015 | | Load 0x0,0x15 00eb e016 | | Load 0x0,0x16 00ec 8017 | | Call 0x0,0x17 00ed 00d1 | | Pop_Control Pop_Count_1 00ee c216 | | Store 0x1,0x16 00ef 00db | | Load_Top At_Offset_3 00f0 6804 |h | Jump_Zero 0xf5 00f1 e014 | | Load 0x0,0x14 00f2 e20f | | Load 0x1,0xf 00f3 8018 | | Call 0x0,0x18 00f4 00d2 | | Pop_Control Pop_Count_2 00f5 0092 0110 | | Action Push_String_Extended,0x110 ; "reponse est envoyee" 00f7 8006 | | Call 0x0,0x6 00f8 e014 | | Load 0x0,0x14 00f9 8019 | | Call 0x0,0x19 00fa 00d1 | | Pop_Control Pop_Count_1 00fb 00da | | Load_Top At_Offset_2 00fc 6802 |h | Jump_Zero 0xff 00fd 00c9 | | Action Pop_Auxiliary_Loop 00fe 7f76 | v | Jump 0x75 00ff 00ce | | Action Pop_Auxiliary 0100 00bb | | Action Signal_Completion 0101 0000 0000 | | .BLANK 0000[0x7] 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; See instruction 0x02cf at 0x69, index=0xd 0108 ; -------------------------------------------------------------------------------------- 0108 010b | | .CONST 0x010b ; Address of begin 0109 0004 | | .CONST 0x0004 ; Address of exception handler 010a 0001 | | .CONST 0x0001 ; Number of locals 010b BODY_0108: 010b INIT_0108: 010b 4800 |H | Short_Literal 0x0 010c a217 | | Store_Unchecked 0x1,0x17 010d 4100 |A | End_Rendezvous 0x0 010e ; -------------------------------------------------------------------------------------- 010e ; STRING TABLE 010e ; -------------------------------------------------------------------------------------- 010e 0008 | | .STRTAB 0x0008->0x0112 ; "debut de la partie serveur de l objet" 010f 002b | + | .STRTAB 0x002b->0x0124 ; "il ya quelque chose dans la bal" 0110 0048 | H | .STRTAB 0x0048->0x0134 ; "reponse est envoyee" 0111 0059 | Y | .STREND 0x0059->0x013d 0112 6465 6275 |debu| .STRTAB_STRINGS 013e 0000 0000 | | .XXX[0x2] 0140 ; -------------------------------------------------------------------------------------- 0140 ; Debug Table 0140 ; -------------------------------------------------------------------------------------- 0140 0004 000a | | .DEBUG4 0x0004,0x000a,0x6f68,0x0000,0x0001,0x0006 0146 000b 015e | ^| .DBG4T 0x000b,0x015e,0xc000,0x0000 014a 000e 0161 | a| .DBG4T 0x000e,0x0161,0xc000,0x0000 014e 0043 0167 | C g| .DBG4T 0x0043,0x0167,0x1001,0x0000 0152 004b 016a | K j| .DBG4T 0x004b,0x016a,0x0000,0x0000 0156 004e 016d | N m| .DBG4T 0x004e,0x016d,0x0000,0x4000 015a 010b 01ab | | .DBG4T 0x010b,0x01ab,0x0003,0x0000 015e ; -------------------------------------------------------------------------------------- 015e ; Debug chain 015e ; -------------------------------------------------------------------------------------- 015e 0001 0000 | | .DBGLEN 0x0001,0x0000 0160 000b | | .DBGLNO 0x000b 0161 ; -------------------------------------------------------------------------------------- 0161 ; Debug chain 0161 ; -------------------------------------------------------------------------------------- 0161 0004 0000 | | .DBGLEN 0x0004,0x0000 0163 000e 0012 | | .DBGLNO 0x000e,0x0012,0x0018,0x001a 0167 ; -------------------------------------------------------------------------------------- 0167 ; Debug chain 0167 ; -------------------------------------------------------------------------------------- 0167 0000 0001 | | .DBGLEN 0x0000,0x0001 0169 0043 | C | .DBGLNO 0x0043 016a ; -------------------------------------------------------------------------------------- 016a ; Debug chain 016a ; -------------------------------------------------------------------------------------- 016a 0001 0000 | | .DBGLEN 0x0001,0x0000 016c 004b | K | .DBGLNO 0x004b 016d ; -------------------------------------------------------------------------------------- 016d ; Debug chain 016d ; -------------------------------------------------------------------------------------- 016d 000a 0019 | | .DBGLEN 0x000a,0x0019 016f 004e 0052 | N R| .DBGLNO 0x004e,0x0052,0x0056,0x0058,0x005a,0x005c,0x005e,0x0062,0x0066,0x0067,0x0071,0x0075,0x007a,0x007c,0x007f,0x0082,0x0085,0x0088,0x008d,0x0091,0x0096,0x009a,0x009e,0x00b0,0x00be,0x00c9,0x00ce,0x00d3,0x00de,0x00e8,0x00ef,0x00f1,0x00f5,0x00f8,0x00fb 0192 0001 0003 | | .XXX[0x19] 0194 0005 0006 | | 0196 0007 0008 | | 0198 0009 000a | | 019a 000b 000c | | 019c 000d 000e | | 019e 000f 0010 | | 01a0 0011 0012 | | 01a2 0013 0014 | | 01a4 0015 0016 | | 01a6 0017 0018 | | 01a8 0019 001a | | 01aa 001c | | 01ab ; -------------------------------------------------------------------------------------- 01ab ; Debug chain 01ab ; -------------------------------------------------------------------------------------- 01ab 0000 0001 | | .DBGLEN 0x0000,0x0001 01ad 010b | | .DBGLNO 0x010b 01ae 0000 0000 | | .BLANK 0000[0x52]