|
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_40acaf
└─⟦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 01c8 | | .CONST 0x01c8 ; 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 002b | + | .CONST 0x002b ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000e | | .CONST 0x000e ; Number of locals 000b INIT_0008: 000b 00bf | | Action Accept_Activation 000c 4800 |H | Short_Literal 0x0 000d 0093 00d3 | | push_full_address INIT_00d0 000f 00f5 | | Load_Encached Unused21 0010 037d | } | Declare_Type Task,Defined 0011 036f | o | Declare_Variable Task 0012 e002 | | Load 0x0,0x2 0013 e003 | | Load 0x0,0x3 0014 e004 | | Load 0x0,0x4 0015 e005 | | Load 0x0,0x5 0016 e006 | | Load 0x0,0x6 0017 e007 | | Load 0x0,0x7 0018 4806 |H | Short_Literal 0x6 0019 e20d | | Load 0x1,0xd 001a 020e | | Execute Module,Augment_Imports 001b 0007 | | Action Break_Optional 001c 4800 |H | Short_Literal 0x0 001d 0093 0033 | 3| push_full_address INIT_0030 001f 00f5 | | Load_Encached Unused21 0020 037d | } | Declare_Type Task,Defined 0021 036f | o | Declare_Variable Task 0022 e002 | | Load 0x0,0x2 0023 e003 | | Load 0x0,0x3 0024 e004 | | Load 0x0,0x4 0025 e007 | | Load 0x0,0x7 0026 e006 | | Load 0x0,0x6 0027 e005 | | Load 0x0,0x5 0028 4806 |H | Short_Literal 0x6 0029 e20e | | Load 0x1,0xe 002a 020e | | Execute Module,Augment_Imports 002b BODY_0008: 002b 00be | | Action Activate_Tasks 002c 00bc | | Action Signal_Activated 002d 00bb | | Action Signal_Completion 002e 0000 0000 | | .XXX[0x2] 0030 ; -------------------------------------------------------------------------------------- 0030 ; SUBPROGRAM 0030 ; -------------------------------------------------------------------------------------- 0030 0048 | H | .CONST 0x0048 ; Address of begin 0031 0004 | | .CONST 0x0004 ; Address of exception handler 0032 0011 | | .CONST 0x0011 ; Number of locals 0033 INIT_0030: 0033 00bf | | Action Accept_Activation 0034 4801 |H | Short_Literal 0x1 0035 4805 |H | Short_Literal 0x5 0036 00e9 | | Load_Encached String_Cache 0037 0334 | 4 | Declare_Variable Array,With_Constraint 0038 508b |P | Indirect_Literal Any,0xc4,{0x65737361, 0x69202020} 0039 e001 | | Load 0x0,0x1 003a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 003b 02c7 | | Declare_Variable Any 003c 00d8 | | Load_Top At_Offset_0 003d 1c00 | | Execute_Immediate Run_Utility,0x0 003e e002 | | Load 0x0,0x2 003f 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0040 4800 |H | Short_Literal 0x0 0041 48ff |H | Short_Literal 0xff 0042 e003 | | Load 0x0,0x3 0043 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0044 035b | [ | Declare_Type Array,Constrained 0045 0337 | 7 | Declare_Variable Array 0046 00e3 | | Load_Encached Natural_Cache 0047 00bc | | Action Signal_Activated 0048 BODY_0030: 0048 0092 0154 | T| Action Push_String_Extended,0x154 ; "Essai de connection" 004a e004 | | Load 0x0,0x4 004b 1814 | | Execute Package,Field_Execute,Field_Number 0x14 004c 00da | | Load_Top At_Offset_2 004d 01d4 | | Execute Vector,Structure_Write 004e e002 | | Load 0x0,0x2 004f 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0050 e20e | | Load 0x1,0xe 0051 0120 | | Execute Any,Is_Value 0052 6803 |h | Jump_Zero 0x56 0053 e001 | | Load 0x0,0x1 0054 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0055 7801 |x | Jump 0x57 0056 e20e | | Load 0x1,0xe 0057 e002 | | Load 0x0,0x2 0058 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0059 4801 |H | Short_Literal 0x1 005a 4806 |H | Short_Literal 0x6 005b 00e9 | | Load_Encached String_Cache 005c 0334 | 4 | Declare_Variable Array,With_Constraint 005d 506a |Pj | Indirect_Literal Any,0xc8,{0x5443502f, 0x49502020} 005e e001 | | Load 0x0,0x1 005f 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0060 c20e | | Store 0x1,0xe 0061 005b | [ | Store_Top Discrete,At_Offset_3 0062 00db | | Load_Top At_Offset_3 0063 e001 | | Load 0x0,0x1 0064 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0065 6805 |h | Jump_Zero 0x6b 0066 0092 0155 | U| Action Push_String_Extended,0x155 ; "ouverture emet ok" 0068 e005 | | Load 0x0,0x5 0069 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 006a 7804 |x | Jump 0x6f 006b 0092 0156 | V| Action Push_String_Extended,0x156 ; "pas bon ouverture emet ..." 006d e005 | | Load 0x0,0x5 006e 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 006f e002 | | Load 0x0,0x2 0070 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0071 604e |`N | Indirect_Literal Discrete,0xc0,{0x00007fff, 0xffffffff} 0072 4800 |H | Short_Literal 0x0 0073 4803 |H | Short_Literal 0x3 0074 e006 | | Load 0x0,0x6 0075 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0076 035b | [ | Declare_Type Array,Constrained 0077 0337 | 7 | Declare_Variable Array 0078 4802 |H | Short_Literal 0x2 0079 4800 |H | Short_Literal 0x0 007a 00da | | Load_Top At_Offset_2 007b 01d6 | | Execute Vector,Field_Write 007c 4806 |H | Short_Literal 0x6 007d 4801 |H | Short_Literal 0x1 007e 00da | | Load_Top At_Offset_2 007f 01d6 | | Execute Vector,Field_Write 0080 4800 |H | Short_Literal 0x0 0081 4802 |H | Short_Literal 0x2 0082 00da | | Load_Top At_Offset_2 0083 01d6 | | Execute Vector,Field_Write 0084 4802 |H | Short_Literal 0x2 0085 4803 |H | Short_Literal 0x3 0086 00da | | Load_Top At_Offset_2 0087 01d6 | | Execute Vector,Field_Write 0088 4800 |H | Short_Literal 0x0 0089 4803 |H | Short_Literal 0x3 008a e006 | | Load 0x0,0x6 008b 1b12 | | Execute Package,Field_Read,Field_Number 0x12 008c 035b | [ | Declare_Type Array,Constrained 008d 0337 | 7 | Declare_Variable Array 008e 48c1 |H | Short_Literal 0xc1 008f 4800 |H | Short_Literal 0x0 0090 00da | | Load_Top At_Offset_2 0091 01d6 | | Execute Vector,Field_Write 0092 4836 |H6 | Short_Literal 0x36 0093 4801 |H | Short_Literal 0x1 0094 00da | | Load_Top At_Offset_2 0095 01d6 | | Execute Vector,Field_Write 0096 4891 |H | Short_Literal 0x91 0097 4802 |H | Short_Literal 0x2 0098 00da | | Load_Top At_Offset_2 0099 01d6 | | Execute Vector,Field_Write 009a 481c |H | Short_Literal 0x1c 009b 4803 |H | Short_Literal 0x3 009c 00da | | Load_Top At_Offset_2 009d 01d6 | | Execute Vector,Field_Write 009e e20e | | Load 0x1,0xe 009f e001 | | Load 0x0,0x1 00a0 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00a1 005b | [ | Store_Top Discrete,At_Offset_3 00a2 00db | | Load_Top At_Offset_3 00a3 e001 | | Load 0x0,0x1 00a4 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00a5 6805 |h | Jump_Zero 0xab 00a6 0092 0157 | W| Action Push_String_Extended,0x157 ; "connection emet ok" 00a8 e005 | | Load 0x0,0x5 00a9 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00aa 7804 |x | Jump 0xaf 00ab 0092 0158 | X| Action Push_String_Extended,0x158 ; "pas bon connection emet ..." 00ad e005 | | Load 0x0,0x5 00ae 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00af 00e3 | | Load_Encached Natural_Cache 00b0 e002 | | Load 0x0,0x2 00b1 1b19 | | Execute Package,Field_Read,Field_Number 0x19 00b2 4800 |H | Short_Literal 0x0 00b3 600c |` | Indirect_Literal Discrete,0xc0,{0x00007fff, 0xffffffff} 00b4 e210 | | Load 0x1,0x10 00b5 e20e | | Load 0x1,0xe 00b6 e001 | | Load 0x0,0x1 00b7 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 00b8 c20f | | Store 0x1,0xf 00b9 0059 | Y | Store_Top Discrete,At_Offset_1 00ba 00db | | Load_Top At_Offset_3 00bb e001 | | Load 0x0,0x1 00bc 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00bd 00bb | | Action Signal_Completion 00be 0000 0000 | | .XXX[0x2] 00c0 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff} 00c4 6573 7361 |essa| .LITERAL {0x65737361, 0x69202020} 00c8 5443 502f |TCP/| .LITERAL {0x5443502f, 0x49502020} 00cc 0000 0000 | | .BLANK 0000[0x4] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00ed | | .CONST 0x00ed ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0012 | | .CONST 0x0012 ; Number of locals 00d3 INIT_00d0: 00d3 00bf | | Action Accept_Activation 00d4 e001 | | Load 0x0,0x1 00d5 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00d6 02c7 | | Declare_Variable Any 00d7 00d8 | | Load_Top At_Offset_0 00d8 1c00 | | Execute_Immediate Run_Utility,0x0 00d9 4801 |H | Short_Literal 0x1 00da 4805 |H | Short_Literal 0x5 00db 00e9 | | Load_Encached String_Cache 00dc 0334 | 4 | Declare_Variable Array,With_Constraint 00dd 506e |Pn | Indirect_Literal Any,0x14c,{0x65737361, 0x69202020} 00de e001 | | Load 0x0,0x1 00df 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00e0 02c7 | | Declare_Variable Any 00e1 00d8 | | Load_Top At_Offset_0 00e2 1c00 | | Execute_Immediate Run_Utility,0x0 00e3 e002 | | Load 0x0,0x2 00e4 1b19 | | Execute Package,Field_Read,Field_Number 0x19 00e5 4800 |H | Short_Literal 0x0 00e6 48ff |H | Short_Literal 0xff 00e7 e003 | | Load 0x0,0x3 00e8 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00e9 035b | [ | Declare_Type Array,Constrained 00ea 0337 | 7 | Declare_Variable Array 00eb 00e3 | | Load_Encached Natural_Cache 00ec 00bc | | Action Signal_Activated 00ed BODY_00d0: 00ed 00be | | Action Activate_Tasks 00ee e002 | | Load 0x0,0x2 00ef 1b19 | | Execute Package,Field_Read,Field_Number 0x19 00f0 e20f | | Load 0x1,0xf 00f1 0120 | | Execute Any,Is_Value 00f2 6803 |h | Jump_Zero 0xf6 00f3 e001 | | Load 0x0,0x1 00f4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00f5 7801 |x | Jump 0xf7 00f6 e20f | | Load 0x1,0xf 00f7 4800 |H | Short_Literal 0x0 00f8 4803 |H | Short_Literal 0x3 00f9 e004 | | Load 0x0,0x4 00fa 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00fb 035b | [ | Declare_Type Array,Constrained 00fc 0337 | 7 | Declare_Variable Array 00fd 4802 |H | Short_Literal 0x2 00fe 4800 |H | Short_Literal 0x0 00ff 00da | | Load_Top At_Offset_2 0100 01d6 | | Execute Vector,Field_Write 0101 4806 |H | Short_Literal 0x6 0102 4801 |H | Short_Literal 0x1 0103 00da | | Load_Top At_Offset_2 0104 01d6 | | Execute Vector,Field_Write 0105 4800 |H | Short_Literal 0x0 0106 4802 |H | Short_Literal 0x2 0107 00da | | Load_Top At_Offset_2 0108 01d6 | | Execute Vector,Field_Write 0109 4802 |H | Short_Literal 0x2 010a 4803 |H | Short_Literal 0x3 010b 00da | | Load_Top At_Offset_2 010c 01d6 | | Execute Vector,Field_Write 010d 4801 |H | Short_Literal 0x1 010e 4806 |H | Short_Literal 0x6 010f 00e9 | | Load_Encached String_Cache 0110 0334 | 4 | Declare_Variable Array,With_Constraint 0111 503e |P> | Indirect_Literal Any,0x150,{0x5443502f, 0x49502020} 0112 e001 | | Load 0x0,0x1 0113 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0114 c20f | | Store 0x1,0xf 0115 005b | [ | Store_Top Discrete,At_Offset_3 0116 00db | | Load_Top At_Offset_3 0117 e001 | | Load 0x0,0x1 0118 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0119 6805 |h | Jump_Zero 0x11f 011a 0092 0159 | Y| Action Push_String_Extended,0x159 ; "ouverture recep ok" 011c e005 | | Load 0x0,0x5 011d 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 011e 7804 |x | Jump 0x123 011f 0092 015a | Z| Action Push_String_Extended,0x15a ; "pas bon ouverture recep..." 0121 e005 | | Load 0x0,0x5 0122 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0123 e002 | | Load 0x0,0x2 0124 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0125 679a |g | Indirect_Literal Discrete,0xc0,{0x00007fff, 0xffffffff} 0126 e20f | | Load 0x1,0xf 0127 e001 | | Load 0x0,0x1 0128 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0129 005b | [ | Store_Top Discrete,At_Offset_3 012a 00db | | Load_Top At_Offset_3 012b e001 | | Load 0x0,0x1 012c 1820 | | Execute Package,Field_Execute,Field_Number 0x20 012d 6805 |h | Jump_Zero 0x133 012e 0092 015b | [| Action Push_String_Extended,0x15b ; "connection recep ok" 0130 e005 | | Load 0x0,0x5 0131 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0132 7804 |x | Jump 0x137 0133 0092 015c | \| Action Push_String_Extended,0x15c ; "pas bon connection recep..." 0135 e005 | | Load 0x0,0x5 0136 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0137 00cf | | Action Mark_Auxiliary 0138 00e3 | | Load_Encached Natural_Cache 0139 00db | | Load_Top At_Offset_3 013a e002 | | Load 0x0,0x2 013b 1b19 | | Execute Package,Field_Read,Field_Number 0x19 013c 6783 |g | Indirect_Literal Discrete,0xc0,{0x00007fff, 0xffffffff} 013d e20f | | Load 0x1,0xf 013e e001 | | Load 0x0,0x1 013f 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0140 c210 | | Store 0x1,0x10 0141 00d1 | | Pop_Control Pop_Count_1 0142 005a | Z | Store_Top Discrete,At_Offset_2 0143 00da | | Load_Top At_Offset_2 0144 e006 | | Load 0x0,0x6 0145 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0146 e005 | | Load 0x0,0x5 0147 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0148 00c9 | | Action Pop_Auxiliary_Loop 0149 7fee | | Jump 0x138 014a 0000 0000 | | .XXX[0x2] 014c 6573 7361 |essa| .LITERAL {0x65737361, 0x69202020} 0150 5443 502f |TCP/| .LITERAL {0x5443502f, 0x49502020} 0154 ; -------------------------------------------------------------------------------------- 0154 ; STRING TABLE 0154 ; -------------------------------------------------------------------------------------- 0154 0014 | | .STRTAB 0x0014->0x015e ; "Essai de connection" 0155 0025 | % | .STRTAB 0x0025->0x0167 ; "ouverture emet ok" 0156 0034 | 4 | .STRTAB 0x0034->0x0170 ; "pas bon ouverture emet ..." 0157 004c | L | .STRTAB 0x004c->0x017d ; "connection emet ok" 0158 005c | \ | .STRTAB 0x005c->0x0186 ; "pas bon connection emet ..." 0159 0075 | u | .STRTAB 0x0075->0x0193 ; "ouverture recep ok" 015a 0085 | | .STRTAB 0x0085->0x019c ; "pas bon ouverture recep..." 015b 009d | | .STRTAB 0x009d->0x01a9 ; "connection recep ok" 015c 00ae | | .STRTAB 0x00ae->0x01b3 ; "pas bon connection recep..." 015d 00c7 | | .STREND 0x00c7->0x01c0 015e 4573 7361 |Essa| .STRTAB_STRINGS 01c1 0000 0000 | | .BLANK 0000[0x7] 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; Debug Table 01c8 ; -------------------------------------------------------------------------------------- 01c8 0004 0009 | | .DEBUG4 0x0004,0x0009,0xd20e,0x0000,0x0001,0x0006 01ce 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000 01d2 000c 01e6 | | .DBG4T 0x000c,0x01e6,0x8000,0x0000 01d6 0033 0000 | 3 | .DBG4T 0x0033,0x0000,0x0000,0x0000 01da 0034 01ec | 4 | .DBG4T 0x0034,0x01ec,0x0000,0x0000 01de 00d3 0000 | | .DBG4T 0x00d3,0x0000,0x0000,0x0000 01e2 00d4 01fe | | .DBG4T 0x00d4,0x01fe,0x0000,0x4000 01e6 ; -------------------------------------------------------------------------------------- 01e6 ; Debug chain 01e6 ; -------------------------------------------------------------------------------------- 01e6 0004 0000 | | .DBGLEN 0x0004,0x0000 01e8 000c 0012 | | .DBGLNO 0x000c,0x0012,0x001c,0x0022 01ec ; -------------------------------------------------------------------------------------- 01ec ; Debug chain 01ec ; -------------------------------------------------------------------------------------- 01ec 0005 000b | | .DBGLEN 0x0005,0x000b 01ee 0034 0039 | 4 9| .DBGLNO 0x0034,0x0039,0x003e,0x0040,0x0046,0x0048,0x004e,0x0062,0x0066,0x006b,0x006f,0x00a2,0x00a6,0x00ab,0x00af,0x00ba 01fe ; -------------------------------------------------------------------------------------- 01fe ; Debug chain 01fe ; -------------------------------------------------------------------------------------- 01fe 0006 000a | | .DBGLEN 0x0006,0x000a 0200 00d4 00d9 | | .DBGLNO 0x00d4,0x00d9,0x00de,0x00e3,0x00e5,0x00eb,0x00ee,0x0116,0x011a,0x011f,0x0123,0x012a,0x012e,0x0133,0x0138,0x0143 0210 0001 0002 | | .XXX[0xa] 0212 0003 0004 | | 0214 0005 0006 | | 0216 0007 0008 | | 0218 000a 000b | | 021a 0000 0000 | | .BLANK 0000[0x1e6]