|
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]