|
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_1520ee
└─⟦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 0140 | @ | .CONST 0x0140 ; 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 0000 | | .CONST 0x0000 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 004e | N | .CONST 0x004e ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 000a | | .CONST 0x000a ; Number of locals
000b INIT_0008:
000b e002 | | Load 0x0,0x2
000c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
000d 02c7 | | Declare_Variable Any
000e 00d8 | | Load_Top At_Offset_0
000f 1c00 | | Execute_Immediate Run_Utility,0x0
0010 e003 | | Load 0x0,0x3
0011 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0012 4801 |H | Short_Literal 0x1
0013 4806 |H | Short_Literal 0x6
0014 00e9 | | Load_Encached String_Cache
0015 0334 | 4 | Declare_Variable Array,With_Constraint
0016 505d |P] | Indirect_Literal Any,0x74,{0x5443502f, 0x49502020}
0017 4800 |H | Short_Literal 0x0
0018 4801 |H | Short_Literal 0x1
0019 e004 | | Load 0x0,0x4
001a 1b12 | | Execute Package,Field_Read,Field_Number 0x12
001b 035b | [ | Declare_Type Array,Constrained
001c 0337 | 7 | Declare_Variable Array
001d e5fa | | Load 0x2,-0x6
001e 09f8 | | Execute_Immediate Binary_Scale,-0x8
001f 00d8 | | Load_Top At_Offset_0
0020 e004 | | Load 0x0,0x4
0021 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0022 0260 | ` | Execute Discrete,In_Type
0023 7001 |p | Jump_Nonzero 0x25
0024 0801 | | Execute_Immediate Raise,0x1
0025 4800 |H | Short_Literal 0x0
0026 00da | | Load_Top At_Offset_2
0027 01d6 | | Execute Vector,Field_Write
0028 e5fa | | Load 0x2,-0x6
0029 48ff |H | Short_Literal 0xff
002a 0279 | y | Execute Discrete,And
002b 00d8 | | Load_Top At_Offset_0
002c e004 | | Load 0x0,0x4
002d 1b11 | | Execute Package,Field_Read,Field_Number 0x11
002e 0260 | ` | Execute Discrete,In_Type
002f 7001 |p | Jump_Nonzero 0x31
0030 0801 | | Execute_Immediate Raise,0x1
0031 4801 |H | Short_Literal 0x1
0032 00da | | Load_Top At_Offset_2
0033 01d6 | | Execute Vector,Field_Write
0034 00e4 | | Load_Encached Positive_Cache
0035 029f 007b | {| Declare_Subprogram INIT_0078,For_Call
0037 4800 |H | Short_Literal 0x0
0038 0093 011b | | push_full_address INIT_0118
003a 00f5 | | Load_Encached Unused21
003b 037d | } | Declare_Type Task,Defined
003c 036f | o | Declare_Variable Task
003d 4802 |H | Short_Literal 0x2
003e 4802 |H | Short_Literal 0x2
003f 0099 | | Action Reference_Dynamic
0040 e002 | | Load 0x0,0x2
0041 a005 | | Store_Unchecked 0x0,0x5
0042 e20d | | Load 0x1,0xd
0043 e006 | | Load 0x0,0x6
0044 4ffb |O | Short_Literal -0x5
0045 4802 |H | Short_Literal 0x2
0046 0099 | | Action Reference_Dynamic
0047 4806 |H | Short_Literal 0x6
0048 e408 | | Load 0x2,0x8
0049 020e | | Execute Module,Augment_Imports
004a 029f 0083 | | Declare_Subprogram INIT_0080,For_Call
004c 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call
004e BODY_0008:
004e 00be | | Action Activate_Tasks
004f e003 | | Load 0x0,0x3
0050 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0051 e402 | | Load 0x2,0x2
0052 0120 | | Execute Any,Is_Value
0053 6803 |h | Jump_Zero 0x57
0054 e002 | | Load 0x0,0x2
0055 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0056 7801 |x | Jump 0x58
0057 e402 | | Load 0x2,0x2
0058 e405 | | Load 0x2,0x5
0059 e404 | | Load 0x2,0x4
005a e002 | | Load 0x0,0x2
005b 181a | | Execute Package,Field_Execute,Field_Number 0x1a
005c c402 | | Store 0x2,0x2
005d c403 | | Store 0x2,0x3
005e e403 | | Load 0x2,0x3
005f 6803 |h | Jump_Zero 0x63
0060 8407 | | Call 0x2,0x7
0061 e20f | | Load 0x1,0xf
0062 0257 | W | Execute Discrete,Raise
0063 4800 |H | Short_Literal 0x0
0064 00db | | Load_Top At_Offset_3
0065 170d | | Execute Task,Entry_Call,Field_Number 0xd
0066 e5f8 | | Load 0x2,-0x8
0067 6805 |h | Jump_Zero 0x6d
0068 00cf | | Action Mark_Auxiliary
0069 8409 | | Call 0x2,0x9
006a 00c9 | | Action Pop_Auxiliary_Loop
006b 7ffd | | Jump 0x69
006c 00ce | | Action Pop_Auxiliary
006d 85fd | | Call 0x2,-0x3
006e 00cf | | Action Mark_Auxiliary
006f 840a | | Call 0x2,0xa
0070 00c9 | | Action Pop_Auxiliary_Loop
0071 7ffd | | Jump 0x6f
0072 0000 0000 | | .XXX[0x2]
0074 5443 502f |TCP/| .LITERAL {0x5443502f, 0x49502020}
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b | { | .CONST 0x007b ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0001 | | .CONST 0x0001 ; Number of locals
007b BODY_0078:
007b INIT_0078:
007b e402 | | Load 0x2,0x2
007c e002 | | Load 0x0,0x2
007d 181b | | Execute Package,Field_Execute,Field_Number 0x1b
007e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
007f 0000 | | .XXX[0x1]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0097 | | .CONST 0x0097 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0002 | | .CONST 0x0002 ; Number of locals
0083 INIT_0080:
0083 4801 |H | Short_Literal 0x1
0084 e5f9 | | Load 0x2,-0x7
0085 e007 | | Load 0x0,0x7
0086 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0087 035b | [ | Declare_Type Array,Constrained
0088 0337 | 7 | Declare_Variable Array
0089 00d8 | | Load_Top At_Offset_0
008a 0335 | 5 | Declare_Variable Array,Duplicate
008b 00cd | | Action Spare6_Action
008c 00d9 | | Load_Top At_Offset_1
008d 01d9 | | Execute Vector,Reverse_Bounds
008e 0263 | c | Execute Discrete,Above_Bound
008f 7005 |p | Jump_Nonzero 0x95
0090 4800 |H | Short_Literal 0x0
0091 00d9 | | Load_Top At_Offset_1
0092 e603 | | Load 0x3,0x3
0093 01d6 | | Execute Vector,Field_Write
0094 3ffb |? | Loop_Increasing 0x90
0095 00d9 | | Load_Top At_Offset_1
0096 01d4 | | Execute Vector,Structure_Write
0097 BODY_0080:
0097 e003 | | Load 0x0,0x3
0098 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0099 602e |`. | Indirect_Literal Discrete,0xc8,{0x00007fff, 0xffffffff}
009a e402 | | Load 0x2,0x2
009b e002 | | Load 0x0,0x2
009c 181d | | Execute Package,Field_Execute,Field_Number 0x1d
009d c403 | | Store 0x2,0x3
009e e403 | | Load 0x2,0x3
009f 6803 |h | Jump_Zero 0xa3
00a0 8407 | | Call 0x2,0x7
00a1 e20f | | Load 0x1,0xf
00a2 0257 | W | Execute Discrete,Raise
00a3 00e3 | | Load_Encached Natural_Cache
00a4 00d9 | | Load_Top At_Offset_1
00a5 e003 | | Load 0x0,0x3
00a6 1b19 | | Execute Package,Field_Read,Field_Number 0x19
00a7 6020 |` | Indirect_Literal Discrete,0xc8,{0x00007fff, 0xffffffff}
00a8 e402 | | Load 0x2,0x2
00a9 e002 | | Load 0x0,0x2
00aa 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
00ab c403 | | Store 0x2,0x3
00ac 00d1 | | Pop_Control Pop_Count_1
00ad c406 | | Store 0x2,0x6
00ae e403 | | Load 0x2,0x3
00af 6803 |h | Jump_Zero 0xb3
00b0 8407 | | Call 0x2,0x7
00b1 e20f | | Load 0x1,0xf
00b2 0257 | W | Execute Discrete,Raise
00b3 e402 | | Load 0x2,0x2
00b4 e002 | | Load 0x0,0x2
00b5 181e | | Execute Package,Field_Execute,Field_Number 0x1e
00b6 4801 |H | Short_Literal 0x1
00b7 e406 | | Load 0x2,0x6
00b8 00d8 | | Load_Top At_Offset_0
00b9 00e2 | | Load_Encached Integer_Cache
00ba 0260 | ` | Execute Discrete,In_Type
00bb 7001 |p | Jump_Nonzero 0xbd
00bc 0801 | | Execute_Immediate Raise,0x1
00bd 00da | | Load_Top At_Offset_2
00be 01cf | | Execute Vector,Slice_Read
00bf 8008 | | Call 0x0,0x8
00c0 85fc | | Call 0x2,-0x4
00c1 6802 |h | Jump_Zero 0xc4
00c2 00cc | | Action Pop_Block
00c3 7fa8 | | Jump 0x6c
00c4 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00c5 0000 0000 | | .XXX[0x3]
00c7 0000 | |
00c8 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
00cc 0000 0000 | | .BLANK 0000[0x4]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00e7 | | .CONST 0x00e7 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0002 | | .CONST 0x0002 ; Number of locals
00d3 INIT_00d0:
00d3 4801 |H | Short_Literal 0x1
00d4 e5f9 | | Load 0x2,-0x7
00d5 e007 | | Load 0x0,0x7
00d6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00d7 035b | [ | Declare_Type Array,Constrained
00d8 0337 | 7 | Declare_Variable Array
00d9 00d8 | | Load_Top At_Offset_0
00da 0335 | 5 | Declare_Variable Array,Duplicate
00db 00cd | | Action Spare6_Action
00dc 00d9 | | Load_Top At_Offset_1
00dd 01d9 | | Execute Vector,Reverse_Bounds
00de 0263 | c | Execute Discrete,Above_Bound
00df 7005 |p | Jump_Nonzero 0xe5
00e0 4800 |H | Short_Literal 0x0
00e1 00d9 | | Load_Top At_Offset_1
00e2 e603 | | Load 0x3,0x3
00e3 01d6 | | Execute Vector,Field_Write
00e4 3ffb |? | Loop_Increasing 0xe0
00e5 00d9 | | Load_Top At_Offset_1
00e6 01d4 | | Execute Vector,Structure_Write
00e7 BODY_00d0:
00e7 e003 | | Load 0x0,0x3
00e8 1b19 | | Execute Package,Field_Read,Field_Number 0x19
00e9 67de |g | Indirect_Literal Discrete,0xc8,{0x00007fff, 0xffffffff}
00ea e402 | | Load 0x2,0x2
00eb e002 | | Load 0x0,0x2
00ec 181d | | Execute Package,Field_Execute,Field_Number 0x1d
00ed c403 | | Store 0x2,0x3
00ee e403 | | Load 0x2,0x3
00ef 6803 |h | Jump_Zero 0xf3
00f0 8407 | | Call 0x2,0x7
00f1 e20f | | Load 0x1,0xf
00f2 0257 | W | Execute Discrete,Raise
00f3 00e3 | | Load_Encached Natural_Cache
00f4 00d9 | | Load_Top At_Offset_1
00f5 e003 | | Load 0x0,0x3
00f6 1b19 | | Execute Package,Field_Read,Field_Number 0x19
00f7 67d0 |g | Indirect_Literal Discrete,0xc8,{0x00007fff, 0xffffffff}
00f8 e402 | | Load 0x2,0x2
00f9 e002 | | Load 0x0,0x2
00fa 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
00fb c403 | | Store 0x2,0x3
00fc 00d1 | | Pop_Control Pop_Count_1
00fd c406 | | Store 0x2,0x6
00fe e403 | | Load 0x2,0x3
00ff 6803 |h | Jump_Zero 0x103
0100 8407 | | Call 0x2,0x7
0101 e20f | | Load 0x1,0xf
0102 0257 | W | Execute Discrete,Raise
0103 e402 | | Load 0x2,0x2
0104 e002 | | Load 0x0,0x2
0105 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0106 4801 |H | Short_Literal 0x1
0107 e406 | | Load 0x2,0x6
0108 00d8 | | Load_Top At_Offset_0
0109 00e2 | | Load_Encached Integer_Cache
010a 0260 | ` | Execute Discrete,In_Type
010b 7001 |p | Jump_Nonzero 0x10d
010c 0801 | | Execute_Immediate Raise,0x1
010d 00da | | Load_Top At_Offset_2
010e 01cf | | Execute Vector,Slice_Read
010f 8008 | | Call 0x0,0x8
0110 85fe | | Call 0x2,-0x2
0111 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0112 0000 0000 | | .BLANK 0000[0x6]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 0122 | " | .CONST 0x0122 ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 000e | | .CONST 0x000e ; Number of locals
011b INIT_0118:
011b 4800 |H | Short_Literal 0x0
011c 02cb | | Declare_Variable Entry
011d 00bf | | Action Accept_Activation
011e 480d |H | Short_Literal 0xd
011f 0299 013b | ;| Declare_Subprogram INIT_0138,For_Accept
0121 00bc | | Action Signal_Activated
0122 BODY_0118:
0122 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0123 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0124 0137 | 7 | Execute Entry,Rendezvous
0125 e001 | | Load 0x0,0x1
0126 e002 | | Load 0x0,0x2
0127 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0128 8003 | | Call 0x0,0x3
0129 00d8 | | Load_Top At_Offset_0
012a e004 | | Load 0x0,0x4
012b 0260 | ` | Execute Discrete,In_Type
012c 7001 |p | Jump_Nonzero 0x12e
012d 0801 | | Execute_Immediate Raise,0x1
012e 4801 |H | Short_Literal 0x1
012f 4806 |H | Short_Literal 0x6
0130 00e9 | | Load_Encached String_Cache
0131 0334 | 4 | Declare_Variable Array,With_Constraint
0132 5009 |P | Indirect_Literal Any,0x13c,{0x5443502f, 0x49502020}
0133 e005 | | Load 0x0,0x5
0134 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0135 8006 | | Call 0x0,0x6
0136 00bb | | Action Signal_Completion
0137 0000 | | .XXX[0x1]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b | ; | .CONST 0x013b ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0001 | | .CONST 0x0001 ; Number of locals
013b BODY_0138:
013b INIT_0138:
013b 4100 |A | End_Rendezvous 0x0
013c 5443 502f |TCP/| .LITERAL {0x5443502f, 0x49502020}
0140 ; --------------------------------------------------------------------------------------
0140 ; Debug Table
0140 ; --------------------------------------------------------------------------------------
0140 0004 0009 | | .DEBUG4 0x0004,0x0009,0xaecb,0x0000,0x0001,0x0007
0146 000b 0162 | b| .DBG4T 0x000b,0x0162,0x2801,0x4002
014a 007b 0180 | { | .DBG4T 0x007b,0x0180,0x0801,0x0002
014e 0083 0183 | | .DBG4T 0x0083,0x0183,0x0804,0x0002
0152 00d3 0190 | | .DBG4T 0x00d3,0x0190,0x0804,0x0002
0156 011b 019d | | .DBG4T 0x011b,0x019d,0x0800,0x0000
015a 011e 01a0 | | .DBG4T 0x011e,0x01a0,0x0800,0x0000
015e 013b 0000 | ; | .DBG4T 0x013b,0x0000,0x0003,0x0000
0162 ; --------------------------------------------------------------------------------------
0162 ; Debug chain
0162 ; --------------------------------------------------------------------------------------
0162 0008 000a | | .DBGLEN 0x0008,0x000a
0164 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0012,0x0017,0x0034,0x0035,0x0037,0x003d,0x004f,0x005e,0x0060,0x0061,0x0063,0x0066,0x0069,0x006d,0x006e,0x006f
0176 0001 0002 | | .XXX[0xa]
0178 0003 0004 | |
017a 0005 0006 | |
017c 0008 0009 | |
017e 000a 000b | |
0180 ; --------------------------------------------------------------------------------------
0180 ; Debug chain
0180 ; --------------------------------------------------------------------------------------
0180 0000 0001 | | .DBGLEN 0x0000,0x0001
0182 007b | { | .DBGLNO 0x007b
0183 ; --------------------------------------------------------------------------------------
0183 ; Debug chain
0183 ; --------------------------------------------------------------------------------------
0183 0001 000a | | .DBGLEN 0x0001,0x000a
0185 0083 0097 | | .DBGLNO 0x0083,0x0097,0x009e,0x00a0,0x00a1,0x00a3,0x00ae,0x00b0,0x00b1,0x00b3,0x00b6
0190 ; --------------------------------------------------------------------------------------
0190 ; Debug chain
0190 ; --------------------------------------------------------------------------------------
0190 0001 000a | | .DBGLEN 0x0001,0x000a
0192 00d3 00e7 | | .DBGLNO 0x00d3,0x00e7,0x00ee,0x00f0,0x00f1,0x00f3,0x00fe,0x0100,0x0101,0x0103,0x0106
019d ; --------------------------------------------------------------------------------------
019d ; Debug chain
019d ; --------------------------------------------------------------------------------------
019d 0001 0000 | | .DBGLEN 0x0001,0x0000
019f 011b | | .DBGLNO 0x011b
01a0 ; --------------------------------------------------------------------------------------
01a0 ; Debug chain
01a0 ; --------------------------------------------------------------------------------------
01a0 0000 0002 | | .DBGLEN 0x0000,0x0002
01a2 0122 0125 | " %| .DBGLNO 0x0122,0x0125
01a4 0000 0000 | | .BLANK 0000[0x5c]