|
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_14a4c7
└─⟦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 01a0 | | .CONST 0x01a0 ; 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 0018 | | .CONST 0x0018 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0012 | | .CONST 0x0012 ; Number of locals
000b INIT_0008:
000b 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated
000d 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated
000f 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated
0011 00bf | | Action Accept_Activation
0012 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0013 00c7 | | Action Elaborate_Subprogram
0014 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0015 00c7 | | Action Elaborate_Subprogram
0016 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0017 00c7 | | Action Elaborate_Subprogram
0018 BODY_0008:
0018 00bc | | Action Signal_Activated
0019 00bb | | Action Signal_Completion
001a 0000 0000 | | .BLANK 0000[0x6]
0020 ; --------------------------------------------------------------------------------------
0020 ; SUBPROGRAM
0020 ; --------------------------------------------------------------------------------------
0020 0025 | % | .CONST 0x0025 ; Address of begin
0021 0004 | | .CONST 0x0004 ; Address of exception handler
0022 0002 | | .CONST 0x0002 ; Number of locals
0023 INIT_0020:
0023 e002 | | Load 0x0,0x2
0024 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0025 BODY_0020:
0025 0092 00ff | | Action Push_String_Extended,0xff ; "Mail Sender trying to open connection."
0027 e003 | | Load 0x0,0x3
0028 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0029 e5fd | | Load 0x2,-0x3
002a e004 | | Load 0x0,0x4
002b 01df | | Execute Vector,Equal
002c 6819 |h | Jump_Zero 0x46
002d 00cf | | Action Mark_Auxiliary
002e 7811 |x | Jump 0x40
002f e002 | | Load 0x0,0x2
0030 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0031 e5fe | | Load 0x2,-0x2
0032 0120 | | Execute Any,Is_Value
0033 6803 |h | Jump_Zero 0x37
0034 e005 | | Load 0x0,0x5
0035 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0036 7801 |x | Jump 0x38
0037 e5fe | | Load 0x2,-0x2
0038 e002 | | Load 0x0,0x2
0039 1b16 | | Execute Package,Field_Read,Field_Number 0x16
003a e5ff | | Load 0x2,-0x1
003b e005 | | Load 0x0,0x5
003c 181a | | Execute Package,Field_Execute,Field_Number 0x1a
003d c5fe | | Store 0x2,-0x2
003e 005a | Z | Store_Top Discrete,At_Offset_2
003f 00c9 | | Action Pop_Auxiliary_Loop
0040 e5fe | | Load 0x2,-0x2
0041 e005 | | Load 0x0,0x5
0042 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0043 6feb |o | Jump_Zero 0x2f
0044 00ce | | Action Pop_Auxiliary
0045 7817 |x | Jump 0x5d
0046 00cf | | Action Mark_Auxiliary
0047 7810 |x | Jump 0x58
0048 e002 | | Load 0x0,0x2
0049 1b19 | | Execute Package,Field_Read,Field_Number 0x19
004a e5fe | | Load 0x2,-0x2
004b 0120 | | Execute Any,Is_Value
004c 6803 |h | Jump_Zero 0x50
004d e005 | | Load 0x0,0x5
004e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
004f 7801 |x | Jump 0x51
0050 e5fe | | Load 0x2,-0x2
0051 e5fd | | Load 0x2,-0x3
0052 e5ff | | Load 0x2,-0x1
0053 e005 | | Load 0x0,0x5
0054 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0055 c5fe | | Store 0x2,-0x2
0056 005a | Z | Store_Top Discrete,At_Offset_2
0057 00c9 | | Action Pop_Auxiliary_Loop
0058 e5fe | | Load 0x2,-0x2
0059 e005 | | Load 0x0,0x5
005a 181f | | Execute Package,Field_Execute,Field_Number 0x1f
005b 6fec |o | Jump_Zero 0x48
005c 00ce | | Action Pop_Auxiliary
005d e5fe | | Load 0x2,-0x2
005e e005 | | Load 0x0,0x5
005f 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0060 e5fd | | Load 0x2,-0x3
0061 01d4 | | Execute Vector,Structure_Write
0062 0092 0100 | | Action Push_String_Extended,0x100 ; "Connection opened by mail_sender."
0064 e003 | | Load 0x0,0x3
0065 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0066 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0067 0000 | | .XXX[0x1]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 0075 | u | .CONST 0x0075 ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0006 | | .CONST 0x0006 ; Number of locals
006b INIT_0068:
006b e002 | | Load 0x0,0x2
006c 1b19 | | Execute Package,Field_Read,Field_Number 0x19
006d e006 | | Load 0x0,0x6
006e 0337 | 7 | Declare_Variable Array
006f 00e3 | | Load_Encached Natural_Cache
0070 00e1 | | Load_Encached Boolean_Cache
0071 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0072 e5fc | | Load 0x2,-0x4
0073 00e3 | | Load_Encached Natural_Cache
0074 03f1 | | Declare_Variable Discrete,With_Value
0075 BODY_0068:
0075 00cf | | Action Mark_Auxiliary
0076 7821 |x! | Jump 0x98
0077 e002 | | Load 0x0,0x2
0078 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0079 6076 |`v | Indirect_Literal Discrete,0xf0,{0x00007fff, 0xffffffff}
007a e5fd | | Load 0x2,-0x3
007b e5fe | | Load 0x2,-0x2
007c e5ff | | Load 0x2,-0x1
007d e005 | | Load 0x0,0x5
007e 181c | | Execute Package,Field_Execute,Field_Number 0x1c
007f c402 | | Store 0x2,0x2
0080 00d9 | | Load_Top At_Offset_1
0081 0aff | | Execute_Immediate Plus,-0x1
0082 005a | Z | Store_Top Discrete,At_Offset_2
0083 00d9 | | Load_Top At_Offset_1
0084 7003 |p | Jump_Nonzero 0x88
0085 4801 |H | Short_Literal 0x1
0086 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0087 7809 |x | Jump 0x91
0088 e5ff | | Load 0x2,-0x1
0089 e005 | | Load 0x0,0x5
008a 1820 | | Execute Package,Field_Execute,Field_Number 0x20
008b 6803 |h | Jump_Zero 0x8f
008c 4801 |H | Short_Literal 0x1
008d 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
008e 7802 |x | Jump 0x91
008f 4800 |H | Short_Literal 0x0
0090 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0091 0092 0101 | | Action Push_String_Extended,0x101 ; "Try to connect the socket"
0093 e003 | | Load 0x0,0x3
0094 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0095 6056 |`V | Indirect_Literal Discrete,0xec,{0x00000000, 0x00010000}
0096 00ba | | Action Initiate_Delay
0097 00c9 | | Action Pop_Auxiliary_Loop
0098 00da | | Load_Top At_Offset_2
0099 6fdd |o | Jump_Zero 0x77
009a 00ce | | Action Pop_Auxiliary
009b e402 | | Load 0x2,0x2
009c e002 | | Load 0x0,0x2
009d 181a | | Execute Package,Field_Execute,Field_Number 0x1a
009e 4800 |H | Short_Literal 0x0
009f e002 | | Load 0x0,0x2
00a0 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00a1 01de | | Execute Vector,Not_Equal
00a2 680d |h | Jump_Zero 0xb0
00a3 4800 |H | Short_Literal 0x0
00a4 a5fa | | Store_Unchecked 0x2,-0x6
00a5 0092 0102 | | Action Push_String_Extended,0x102 ; "Problem to connect !!!!"
00a7 e003 | | Load 0x0,0x3
00a8 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00a9 00d8 | | Load_Top At_Offset_0
00aa 7036 |p6 | Jump_Nonzero 0xe1
00ab 0092 0103 | | Action Push_String_Extended,0x103 ; "Time out while trying to connect"
00ad e003 | | Load 0x0,0x3
00ae 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00af 7831 |x1 | Jump 0xe1
00b0 4801 |H | Short_Literal 0x1
00b1 a5fa | | Store_Unchecked 0x2,-0x6
00b2 0092 0104 | | Action Push_String_Extended,0x104 ; "Connection made by mail sender."
00b4 e003 | | Load 0x0,0x3
00b5 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00b6 00db | | Load_Top At_Offset_3
00b7 e5fb | | Load 0x2,-0x5
00b8 820f | | Call 0x1,0xf
00b9 00d1 | | Pop_Control Pop_Count_1
00ba 00e3 | | Load_Encached Natural_Cache
00bb e002 | | Load 0x0,0x2
00bc 1b19 | | Execute Package,Field_Read,Field_Number 0x19
00bd 4800 |H | Short_Literal 0x0
00be 6031 |`1 | Indirect_Literal Discrete,0xf0,{0x00007fff, 0xffffffff}
00bf e403 | | Load 0x2,0x3
00c0 e5ff | | Load 0x2,-0x1
00c1 e005 | | Load 0x0,0x5
00c2 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
00c3 c402 | | Store 0x2,0x2
00c4 005b | [ | Store_Top Discrete,At_Offset_3
00c5 e402 | | Load 0x2,0x2
00c6 e002 | | Load 0x0,0x2
00c7 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00c8 4800 |H | Short_Literal 0x0
00c9 e002 | | Load 0x0,0x2
00ca 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00cb 01de | | Execute Vector,Not_Equal
00cc 6807 |h | Jump_Zero 0xd4
00cd 4800 |H | Short_Literal 0x0
00ce a5fa | | Store_Unchecked 0x2,-0x6
00cf 0092 0105 | | Action Push_String_Extended,0x105 ; "Problem while transmitting."
00d1 e003 | | Load 0x0,0x3
00d2 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00d3 780d |x | Jump 0xe1
00d4 4801 |H | Short_Literal 0x1
00d5 a5fa | | Store_Unchecked 0x2,-0x6
00d6 0092 0106 | | Action Push_String_Extended,0x106 ; "Mail sender has transmited something."
00d8 e003 | | Load 0x0,0x3
00d9 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00da e5ff | | Load 0x2,-0x1
00db e005 | | Load 0x0,0x5
00dc 181e | | Execute Package,Field_Execute,Field_Number 0x1e
00dd 0092 0107 | | Action Push_String_Extended,0x107 ; "Disconnected."
00df e003 | | Load 0x0,0x3
00e0 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00e1 0092 0108 | | Action Push_String_Extended,0x108 ; "going out of send_mail with status = "
00e3 e402 | | Load 0x2,0x2
00e4 e002 | | Load 0x0,0x2
00e5 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00e6 01cc | | Execute Vector,Catenate
00e7 e003 | | Load 0x0,0x3
00e8 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00e9 4506 |E | Exit_Suprogram New_Top_Offset 0x6
00ea 0000 0000 | | .XXX[0x2]
00ec 0000 0000 | | .LITERAL {0x00000000, 0x00010000}
00f0 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
00f4 0000 0000 | | .BLANK 0000[0x4]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb | | .CONST 0x00fb ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0001 | | .CONST 0x0001 ; Number of locals
00fb BODY_00f8:
00fb INIT_00f8:
00fb 00da | | Load_Top At_Offset_2
00fc e005 | | Load 0x0,0x5
00fd 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00fe 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00ff ; --------------------------------------------------------------------------------------
00ff ; STRING TABLE
00ff ; --------------------------------------------------------------------------------------
00ff 0016 | | .STRTAB 0x0016->0x010a ; "Mail Sender trying to open connection."
0100 003a | : | .STRTAB 0x003a->0x011d ; "Connection opened by mail_sender."
0101 0059 | Y | .STRTAB 0x0059->0x012d ; "Try to connect the socket"
0102 0070 | p | .STRTAB 0x0070->0x013a ; "Problem to connect !!!!"
0103 0085 | | .STRTAB 0x0085->0x0145 ; "Time out while trying to connect"
0104 00a3 | | .STRTAB 0x00a3->0x0155 ; "Connection made by mail sender."
0105 00c0 | | .STRTAB 0x00c0->0x0165 ; "Problem while transmitting."
0106 00d9 | | .STRTAB 0x00d9->0x0172 ; "Mail sender has transmited something."
0107 00fc | | .STRTAB 0x00fc->0x0185 ; "Disconnected."
0108 0107 | | .STRTAB 0x0107->0x018b ; "going out of send_mail with status = "
0109 012a | * | .STREND 0x012a->0x019e
010a 4d61 696c |Mail| .STRTAB_STRINGS
019e 0000 0000 | | .XXX[0x2]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; Debug Table
01a0 ; --------------------------------------------------------------------------------------
01a0 0004 000a | | .DEBUG4 0x0004,0x000a,0x7ac0,0x0000,0x0001,0x0005
01a6 000b 01ba | | .DBG4T 0x000b,0x01ba,0xc000,0x0000
01aa 0012 01bf | | .DBG4T 0x0012,0x01bf,0xc000,0x0000
01ae 0023 01c4 | # | .DBG4T 0x0023,0x01c4,0x1001,0x4000
01b2 006b 01d7 | k | .DBG4T 0x006b,0x01d7,0x1001,0x4000
01b6 00fb 0214 | | .DBG4T 0x00fb,0x0214,0x1001,0x0000
01ba ; --------------------------------------------------------------------------------------
01ba ; Debug chain
01ba ; --------------------------------------------------------------------------------------
01ba 0003 0000 | | .DBGLEN 0x0003,0x0000
01bc 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f
01bf ; --------------------------------------------------------------------------------------
01bf ; Debug chain
01bf ; --------------------------------------------------------------------------------------
01bf 0003 0000 | | .DBGLEN 0x0003,0x0000
01c1 0012 0014 | | .DBGLNO 0x0012,0x0014,0x0016
01c4 ; --------------------------------------------------------------------------------------
01c4 ; Debug chain
01c4 ; --------------------------------------------------------------------------------------
01c4 0001 0008 | | .DBGLEN 0x0001,0x0008
01c6 0023 0025 | # %| .DBGLNO 0x0023,0x0025,0x0029,0x002f,0x0040,0x0048,0x0058,0x005d,0x0062
01cf 0001 0002 | | .XXX[0x8]
01d1 0004 0003 | |
01d3 0006 0005 | |
01d5 0007 0008 | |
01d7 ; --------------------------------------------------------------------------------------
01d7 ; Debug chain
01d7 ; --------------------------------------------------------------------------------------
01d7 0005 001b | | .DBGLEN 0x0005,0x001b
01d9 006b 006d | k m| .DBGLNO 0x006b,0x006d,0x006f,0x0070,0x0072,0x0077,0x0080,0x0083,0x0085,0x0088,0x008c,0x008f,0x0091,0x0095,0x0098,0x009b,0x00a3,0x00a5,0x00a9,0x00ab,0x00b0,0x00b2,0x00b6,0x00ba,0x00c5,0x00cd,0x00cf,0x00d4,0x00d6,0x00da,0x00dd,0x00e1
01f9 0002 0003 | | .XXX[0x1b]
01fb 0004 0005 | |
01fd 0006 0007 | |
01ff 0008 0009 | |
0201 000a 0001 | |
0203 000b 000c | |
0205 000d 000e | |
0207 000f 0010 | |
0209 0011 0012 | |
020b 0013 0014 | |
020d 0015 0016 | |
020f 0017 0018 | |
0211 0019 001a | |
0213 001b | |
0214 ; --------------------------------------------------------------------------------------
0214 ; Debug chain
0214 ; --------------------------------------------------------------------------------------
0214 0000 0001 | | .DBGLEN 0x0000,0x0001
0216 00fb | | .DBGLNO 0x00fb
0217 0000 0000 | | .BLANK 0000[0x1e9]