|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03c8f4
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0120 | | .CONST 0x0120 ; 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 ; SUBPROGRAM
0008 ; See instruction 0x02cf at 0xd5, index=0x0
0008 ; --------------------------------------------------------------------------------------
0008 005e | ^ | .CONST 0x005e ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001e | | .CONST 0x001e ; Number of locals
000b INIT_0008:
000b INIT_0008:
000b 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated
000d 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated
000f 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated
0011 0093 0000 | | push_full_address 0x0
0013 608c |` | Indirect_Literal Discrete,0xa0,{0x80000000, 0x00010000}
0014 0273 | s | Execute Discrete,Plus
0015 e20d | | Load 0x1,0xd
0016 6085 |` | Indirect_Literal Discrete,0x9c,{0x00000000, 0x0000ffff}
0017 0279 | y | Execute Discrete,And
0018 0273 | s | Execute Discrete,Plus
0019 0129 | ) | Execute Any,Make_Visible
001a 00bf | | Action Accept_Activation
001b e20f | | Load 0x1,0xf
001c e002 | | Load 0x0,0x2
001d 1c07 | | Execute_Immediate Run_Utility,0x7
001e 4800 |H | Short_Literal 0x0
001f 48ff |H | Short_Literal 0xff
0020 e003 | | Load 0x0,0x3
0021 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0022 03f8 | | Declare_Type Discrete,Constrained
0023 0093 0000 | | push_full_address 0x0
0025 6072 |`r | Indirect_Literal Discrete,0x98,{0x80000000, 0x00010000}
0026 0273 | s | Execute Discrete,Plus
0027 e20d | | Load 0x1,0xd
0028 6073 |`s | Indirect_Literal Discrete,0x9c,{0x00000000, 0x0000ffff}
0029 0279 | y | Execute Discrete,And
002a 0273 | s | Execute Discrete,Plus
002b e004 | | Load 0x0,0x4
002c 0273 | s | Execute Discrete,Plus
002d 00da | | Load_Top At_Offset_2
002e 1d10 | | Execute_Immediate Reference_Lex_1,0x10
002f e005 | | Load 0x0,0x5
0030 0387 | | Declare_Variable Package
0031 00d8 | | Load_Top At_Offset_0
0032 020f | | Execute Module,Activate
0033 e006 | | Load 0x0,0x6
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 e007 | | Load 0x0,0x7
0039 1b19 | | Execute Package,Field_Read,Field_Number 0x19
003a 4801 |H | Short_Literal 0x1
003b 4806 |H | Short_Literal 0x6
003c 00e9 | | Load_Encached String_Cache
003d 0334 | 4 | Declare_Variable Array,With_Constraint
003e 5065 |Pe | Indirect_Literal Any,0xa4,{0x5443502f, 0x49502020}
003f 00e1 | | Load_Encached Boolean_Cache
0040 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0041 6052 |`R | Indirect_Literal Discrete,0x94,{0x00000000, 0x00008000}
0042 00e7 | | Load_Encached Duration_Cache
0043 03f1 | | Declare_Variable Discrete,With_Value
0044 029d 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call
0046 4800 |H | Short_Literal 0x0
0047 0093 00cb | | push_full_address INIT_00c8
0049 00f5 | | Load_Encached Unused21
004a 037d | } | Declare_Type Task,Defined
004b 036f | o | Declare_Variable Task
004c e20f | | Load 0x1,0xf
004d e003 | | Load 0x0,0x3
004e e007 | | Load 0x0,0x7
004f 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0050 e006 | | Load 0x0,0x6
0051 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0052 a008 | | Store_Unchecked 0x0,0x8
0053 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0054 4808 |H | Short_Literal 0x8
0055 e21e | | Load 0x1,0x1e
0056 020e | | Execute Module,Augment_Imports
0057 0007 | | Action Break_Optional
0058 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0059 00c7 | | Action Elaborate_Subprogram
005a 1d13 | | Execute_Immediate Reference_Lex_1,0x13
005b 00c7 | | Action Elaborate_Subprogram
005c 1d12 | | Execute_Immediate Reference_Lex_1,0x12
005d 00c7 | | Action Elaborate_Subprogram
005e BODY_0008:
005e BODY_0008:
005e 00be | | Action Activate_Tasks
005f 00bc | | Action Signal_Activated
0060 00bb | | Action Signal_Completion
0061 0000 0000 | | .BLANK 0000[0x7]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b | k | .CONST 0x006b ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0001 | | .CONST 0x0001 ; Number of locals
006b BODY_0068:
006b INIT_0068:
006b e21b | | Load 0x1,0x1b
006c 7023 |p# | Jump_Nonzero 0x90
006d 4801 |H | Short_Literal 0x1
006e a21b | | Store_Unchecked 0x1,0x1b
006f e007 | | Load 0x0,0x7
0070 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0071 e218 | | Load 0x1,0x18
0072 0120 | | Execute Any,Is_Value
0073 6803 |h | Jump_Zero 0x77
0074 e006 | | Load 0x0,0x6
0075 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0076 7801 |x | Jump 0x78
0077 e218 | | Load 0x1,0x18
0078 e20e | | Load 0x1,0xe
0079 8009 | | Call 0x0,0x9
007a e21a | | Load 0x1,0x1a
007b e006 | | Load 0x0,0x6
007c 181a | | Execute Package,Field_Execute,Field_Number 0x1a
007d c218 | | Store 0x1,0x18
007e c219 | | Store 0x1,0x19
007f e218 | | Load 0x1,0x18
0080 e006 | | Load 0x0,0x6
0081 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0082 700a |p | Jump_Nonzero 0x8d
0083 0092 0108 | | Action Push_String_Extended,0x108 ; "Orb_In Socket Open Error : Status > "
0085 e219 | | Load 0x1,0x19
0086 e007 | | Load 0x0,0x7
0087 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0088 01cc | | Execute Vector,Catenate
0089 e00a | | Load 0x0,0xa
008a 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
008b e214 | | Load 0x1,0x14
008c 0257 | W | Execute Discrete,Raise
008d 4800 |H | Short_Literal 0x0
008e e21e | | Load 0x1,0x1e
008f 170d | | Execute Task,Entry_Call,Field_Number 0xd
0090 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0091 0000 0000 | | .XXX[0x3]
0093 0000 | |
0094 0000 0000 | | .LITERAL {0x00000000, 0x00008000}
0098 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
009c 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
00a0 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
00a4 5443 502f |TCP/| .LITERAL {0x5443502f, 0x49502020}
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab | | .CONST 0x00ab ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0001 | | .CONST 0x0001 ; Number of locals
00ab BODY_00a8:
00ab INIT_00a8:
00ab e00b | | Load 0x0,0xb
00ac e217 | | Load 0x1,0x17
00ad 0096 | | Execute Package,Entry
00ae 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00af 0000 | | .XXX[0x1]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3 | | .CONST 0x00b3 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0001 | | .CONST 0x0001 ; Number of locals
00b3 BODY_00b0:
00b3 INIT_00b0:
00b3 e21e | | Load 0x1,0x1e
00b4 0209 | | Execute Task,Abort
00b5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00b6 0000 0000 | | .XXX[0x2]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bf | | .CONST 0x00bf ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0002 | | .CONST 0x0002 ; Number of locals
00bb INIT_00b8:
00bb e215 | | Load 0x1,0x15
00bc 02ff | | Declare_Variable Variant_Record
00bd 00d8 | | Load_Top At_Offset_0
00be 1c00 | | Execute_Immediate Run_Utility,0x0
00bf BODY_00b8:
00bf 00d8 | | Load_Top At_Offset_0
00c0 e5ff | | Load 0x2,-0x1
00c1 800c | | Call 0x0,0xc
00c2 00d1 | | Pop_Control Pop_Count_1
00c3 00d8 | | Load_Top At_Offset_0
00c4 e00d | | Load 0x0,0xd
00c5 e217 | | Load 0x1,0x17
00c6 0096 | | Execute Package,Entry
00c7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00dd | | .CONST 0x00dd ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0010 | | .CONST 0x0010 ; Number of locals
00cb INIT_00c8:
00cb 4800 |H | Short_Literal 0x0
00cc 02cb | | Declare_Variable Entry
00cd 00bf | | Action Accept_Activation
00ce 4801 |H | Short_Literal 0x1
00cf e001 | | Load 0x0,0x1
00d0 e002 | | Load 0x0,0x2
00d1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00d2 035b | [ | Declare_Type Array,Constrained
00d3 0337 | 7 | Declare_Variable Array
00d4 00e3 | | Load_Encached Natural_Cache
00d5 480d 4820 |H H | Declare_Variable Select 0x000, 0x001,
00d7 4800 4801 |H H | [0x000]: 0x001 = 0x0008,
00d9 4800 4801 |H H | [0x00d]: 0x020 = 0x0100
00db 02cf | |
00dc 00bc | | Action Signal_Activated
00dd BODY_00c8:
00dd 00d8 | | Load_Top At_Offset_0
00de 013f | ? | Execute Select,Rendezvous
00df 00d1 | | Pop_Control Pop_Count_1
00e0 00cf | | Action Mark_Auxiliary
00e1 e003 | | Load 0x0,0x3
00e2 1b19 | | Execute Package,Field_Read,Field_Number 0x19
00e3 6020 |` | Indirect_Literal Discrete,0x104,{0x00007fff, 0xffffffff}
00e4 e004 | | Load 0x0,0x4
00e5 e005 | | Load 0x0,0x5
00e6 181d | | Execute Package,Field_Execute,Field_Number 0x1d
00e7 c006 | | Store 0x0,0x6
00e8 00e3 | | Load_Encached Natural_Cache
00e9 e20e | | Load 0x1,0xe
00ea e003 | | Load 0x0,0x3
00eb 1b19 | | Execute Package,Field_Read,Field_Number 0x19
00ec 6017 |` | Indirect_Literal Discrete,0x104,{0x00007fff, 0xffffffff}
00ed e004 | | Load 0x0,0x4
00ee e005 | | Load 0x0,0x5
00ef 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
00f0 c006 | | Store 0x0,0x6
00f1 00d1 | | Pop_Control Pop_Count_1
00f2 005b | [ | Store_Top Discrete,At_Offset_3
00f3 4801 |H | Short_Literal 0x1
00f4 00db | | Load_Top At_Offset_3
00f5 e20e | | Load 0x1,0xe
00f6 01cf | | Execute Vector,Slice_Read
00f7 8007 | | Call 0x0,0x7
00f8 8008 | | Call 0x0,0x8
00f9 e004 | | Load 0x0,0x4
00fa e005 | | Load 0x0,0x5
00fb 181e | | Execute Package,Field_Execute,Field_Number 0x1e
00fc 00c9 | | Action Pop_Auxiliary_Loop
00fd 7fe3 | | Jump 0xe1
00fe 0000 0000 | | .XXX[0x2]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; See instruction 0x02cf at 0xd5, index=0xd
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 4100 |A | End_Rendezvous 0x0
0104 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
0108 ; --------------------------------------------------------------------------------------
0108 ; STRING TABLE
0108 ; --------------------------------------------------------------------------------------
0108 0004 | | .STRTAB 0x0004->0x010a ; "Orb_In Socket Open Error : Status > "
0109 0026 | & | .STREND 0x0026->0x011c
010a 4f72 625f |Orb_| .STRTAB_STRINGS
011c 0000 0000 | | .BLANK 0000[0x4]
0120 ; --------------------------------------------------------------------------------------
0120 ; Debug Table
0120 ; --------------------------------------------------------------------------------------
0120 0004 0002 | | .DEBUG4 0x0004,0x0002,0xd1a4,0x0000,0x0001,0x0000
0126 0080 0000 | | .XXX[0x12]
0128 03a1 96d9 | |
012a 8a16 0001 | |
012c 87d9 8000 | |
012e 0000 0000 | |
0130 0000 0004 | |
0132 0000 0000 | |
0134 0000 0003 | |
0136 ffff fffc | |
0138 0000 0000 | | .BLANK 0000[0x5]
013d 0008 0000 | | .XXX[0xa]
013f 0050 0000 | P |
0141 00c2 8000 | |
0143 0000 0000 | |
0145 0000 3000 | 0 |
0147 0000 0000 | | .BLANK 0000[0x4]
014b 8000 0000 | | .XXX[0x7]
014d 0000 0000 | |
014f 7fff ffff | |
0151 8000 | |
0152 0000 0000 | | .BLANK 0000[0x4]
0156 0001 0000 | | .XXX[0xa]
0158 0016 0000 | |
015a 0006 865b | [|
015c 6628 5800 |f(X |
015e 0623 1e00 | # |
0160 0000 0000 | | .BLANK 0000[0x4]
0164 1000 0000 | | .XXX[0x7]
0166 0000 0000 | |
0168 0fff ffff | |
016a f000 | |
016b 0000 0000 | | .BLANK 0000[0x5]
0170 2000 0003 | | .XXX[0x9]
0172 4000 0003 |@ |
0174 8a00 0000 | |
0176 0000 0000 | |
0178 00c0 | |
0179 0000 0000 | | .BLANK 0000[0x4]
017d 0200 0000 | | .XXX[0x7]
017f 0000 0000 | |
0181 01ff ffff | |
0183 fe00 | |
0184 0000 0000 | | .BLANK 0000[0x5]
0189 0400 0000 | | .XXX[0x9]
018b a000 0000 | |
018d 1a19 6d98 | m |
018f a160 0018 | ` |
0191 9b58 | X |
0192 0000 0000 | | .BLANK 0000[0x4]
0196 0040 0000 | @ | .XXX[0x7]
0198 0000 0000 | |
019a 003f ffff | ? |
019c ffc0 | |
019d 0000 0000 | | .BLANK 0000[0x5]
01a2 0080 0000 | | .XXX[0x14]
01a4 1500 0000 | |
01a6 0cac 0000 | |
01a8 0000 0000 | |
01aa 0003 0002 | |
01ac 0000 0000 | |
01ae 0000 0008 | |
01b0 0000 0000 | |
01b2 0000 0007 | |
01b4 ffff fff8 | |
01b6 0000 0000 | | .BLANK 0000[0x5]
01bb 0010 0000 | | .XXX[0x5]
01bd 0360 0000 | ` |
01bf 0040 | @ |
01c0 0000 0000 | | .BLANK 0000[0x40]