|
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_5e40f2
└─⟦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 00e0 | | .CONST 0x00e0 ; 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 005b | [ | .CONST 0x005b ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0011 | | .CONST 0x0011 ; Number of locals
000b INIT_0008:
000b 00e1 | | Load_Encached Boolean_Cache
000c e001 | | Load 0x0,0x1
000d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
000e e001 | | Load 0x0,0x1
000f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0010 029f 00cb | | Declare_Subprogram INIT_00c8,For_Call
0012 4803 |H | Short_Literal 0x3
0013 032e | . | Declare_Type Record,Defined,Visible
0014 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated
0016 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated
0018 00bf | | Action Accept_Activation
0019 e001 | | Load 0x0,0x1
001a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
001b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
001c 0266 | f | Execute Discrete,Bounds
001d e001 | | Load 0x0,0x1
001e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
001f 02a0 | | Declare_Subprogram Null_Subprogram
0020 4801 |H | Short_Literal 0x1
0021 035d | ] | Declare_Type Array,Defined
0022 00d8 | | Load_Top At_Offset_0
0023 0337 | 7 | Declare_Variable Array
0024 00d8 | | Load_Top At_Offset_0
0025 0335 | 5 | Declare_Variable Array,Duplicate
0026 00cd | | Action Spare6_Action
0027 4800 |H | Short_Literal 0x0
0028 4800 |H | Short_Literal 0x0
0029 00da | | Load_Top At_Offset_2
002a 01d6 | | Execute Vector,Field_Write
002b 4809 |H | Short_Literal 0x9
002c 4801 |H | Short_Literal 0x1
002d 00da | | Load_Top At_Offset_2
002e 01d6 | | Execute Vector,Field_Write
002f 4809 |H | Short_Literal 0x9
0030 4802 |H | Short_Literal 0x2
0031 00da | | Load_Top At_Offset_2
0032 01d6 | | Execute Vector,Field_Write
0033 4809 |H | Short_Literal 0x9
0034 4806 |H | Short_Literal 0x6
0035 4809 |H | Short_Literal 0x9
0036 00d9 | | Load_Top At_Offset_1
0037 e212 | | Load 0x1,0x12
0038 01d6 | | Execute Vector,Field_Write
0039 3ffb |? | Loop_Increasing 0x35
003a 480d |H | Short_Literal 0xd
003b 480b |H | Short_Literal 0xb
003c 4809 |H | Short_Literal 0x9
003d 00d9 | | Load_Top At_Offset_1
003e e212 | | Load 0x1,0x12
003f 01d6 | | Execute Vector,Field_Write
0040 3ffb |? | Loop_Increasing 0x3c
0041 4808 |H | Short_Literal 0x8
0042 4803 |H | Short_Literal 0x3
0043 00da | | Load_Top At_Offset_2
0044 01d6 | | Execute Vector,Field_Write
0045 4801 |H | Short_Literal 0x1
0046 4804 |H | Short_Literal 0x4
0047 00da | | Load_Top At_Offset_2
0048 01d6 | | Execute Vector,Field_Write
0049 480a |H | Short_Literal 0xa
004a 4805 |H | Short_Literal 0x5
004b 00da | | Load_Top At_Offset_2
004c 01d6 | | Execute Vector,Field_Write
004d 480d |H | Short_Literal 0xd
004e 480a |H | Short_Literal 0xa
004f 00da | | Load_Top At_Offset_2
0050 01d6 | | Execute Vector,Field_Write
0051 480e |H | Short_Literal 0xe
0052 480e |H | Short_Literal 0xe
0053 00da | | Load_Top At_Offset_2
0054 01d6 | | Execute Vector,Field_Write
0055 00d9 | | Load_Top At_Offset_1
0056 01d4 | | Execute Vector,Structure_Write
0057 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0058 00c7 | | Action Elaborate_Subprogram
0059 1d0f | | Execute_Immediate Reference_Lex_1,0xf
005a 00c7 | | Action Elaborate_Subprogram
005b BODY_0008:
005b 00bc | | Action Signal_Activated
005c 00bb | | Action Signal_Completion
005d 0000 0000 | | .XXX[0x3]
005f 0000 | |
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0066 | f | .CONST 0x0066 ; Address of begin
0061 0004 | | .CONST 0x0004 ; Address of exception handler
0062 0002 | | .CONST 0x0002 ; Number of locals
0063 INIT_0060:
0063 e001 | | Load 0x0,0x1
0064 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0065 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0066 BODY_0060:
0066 e001 | | Load 0x0,0x1
0067 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0068 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0069 e5fe | | Load 0x2,-0x2
006a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
006b 0120 | | Execute Any,Is_Value
006c 6803 |h | Jump_Zero 0x70
006d e001 | | Load 0x0,0x1
006e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
006f 7802 |x | Jump 0x72
0070 e5fe | | Load 0x2,-0x2
0071 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0072 6039 |`9 | Indirect_Literal Discrete,0xac,{0x00000000, 0x00004000}
0073 e002 | | Load 0x0,0x2
0074 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0075 e003 | | Load 0x0,0x3
0076 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0077 e001 | | Load 0x0,0x1
0078 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0079 1816 | | Execute Package,Field_Execute,Field_Number 0x16
007a e5ff | | Load 0x2,-0x1
007b e001 | | Load 0x0,0x1
007c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
007d 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
007e e5fe | | Load 0x2,-0x2
007f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0080 0059 | Y | Store_Top Discrete,At_Offset_1
0081 00d8 | | Load_Top At_Offset_0
0082 e211 | | Load 0x1,0x11
0083 01d7 | | Execute Vector,Field_Read
0084 e5fe | | Load 0x2,-0x2
0085 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0086 e5fe | | Load 0x2,-0x2
0087 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0088 7021 |p! | Jump_Nonzero 0xaa
0089 e001 | | Load 0x0,0x1
008a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
008b 00e1 | | Load_Encached Boolean_Cache
008c 601f |` | Indirect_Literal Discrete,0xac,{0x00000000, 0x00004000}
008d e002 | | Load 0x0,0x2
008e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
008f e5fe | | Load 0x2,-0x2
0090 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0091 e001 | | Load 0x0,0x1
0092 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
0093 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0094 e5fe | | Load 0x2,-0x2
0095 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0096 e5fe | | Load 0x2,-0x2
0097 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0098 e5fe | | Load 0x2,-0x2
0099 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
009a 700f |p | Jump_Nonzero 0xaa
009b e5fe | | Load 0x2,-0x2
009c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
009d 680c |h | Jump_Zero 0xaa
009e e001 | | Load 0x0,0x1
009f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00a0 600b |` | Indirect_Literal Discrete,0xac,{0x00000000, 0x00004000}
00a1 e002 | | Load 0x0,0x2
00a2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00a3 e5fe | | Load 0x2,-0x2
00a4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00a5 e001 | | Load 0x0,0x1
00a6 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
00a7 181e | | Execute Package,Field_Execute,Field_Number 0x1e
00a8 e5fe | | Load 0x2,-0x2
00a9 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00aa 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00ab 0000 | | .XXX[0x1]
00ac 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
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 00da | | Load_Top At_Offset_2
00b4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00b5 700f |p | Jump_Nonzero 0xc5
00b6 00da | | Load_Top At_Offset_2
00b7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00b8 680c |h | Jump_Zero 0xc5
00b9 e001 | | Load 0x0,0x1
00ba 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00bb 67f0 |g | Indirect_Literal Discrete,0xac,{0x00000000, 0x00004000}
00bc e002 | | Load 0x0,0x2
00bd 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00be e5ff | | Load 0x2,-0x1
00bf 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00c0 e001 | | Load 0x0,0x1
00c1 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
00c2 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00c3 00db | | Load_Top At_Offset_3
00c4 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00c5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00c6 0000 0000 | | .XXX[0x2]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb | | .CONST 0x00cb ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0001 | | .CONST 0x0001 ; Number of locals
00cb BODY_00c8:
00cb INIT_00c8:
00cb 4608 |F | Jump_Case 0x9
00cc 7808 |x | Jump 0xd5 ; case 0x0
00cd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
00ce 780d |x | Jump 0xdc ; case 0x2
00cf 780c |x | Jump 0xdc ; case 0x3
00d0 780b |x | Jump 0xdc ; case 0x4
00d1 780a |x | Jump 0xdc ; case 0x5
00d2 7809 |x | Jump 0xdc ; case 0x6
00d3 7808 |x | Jump 0xdc ; case 0x7
00d4 7807 |x | Jump 0xdc ; case 0x8
00d5 00da | | Load_Top At_Offset_2
00d6 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
00d7 0125 | % | Execute Any,Set_Constraint
00d8 00da | | Load_Top At_Offset_2
00d9 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
00da 1c00 | | Execute_Immediate Run_Utility,0x0
00db 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
00dc 0869 | i | Execute_Immediate Raise,0x69
00dd 0000 0000 | | .XXX[0x3]
00df 0000 | |
00e0 ; --------------------------------------------------------------------------------------
00e0 ; Debug Table
00e0 ; --------------------------------------------------------------------------------------
00e0 0004 000d | | .DEBUG4 0x0004,0x000d,0x9719,0x0000,0x0001,0x0000
00e6 ee90 0000 | | .XXX[0x11]
00e8 0000 0052 | R|
00ea eac0 0005 | |
00ec a176 0000 | v |
00ee 0000 0297 | |
00f0 c300 0000 | |
00f2 0000 0297 | |
00f4 a480 005d | ]|
00f6 7d20 |} |
00f7 0000 0000 | | .BLANK 0000[0x6]
00fd 14c4 5c00 | \ | .XXX[0x21]
00ff 0302 6600 | f |
0101 0000 0000 | |
0103 17f5 3405 | 4 |
0105 2fe6 0000 |/ |
0107 beb9 c029 | )|
0109 8118 0005 | |
010b ee4f 014c | O L|
010d 1800 002f | /|
010f 3680 0a61 |6 a|
0111 3a00 0177 |: w|
0113 d440 530d | @S |
0115 a000 531f | S |
0117 1000 0000 | |
0119 0000 531b | S |
011b 4000 0c18 |@ |
011d 9600 | |
011e 0000 0000 | | .BLANK 0000[0x5]
0123 0002 9928 | (| .XXX[0xe]
0125 8000 153b | ;|
0127 1000 0000 | |
0129 0014 ccac | |
012b 0000 0000 | |
012d 0014 cbb8 | |
012f 0002 6dff | m |
0131 0000 0000 | | .BLANK 0000[0x6]
0137 00a6 7160 | q`| .XXX[0x4]
0139 0011 e588 | |
013b 0000 0000 | | .BLANK 0000[0x6]
0141 0534 2800 | 4( | .XXX[0x27]
0143 004a 78c0 | Jx |
0145 0000 0000 | |
0147 29a8 1000 |) |
0149 0000 0000 | |
014b 29a6 2800 |) ( |
014d 04d1 8000 | |
014f 0000 0001 | |
0151 4d67 c000 |Mg |
0153 0000 0001 | |
0155 4d58 8000 |MX |
0157 2641 7800 |&Ax |
0159 0000 000a | |
015b 6cf2 0000 |l |
015d 0000 000a | |
015f 6c78 0000 |lx |
0161 928d 4000 | @ |
0163 0000 0008 | |
0165 763a 029a |v: |
0167 ff80 | |
0168 0000 0000 | | .BLANK 0000[0x4]
016c 029b 6c80 | l | .XXX[0x4]
016e 0015 4df0 | M |
0170 0000 0000 | | .BLANK 0000[0x6]
0176 14dd d800 | | .XXX[0x1b]
0178 0280 be00 | |
017a 0000 0000 | |
017c a711 a000 | |
017e 0000 0000 | |
0180 a70a 0000 | |
0182 0a27 a400 | ' |
0184 0000 0000 | |
0186 521a 0029 |R )|
0188 c098 0029 | )|
018a c950 0000 | P |
018c 0000 0029 | )|
018e c768 0001 | h |
0190 2813 |( |
0191 0000 0000 | | .BLANK 0000[0x6]
0197 014e 71c0 | Nq | .XXX[0x17]
0199 0007 4bd8 | K |
019b 0000 0000 | |
019d 011a 1b40 | @|
019f 5398 a000 |S |
01a1 53ad e000 |S |
01a3 0000 0000 | |
01a5 53aa 1000 |S |
01a7 021c 9000 | |
01a9 0000 0000 | |
01ab 1329 1014 | ) |
01ad e990 | |
01ae 0000 0000 | | .BLANK 0000[0x4]
01b2 0014 ecf8 | | .XXX[0x18]
01b4 0000 8010 | |
01b6 8000 0000 | |
01b8 00a7 8300 | |
01ba 0000 0000 | |
01bc 00a7 7b60 | {`|
01be 0006 f34c | L|
01c0 0000 0000 | |
01c2 053c b500 | < |
01c4 0000 0000 | |
01c6 053c 7800 | <x |
01c8 0030 e380 | 0 |
01ca 0000 0000 | | .BLANK 0000[0x6]
01d0 29e8 a800 |) | .XXX[0xe]
01d2 017c cc00 | | |
01d4 0000 0001 | |
01d6 4f7b c000 |O{ |
01d8 0000 0001 | |
01da 4f6c 8000 |Ol |
01dc 22fa 4000 |" @ |
01de 0000 0000 | | .BLANK 0000[0x5]
01e3 000a 7c9e | | | .XXX[0x1d]
01e5 0000 a6f8 | |
01e7 4000 0000 |@ |
01e9 0053 f290 | S |
01eb 0000 0000 | |
01ed 0053 eec0 | S |
01ef 0009 5b86 | [ |
01f1 0000 0000 | |
01f3 029f e300 | |
01f5 0000 0000 | |
01f7 029f c480 | |
01f9 002e 2150 | .!P|
01fb 0000 0000 | |
01fd 1501 8c00 | |
01ff 0000 | |