|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0368ff
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0148 | H | .CONST 0x0148 ; 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 8000 | | .CONST 0x8000 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0010 | | .CONST 0x0010 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0001 | | .CONST 0x0001 ; Number of locals
000b INIT_0008:
000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 00bf | | Action Accept_Activation
000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
000f 00c7 | | Action Elaborate_Subprogram
0010 BODY_0008:
0010 00bc | | Action Signal_Activated
0011 00bb | | Action Signal_Completion
0012 0000 0000 | | .BLANK 0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 004c | L | .CONST 0x004c ; Address of begin
0019 00ae | | .CONST 0x00ae ; Address of exception handler
001a 0006 | | .CONST 0x0006 ; Number of locals
001b INIT_0018:
001b 0092 0100 | | Action Push_String_Extended,0x100 ; "Arch_Loopback;"
001d 00db | | Load_Top At_Offset_3
001e 00e0 | | Load_Encached Standard_Cache
001f 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0020 01cc | | Execute Vector,Catenate
0021 0092 0101 | | Action Push_String_Extended,0x101 ; " passes,"
0023 01cc | | Execute Vector,Catenate
0024 e5fe | | Load 0x2,-0x2
0025 00e0 | | Load_Encached Standard_Cache
0026 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0027 01cc | | Execute Vector,Catenate
0028 0092 0102 | | Action Push_String_Extended,0x102 ; " bytes,"
002a 01cc | | Execute Vector,Catenate
002b e5fd | | Load 0x2,-0x3
002c 00e0 | | Load_Encached Standard_Cache
002d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
002e 01cc | | Execute Vector,Catenate
002f 0092 0103 | | Action Push_String_Extended,0x103 ; " tasks;"
0031 01cc | | Execute Vector,Catenate
0032 0007 | | Action Break_Optional
0033 e001 | | Load 0x0,0x1
0034 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0035 02c7 | | Declare_Variable Any
0036 00d8 | | Load_Top At_Offset_0
0037 1c00 | | Execute_Immediate Run_Utility,0x0
0038 4801 |H | Short_Literal 0x1
0039 4806 |H | Short_Literal 0x6
003a 00e9 | | Load_Encached String_Cache
003b 0334 | 4 | Declare_Variable Array,With_Constraint
003c 508b |P | Indirect_Literal Any,0xc8,{0x5443502f, 0x49502020}
003d 00d8 | | Load_Top At_Offset_0
003e e002 | | Load 0x0,0x2
003f 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0040 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0041 4800 |H | Short_Literal 0x0
0042 0093 00d3 | | push_full_address INIT_00d0
0044 00f5 | | Load_Encached Unused21
0045 037d | } | Declare_Type Task,Defined
0046 036f | o | Declare_Variable Task
0047 00d9 | | Load_Top At_Offset_1
0048 e003 | | Load 0x0,0x3
0049 4802 |H | Short_Literal 0x2
004a 00db | | Load_Top At_Offset_3
004b 020e | | Execute Module,Augment_Imports
004c BODY_0018:
004c 00be | | Action Activate_Tasks
004d 00db | | Load_Top At_Offset_3
004e 0120 | | Execute Any,Is_Value
004f 6803 |h | Jump_Zero 0x53
0050 e001 | | Load 0x0,0x1
0051 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0052 7801 |x | Jump 0x54
0053 00db | | Load_Top At_Offset_3
0054 e5fc | | Load 0x2,-0x4
0055 e402 | | Load 0x2,0x2
0056 e002 | | Load 0x0,0x2
0057 180e | | Execute Package,Field_Execute,Field_Number 0xe
0058 c403 | | Store 0x2,0x3
0059 00da | | Load_Top At_Offset_2
005a e002 | | Load 0x0,0x2
005b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
005c 7005 |p | Jump_Nonzero 0x62
005d e5fb | | Load 0x2,-0x5
005e 0092 0104 | | Action Push_String_Extended,0x104 ; "!Machine.Tcp_Ip_Host_Id"
0060 e002 | | Load 0x0,0x2
0061 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0062 4800 |H | Short_Literal 0x0
0063 00d9 | | Load_Top At_Offset_1
0064 170d | | Execute Task,Entry_Call,Field_Number 0xd
0065 605e |`^ | Indirect_Literal Discrete,0xc4,{0x00000000, 0x00008000}
0066 00ba | | Action Initiate_Delay
0067 00cf | | Action Mark_Auxiliary
0068 e5ff | | Load 0x2,-0x1
0069 4801 |H | Short_Literal 0x1
006a 0263 | c | Execute Discrete,Above_Bound
006b 7035 |p5 | Jump_Nonzero 0xa1
006c 4800 |H | Short_Literal 0x0
006d 4800 |H | Short_Literal 0x0
006e e405 | | Load 0x2,0x5
006f 4801 |H | Short_Literal 0x1
0070 4806 |H | Short_Literal 0x6
0071 00e9 | | Load_Encached String_Cache
0072 0334 | 4 | Declare_Variable Array,With_Constraint
0073 5058 |PX | Indirect_Literal Any,0xcc,{0x5443502f, 0x49502020}
0074 e5fd | | Load 0x2,-0x3
0075 e5fe | | Load 0x2,-0x2
0076 4800 |H | Short_Literal 0x0
0077 4803 |H | Short_Literal 0x3
0078 e004 | | Load 0x0,0x4
0079 1b12 | | Execute Package,Field_Read,Field_Number 0x12
007a 0334 | 4 | Declare_Variable Array,With_Constraint
007b 487f |H | Short_Literal 0x7f
007c 4800 |H | Short_Literal 0x0
007d 00da | | Load_Top At_Offset_2
007e 01d6 | | Execute Vector,Field_Write
007f 4800 |H | Short_Literal 0x0
0080 4801 |H | Short_Literal 0x1
0081 00da | | Load_Top At_Offset_2
0082 01d6 | | Execute Vector,Field_Write
0083 4800 |H | Short_Literal 0x0
0084 4802 |H | Short_Literal 0x2
0085 00da | | Load_Top At_Offset_2
0086 01d6 | | Execute Vector,Field_Write
0087 4800 |H | Short_Literal 0x0
0088 4803 |H | Short_Literal 0x3
0089 00da | | Load_Top At_Offset_2
008a 01d6 | | Execute Vector,Field_Write
008b e003 | | Load 0x0,0x3
008c 180f | | Execute Package,Field_Execute,Field_Number 0xf
008d 4800 |H | Short_Literal 0x0
008e 4801 |H | Short_Literal 0x1
008f 4803 |H | Short_Literal 0x3
0090 e005 | | Load 0x0,0x5
0091 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0092 e005 | | Load 0x0,0x5
0093 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0094 0092 0105 | | Action Push_String_Extended,0x105 ; " --- Arch_Loopback completed pass"
0096 01cc | | Execute Vector,Catenate
0097 00d9 | | Load_Top At_Offset_1
0098 00e0 | | Load_Encached Standard_Cache
0099 1818 | | Execute Package,Field_Execute,Field_Number 0x18
009a 01cc | | Execute Vector,Catenate
009b e006 | | Load 0x0,0x6
009c 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
009d e006 | | Load 0x0,0x6
009e 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
009f 00c8 | | Action Pop_Auxiliary_Range
00a0 3fcb |? | Loop_Increasing 0x6c
00a1 00ce | | Action Pop_Auxiliary
00a2 e5fd | | Load 0x2,-0x3
00a3 090f | | Execute_Immediate Binary_Scale,0xf
00a4 00ba | | Action Initiate_Delay
00a5 00d8 | | Load_Top At_Offset_0
00a6 0209 | | Execute Task,Abort
00a7 0007 | | Action Break_Optional
00a8 4802 |H | Short_Literal 0x2
00a9 e403 | | Load 0x2,0x3
00aa e402 | | Load 0x2,0x2
00ab e002 | | Load 0x0,0x2
00ac 180f | | Execute Package,Field_Execute,Field_Number 0xf
00ad 4506 |E | Exit_Suprogram New_Top_Offset 0x6
00ae TRAP_0018:
00ae 0007 | | Action Break_Optional
00af e001 | | Load 0x0,0x1
00b0 180e | | Execute Package,Field_Execute,Field_Number 0xe
00b1 4808 |H | Short_Literal 0x8
00b2 0092 0106 | | Action Push_String_Extended,0x106 ; "Arch_Loopback caught "
00b4 4800 |H | Short_Literal 0x0
00b5 4801 |H | Short_Literal 0x1
00b6 e007 | | Load 0x0,0x7
00b7 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00b8 01cc | | Execute Vector,Catenate
00b9 e002 | | Load 0x0,0x2
00ba 180d | | Execute Package,Field_Execute,Field_Number 0xd
00bb 4808 |H | Short_Literal 0x8
00bc e403 | | Load 0x2,0x3
00bd e402 | | Load 0x2,0x2
00be e002 | | Load 0x0,0x2
00bf 180f | | Execute Package,Field_Execute,Field_Number 0xf
00c0 00d8 | | Load_Top At_Offset_0
00c1 0101 | | Execute Exception,Reraise
00c2 0000 0000 | | .XXX[0x2]
00c4 0000 0000 | | .LITERAL {0x00000000, 0x00008000}
00c8 5443 502f |TCP/| .LITERAL {0x5443502f, 0x49502020}
00cc 5443 502f |TCP/| .LITERAL {0x5443502f, 0x49502020}
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00da | | .CONST 0x00da ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 000e | | .CONST 0x000e ; Number of locals
00d3 INIT_00d0:
00d3 4800 |H | Short_Literal 0x0
00d4 02cb | | Declare_Variable Entry
00d5 00bf | | Action Accept_Activation
00d6 480d |H | Short_Literal 0xd
00d7 0299 00f3 | | Declare_Subprogram INIT_00f0,For_Accept
00d9 00bc | | Action Signal_Activated
00da BODY_00d0:
00da 1d0e | | Execute_Immediate Reference_Lex_1,0xe
00db 1d0d | | Execute_Immediate Reference_Lex_1,0xd
00dc 0137 | 7 | Execute Entry,Rendezvous
00dd 601a |` | Indirect_Literal Discrete,0xf8,{0x00000000, 0x00000ccd}
00de 4800 |H | Short_Literal 0x0
00df e001 | | Load 0x0,0x1
00e0 4800 |H | Short_Literal 0x0
00e1 4800 |H | Short_Literal 0x0
00e2 4801 |H | Short_Literal 0x1
00e3 6010 |` | Indirect_Literal Discrete,0xf4,{0x00000000, 0x7fffffff}
00e4 600f |` | Indirect_Literal Discrete,0xf4,{0x00000000, 0x7fffffff}
00e5 4801 |H | Short_Literal 0x1
00e6 4806 |H | Short_Literal 0x6
00e7 00e9 | | Load_Encached String_Cache
00e8 0334 | 4 | Declare_Variable Array,With_Constraint
00e9 5012 |P | Indirect_Literal Any,0xfc,{0x5443502f, 0x49502020}
00ea e002 | | Load 0x0,0x2
00eb 180d | | Execute Package,Field_Execute,Field_Number 0xd
00ec 00bb | | Action Signal_Completion
00ed 0000 0000 | | .XXX[0x3]
00ef 0000 | |
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3 | | .CONST 0x00f3 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0001 | | .CONST 0x0001 ; Number of locals
00f3 BODY_00f0:
00f3 INIT_00f0:
00f3 4100 |A | End_Rendezvous 0x0
00f4 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
00f8 0000 0000 | | .LITERAL {0x00000000, 0x00000ccd}
00fc 5443 502f |TCP/| .LITERAL {0x5443502f, 0x49502020}
0100 ; --------------------------------------------------------------------------------------
0100 ; STRING TABLE
0100 ; --------------------------------------------------------------------------------------
0100 0010 | | .STRTAB 0x0010->0x0108 ; "Arch_Loopback;"
0101 001c | | .STRTAB 0x001c->0x010f ; " passes,"
0102 0022 | " | .STRTAB 0x0022->0x0113 ; " bytes,"
0103 0027 | ' | .STRTAB 0x0027->0x0116 ; " tasks;"
0104 002c | , | .STRTAB 0x002c->0x011a ; "!Machine.Tcp_Ip_Host_Id"
0105 0041 | A | .STRTAB 0x0041->0x0125 ; " --- Arch_Loopback completed pass"
0106 0060 | ` | .STRTAB 0x0060->0x0136 ; "Arch_Loopback caught "
0107 0073 | s | .STREND 0x0073->0x0140
0108 4172 6368 |Arch| .STRTAB_STRINGS
0141 0000 0000 | | .BLANK 0000[0x7]
0148 ; --------------------------------------------------------------------------------------
0148 ; Debug Table
0148 ; --------------------------------------------------------------------------------------
0148 0004 000d | | .DEBUG4 0x0004,0x000d,0x0c5b,0x0000,0x0001,0x0000
014e 180d 4501 | E | .XXX[0xb2]
0150 00d9 0a03 | |
0152 e405 01d7 | |
0154 00da 0a04 | |
0156 e405 01d7 | |
0158 0908 0273 | s|
015a 0059 00d8 | Y |
015c 0b01 700e | p |
015e 0f02 700e | p |
0160 e006 180e | |
0162 4806 0092 |H |
0164 025d 00db | ] |
0166 00e0 1818 | |
0168 01cc e007 | |
016a 180d 4501 | E |
016c 00d1 4501 | E |
016e e004 1b19 | |
0170 605b e5fe |`[ |
0172 e602 0a05 | |
0174 00d8 00e2 | |
0176 0260 7001 | `p |
0178 0801 e602 | |
017a 0a0a 00d8 | |
017c 00e2 0260 | `|
017e 7001 0801 |p |
0180 e405 01cf | |
0182 e403 e003 | |
0184 181c c404 | |
0186 4806 0092 |H |
0188 025e e404 | ^ |
018a e007 1816 | |
018c e405 4801 | H |
018e 4802 00da |H |
0190 035b 00d9 | [ |
0192 01cd 4801 | H |
0194 4802 e001 |H |
0196 1b12 0334 | 4|
0198 e602 0a08 | |
019a 48ff 0279 |H y|
019c 00d8 e001 | |
019e 1b11 0260 | `|
01a0 7001 0801 |p |
01a2 4801 00da |H |
01a4 01d6 e602 | |
01a6 0a08 09f8 | |
01a8 00d8 e001 | |
01aa 1b11 0260 | `|
01ac 7001 0801 |p |
01ae 4802 00da |H |
01b0 01d6 00cd | |
01b2 4801 4802 |H H |
01b4 00db 01ce | |
01b6 00d1 00e3 | |
01b8 e004 1b19 | |
01ba 4800 6010 |H ` |
01bc 4801 e406 |H |
01be e405 01cf | |
01c0 e403 e003 | |
01c2 1826 c404 | & |
01c4 c406 4806 | H |
01c6 0092 025f | _|
01c8 e404 e007 | |
01ca 1816 4501 | E |
01cc 0000 7fff | |
01ce ffff ffff | |
01d0 01d3 0240 | @|
01d2 0001 e004 | |
01d4 1b19 e403 | |
01d6 0120 6803 | h |
01d8 e003 1b0d | |
01da 7801 e403 |x |
01dc e5fe e5ff | |
01de e003 181a | |
01e0 c403 c404 | |
01e2 e404 0b0c | |
01e4 700a 0b10 |p |
01e6 7008 480e |p H |
01e8 480f 0262 |H b|
01ea 7001 7811 |p x |
01ec 6067 00ba |`g |
01ee 780e 00d1 |x |
01f0 e006 180e | |
01f2 4805 0092 |H |
01f4 0260 e404 | ` |
01f6 e004 181a | |
01f8 01cc e007 | |
01fa 180d 00cc | |
01fc 4503 4806 |E H |
01fe 0092 0261 | a|