|
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_1308d9
└─⟦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 01e8 | | .CONST 0x01e8 ; 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 0037 | 7 | .CONST 0x0037 ; 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 a007 | | Store_Unchecked 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 e012 | | Load 0x0,0x12 002c a013 | | Store_Unchecked 0x0,0x13 002d a014 | | Store_Unchecked 0x0,0x14 002e e211 | | Load 0x1,0x11 002f e015 | | Load 0x0,0x15 0030 e016 | | Load 0x0,0x16 0031 a017 | | Store_Unchecked 0x0,0x17 0032 a018 | | Store_Unchecked 0x0,0x18 0033 a019 | | Store_Unchecked 0x0,0x19 0034 481a |H | Short_Literal 0x1a 0035 e212 | | Load 0x1,0x12 0036 020e | | Execute Module,Augment_Imports 0037 BODY_0008: 0037 00be | | Action Activate_Tasks 0038 00bc | | Action Signal_Activated 0039 00bb | | Action Signal_Completion 003a 0000 0000 | | .BLANK 0000[0x6] 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 0070 | p | .CONST 0x0070 ; 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 00e2 | | Load_Encached Integer_Cache 005d e004 | | Load 0x0,0x4 005e 02ff | | Declare_Variable Variant_Record 005f 00d8 | | Load_Top At_Offset_0 0060 1c00 | | Execute_Immediate Run_Utility,0x0 0061 e004 | | Load 0x0,0x4 0062 02ff | | Declare_Variable Variant_Record 0063 00d8 | | Load_Top At_Offset_0 0064 1c00 | | Execute_Immediate Run_Utility,0x0 0065 00e1 | | Load_Encached Boolean_Cache 0066 00e1 | | Load_Encached Boolean_Cache 0067 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0068 480d 4825 |H H%| Declare_Variable Select 0x000, 0x001, 006a 4801 4800 |H H | [0x001]: 0x000 = 0x0000, 006c 4800 4801 |H H | [0x00d]: 0x025 = 0x0128 006e 02cf | | 006f 00bc | | Action Signal_Activated 0070 BODY_0048: 0070 0092 012e | .| Action Push_String_Extended,0x12e ; "debut de la partie serveur de l objet" 0072 8005 | | Call 0x0,0x5 0073 00cf | | Action Mark_Auxiliary 0074 00d9 | | Load_Top At_Offset_1 0075 013f | ? | Execute Select,Rendezvous 0076 4602 |F | Jump_Case 0x3 0077 78aa |x | Jump 0x122 ; case 0x0 0078 7800 |x | Jump 0x79 ; case 0x1 0079 8006 | | Call 0x0,0x6 ; case 0x2 007a 70a7 |p | Jump_Nonzero 0x122 007b e20e | | Load 0x1,0xe 007c 8007 | | Call 0x0,0x7 007d 00d1 | | Pop_Control Pop_Count_1 007e 0092 012f | /| Action Push_String_Extended,0x12f ; "le serveur de l objet a recu quelque chose" 0080 8005 | | Call 0x0,0x5 0081 e20e | | Load 0x1,0xe 0082 8008 | | Call 0x0,0x8 0083 a210 | | Store_Unchecked 0x1,0x10 0084 e20e | | Load 0x1,0xe 0085 8009 | | Call 0x0,0x9 0086 a211 | | Store_Unchecked 0x1,0x11 0087 e211 | | Load 0x1,0x11 0088 e003 | | Load 0x0,0x3 0089 1815 | | Execute Package,Field_Execute,Field_Number 0x15 008a e214 | | Load 0x1,0x14 008b 016d | m | Execute Variant_Record,Structure_Write 008c e211 | | Load 0x1,0x11 008d e003 | | Load 0x0,0x3 008e 1816 | | Execute Package,Field_Execute,Field_Number 0x16 008f a211 | | Store_Unchecked 0x1,0x11 0090 e211 | | Load 0x1,0x11 0091 e003 | | Load 0x0,0x3 0092 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0093 e215 | | Load 0x1,0x15 0094 016d | m | Execute Variant_Record,Structure_Write 0095 e211 | | Load 0x1,0x11 0096 e003 | | Load 0x0,0x3 0097 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0098 a211 | | Store_Unchecked 0x1,0x11 0099 e20e | | Load 0x1,0xe 009a 800a | | Call 0x0,0xa 009b 00e2 | | Load_Encached Integer_Cache 009c 00e0 | | Load_Encached Standard_Cache 009d 1819 | | Execute Package,Field_Execute,Field_Number 0x19 009e a213 | | Store_Unchecked 0x1,0x13 009f e20e | | Load 0x1,0xe 00a0 800b | | Call 0x0,0xb 00a1 e210 | | Load 0x1,0x10 00a2 460f |F | Jump_Case 0x10 00a3 787e |x~ | Jump 0x122 ; case 0x0 00a4 787d |x} | Jump 0x122 ; case 0x1 00a5 787c |x| | Jump 0x122 ; case 0x2 00a6 782f |x/ | Jump 0xd6 ; case 0x3 00a7 787a |xz | Jump 0x122 ; case 0x4 00a8 7879 |xy | Jump 0x122 ; case 0x5 00a9 7878 |xx | Jump 0x122 ; case 0x6 00aa 7877 |xw | Jump 0x122 ; case 0x7 00ab 781f |x | Jump 0xcb ; case 0x8 00ac 7875 |xu | Jump 0x122 ; case 0x9 00ad 7874 |xt | Jump 0x122 ; case 0xa 00ae 7873 |xs | Jump 0x122 ; case 0xb 00af 7872 |xr | Jump 0x122 ; case 0xc 00b0 7871 |xq | Jump 0x122 ; case 0xd 00b1 7870 |xp | Jump 0x122 ; case 0xe 00b2 7800 |x | Jump 0xb3 ; case 0xf 00b3 0092 0130 | 0| Action Push_String_Extended,0x130 ; "le serveur de l objet a une reponse" 00b5 8005 | | Call 0x0,0x5 00b6 0092 0131 | 1| Action Push_String_Extended,0x131 ; "index reponse" 00b8 e213 | | Load 0x1,0x13 00b9 00e0 | | Load_Encached Standard_Cache 00ba 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00bb 01cc | | Execute Vector,Catenate 00bc 8005 | | Call 0x0,0x5 00bd e211 | | Load 0x1,0x11 00be e20e | | Load 0x1,0xe 00bf 800c | | Call 0x0,0xc 00c0 e213 | | Load 0x1,0x13 00c1 00d8 | | Load_Top At_Offset_0 00c2 e00d | | Load 0x0,0xd 00c3 0260 | ` | Execute Discrete,In_Type 00c4 7001 |p | Jump_Nonzero 0xc6 00c5 0801 | | Execute_Immediate Raise,0x1 00c6 800e | | Call 0x0,0xe 00c7 0092 0132 | 2| Action Push_String_Extended,0x132 ; "fin pour reponse" 00c9 8005 | | Call 0x0,0x5 00ca 7857 |xW | Jump 0x122 00cb e211 | | Load 0x1,0x11 00cc e215 | | Load 0x1,0x15 00cd e00f | | Load 0x0,0xf 00ce 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00cf e214 | | Load 0x1,0x14 00d0 e00f | | Load 0x0,0xf 00d1 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00d2 e20e | | Load 0x1,0xe 00d3 800c | | Call 0x0,0xc 00d4 8010 | | Call 0x0,0x10 00d5 784c |xL | Jump 0x122 00d6 0092 0133 | 3| Action Push_String_Extended,0x133 ; "le serveur de l objet a recu un request" 00d8 8005 | | Call 0x0,0x5 00d9 0092 0134 | 4| Action Push_String_Extended,0x134 ; "index de request est" 00db e213 | | Load 0x1,0x13 00dc 00e0 | | Load_Encached Standard_Cache 00dd 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00de 01cc | | Execute Vector,Catenate 00df 8005 | | Call 0x0,0x5 00e0 e212 | | Load 0x1,0x12 00e1 e214 | | Load 0x1,0x14 00e2 e003 | | Load 0x0,0x3 00e3 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00e4 a212 | | Store_Unchecked 0x1,0x12 00e5 e212 | | Load 0x1,0x12 00e6 e215 | | Load 0x1,0x15 00e7 e003 | | Load 0x0,0x3 00e8 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00e9 a212 | | Store_Unchecked 0x1,0x12 00ea e212 | | Load 0x1,0x12 00eb e003 | | Load 0x0,0x3 00ec 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00ed 0122 | " | Execute Any,Make_Root_Type 00ee 0226 | & | Execute Access,Convert 00ef e211 | | Load 0x1,0x11 00f0 e215 | | Load 0x1,0x15 00f1 e00f | | Load 0x0,0xf 00f2 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00f3 8011 | | Call 0x0,0x11 00f4 c212 | | Store 0x1,0x12 00f5 0092 0135 | 5| Action Push_String_Extended,0x135 ; "le serveur va contruire la reponse" 00f7 8005 | | Call 0x0,0x5 00f8 0092 0136 | 6| Action Push_String_Extended,0x136 ; "la liste du serveur est prete" 00fa 8005 | | Call 0x0,0x5 00fb e20f | | Load 0x1,0xf 00fc e212 | | Load 0x1,0x12 00fd e213 | | Load 0x1,0x13 00fe 00e0 | | Load_Encached Standard_Cache 00ff 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0100 e012 | | Load 0x0,0x12 0101 01c7 | | Execute Vector,Convert 0102 480f |H | Short_Literal 0xf 0103 e20e | | Load 0x1,0xe 0104 800c | | Call 0x0,0xc 0105 e20e | | Load 0x1,0xe 0106 8013 | | Call 0x0,0x13 0107 8014 | | Call 0x0,0x14 0108 00d1 | | Pop_Control Pop_Count_1 0109 0092 0137 | 7| Action Push_String_Extended,0x137 ; "le message de reponse est cree" 010b 8005 | | Call 0x0,0x5 010c 00e1 | | Load_Encached Boolean_Cache 010d e015 | | Load 0x0,0x15 010e e016 | | Load 0x0,0x16 010f e017 | | Load 0x0,0x17 0110 8018 | | Call 0x0,0x18 0111 00d1 | | Pop_Control Pop_Count_1 0112 c216 | | Store 0x1,0x16 0113 0092 0138 | 8| Action Push_String_Extended,0x138 ; "init channel dans serveur ok" 0115 8005 | | Call 0x0,0x5 0116 00db | | Load_Top At_Offset_3 0117 6804 |h | Jump_Zero 0x11c 0118 e015 | | Load 0x0,0x15 0119 e20f | | Load 0x1,0xf 011a 8019 | | Call 0x0,0x19 011b 00d2 | | Pop_Control Pop_Count_2 011c 0092 0139 | 9| Action Push_String_Extended,0x139 ; "reponse est envoyee" 011e 8005 | | Call 0x0,0x5 011f e015 | | Load 0x0,0x15 0120 801a | | Call 0x0,0x1a 0121 00d1 | | Pop_Control Pop_Count_1 0122 00da | | Load_Top At_Offset_2 0123 6802 |h | Jump_Zero 0x126 0124 00c9 | | Action Pop_Auxiliary_Loop 0125 7f4e | N | Jump 0x74 0126 00ce | | Action Pop_Auxiliary 0127 00bb | | Action Signal_Completion 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; See instruction 0x02cf at 0x68, index=0xd 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 4800 |H | Short_Literal 0x0 012c a217 | | Store_Unchecked 0x1,0x17 012d 4100 |A | End_Rendezvous 0x0 012e ; -------------------------------------------------------------------------------------- 012e ; STRING TABLE 012e ; -------------------------------------------------------------------------------------- 012e 001a | | .STRTAB 0x001a->0x013b ; "debut de la partie serveur de l objet" 012f 003d | = | .STRTAB 0x003d->0x014d ; "le serveur de l objet a recu quelque chose" 0130 0065 | e | .STRTAB 0x0065->0x0162 ; "le serveur de l objet a une reponse" 0131 0086 | | .STRTAB 0x0086->0x0174 ; "index reponse" 0132 0091 | | .STRTAB 0x0091->0x017a ; "fin pour reponse" 0133 009f | | .STRTAB 0x009f->0x0182 ; "le serveur de l objet a recu un request" 0134 00c4 | | .STRTAB 0x00c4->0x0196 ; "index de request est" 0135 00d6 | | .STRTAB 0x00d6->0x01a0 ; "le serveur va contruire la reponse" 0136 00f6 | | .STRTAB 0x00f6->0x01b1 ; "la liste du serveur est prete" 0137 0111 | | .STRTAB 0x0111->0x01bf ; "le message de reponse est cree" 0138 012d | - | .STRTAB 0x012d->0x01ce ; "init channel dans serveur ok" 0139 0147 | G | .STRTAB 0x0147->0x01dc ; "reponse est envoyee" 013a 0158 | X | .STREND 0x0158->0x01e6 013b 6465 6275 |debu| .STRTAB_STRINGS 01e6 0000 0000 | | .XXX[0x2] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; Debug Table 01e8 ; -------------------------------------------------------------------------------------- 01e8 0004 000a | | .DEBUG4 0x0004,0x000a,0x3598,0x0000,0x0001,0x0006 01ee 000b 0206 | | .DBG4T 0x000b,0x0206,0xc000,0x0000 01f2 000e 0209 | | .DBG4T 0x000e,0x0209,0xc000,0x0000 01f6 0043 020f | C | .DBG4T 0x0043,0x020f,0x1001,0x0000 01fa 004b 0212 | K | .DBG4T 0x004b,0x0212,0x0000,0x0000 01fe 004e 0215 | N | .DBG4T 0x004e,0x0215,0x0000,0x4000 0202 012b 0267 | + g| .DBG4T 0x012b,0x0267,0x0003,0x0000 0206 ; -------------------------------------------------------------------------------------- 0206 ; Debug chain 0206 ; -------------------------------------------------------------------------------------- 0206 0001 0000 | | .DBGLEN 0x0001,0x0000 0208 000b | | .DBGLNO 0x000b 0209 ; -------------------------------------------------------------------------------------- 0209 ; Debug chain 0209 ; -------------------------------------------------------------------------------------- 0209 0004 0000 | | .DBGLEN 0x0004,0x0000 020b 000e 0012 | | .DBGLNO 0x000e,0x0012,0x0018,0x001a 020f ; -------------------------------------------------------------------------------------- 020f ; Debug chain 020f ; -------------------------------------------------------------------------------------- 020f 0000 0001 | | .DBGLEN 0x0000,0x0001 0211 0043 | C | .DBGLNO 0x0043 0212 ; -------------------------------------------------------------------------------------- 0212 ; Debug chain 0212 ; -------------------------------------------------------------------------------------- 0212 0001 0000 | | .DBGLEN 0x0001,0x0000 0214 004b | K | .DBGLNO 0x004b 0215 ; -------------------------------------------------------------------------------------- 0215 ; Debug chain 0215 ; -------------------------------------------------------------------------------------- 0215 000a 0023 | #| .DBGLEN 0x000a,0x0023 0217 004e 0052 | N R| .DBGLNO 0x004e,0x0052,0x0056,0x0058,0x005a,0x005c,0x005d,0x0061,0x0065,0x0066,0x0070,0x0074,0x0079,0x007b,0x007e,0x0081,0x0084,0x0087,0x008c,0x0090,0x0095,0x0099,0x009f,0x00a1,0x00b3,0x00b6,0x00bd,0x00c7,0x00cb,0x00d6,0x00d9,0x00e0,0x00e5,0x00ea,0x00f5,0x00f8,0x00fb,0x0109,0x010c,0x0113,0x0116,0x0118,0x011c,0x011f,0x0122 0244 0001 0003 | | .XXX[0x23] 0246 0005 0006 | | 0248 0007 0008 | | 024a 0009 000a | | 024c 000b 000c | | 024e 000d 000e | | 0250 000f 0010 | | 0252 0011 0012 | | 0254 0013 0014 | | 0256 0015 0016 | | 0258 0017 0018 | | 025a 0019 001a | | 025c 001b 001c | | 025e 001d 001e | | 0260 001f 0020 | | 0262 0021 0022 | ! "| 0264 0023 0024 | # $| 0266 0026 | & | 0267 ; -------------------------------------------------------------------------------------- 0267 ; Debug chain 0267 ; -------------------------------------------------------------------------------------- 0267 0000 0001 | | .DBGLEN 0x0000,0x0001 0269 012b | + | .DBGLNO 0x012b 026a 0000 0000 | | .BLANK 0000[0x196]