|
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_0a7cf5
└─⟦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 0108 | | .CONST 0x0108 ; 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 0004 | | .CONST 0x0004 ; Number of locals
000b INIT_0008:
000b e009 | | Load 0x0,0x9
000c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
000d e009 | | Load 0x0,0x9
000e 1b10 | | Execute Package,Field_Read,Field_Number 0x10
000f 03e9 | | Declare_Variable Discrete,Duplicate
0010 BODY_0008:
0010 4801 |H | Short_Literal 0x1
0011 4800 |H | Short_Literal 0x0
0012 e22c | , | Load 0x1,0x2c
0013 3c3d |<= | Execute Record,Field_Read,Field_Number 0x3d
0014 8218 | | Call 0x1,0x18
0015 e019 | | Load 0x0,0x19
0016 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0017 a402 | | Store_Unchecked 0x2,0x2
0018 4800 |H | Short_Literal 0x0
0019 e2a8 | | Load 0x1,0xa8
001a 3c18 |< | Execute Record,Field_Read,Field_Number 0x18
001b e019 | | Load 0x0,0x19
001c 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
001d e402 | | Load 0x2,0x2
001e a403 | | Store_Unchecked 0x2,0x3
001f e2a8 | | Load 0x1,0xa8
0020 3c1a |< | Execute Record,Field_Read,Field_Number 0x1a
0021 a404 | | Store_Unchecked 0x2,0x4
0022 e2a8 | | Load 0x1,0xa8
0023 3c12 |< | Execute Record,Field_Read,Field_Number 0x12
0024 4605 |F | Jump_Case 0x6
0025 7860 |x` | Jump 0x86 ; case 0x0
0026 7837 |x7 | Jump 0x5e ; case 0x1
0027 7803 |x | Jump 0x2b ; case 0x2
0028 7835 |x5 | Jump 0x5e ; case 0x3
0029 7801 |x | Jump 0x2b ; case 0x4
002a 785b |x[ | Jump 0x86 ; case 0x5
002b e5ff | | Load 0x2,-0x1
002c 4602 |F | Jump_Case 0x3
002d 780e |x | Jump 0x3c ; case 0x0
002e 7857 |xW | Jump 0x86 ; case 0x1
002f 7800 |x | Jump 0x30 ; case 0x2
0030 4800 |H | Short_Literal 0x0
0031 e2a8 | | Load 0x1,0xa8
0032 3c17 |< | Execute Record,Field_Read,Field_Number 0x17
0033 e019 | | Load 0x0,0x19
0034 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0035 4800 |H | Short_Literal 0x0
0036 e2a8 | | Load 0x1,0xa8
0037 3c17 |< | Execute Record,Field_Read,Field_Number 0x17
0038 0275 | u | Execute Discrete,Unary_Minus
0039 e019 | | Load 0x0,0x19
003a 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
003b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
003c 00d8 | | Load_Top At_Offset_0
003d e403 | | Load 0x2,0x3
003e 0272 | r | Execute Discrete,Minus
003f e009 | | Load 0x0,0x9
0040 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0041 00d9 | | Load_Top At_Offset_1
0042 00d0 | | Action Swap_Control
0043 0260 | ` | Execute Discrete,In_Type
0044 7001 |p | Jump_Nonzero 0x46
0045 0801 | | Execute_Immediate Raise,0x1
0046 4800 |H | Short_Literal 0x0
0047 e019 | | Load 0x0,0x19
0048 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0049 4800 |H | Short_Literal 0x0
004a e2a8 | | Load 0x1,0xa8
004b 3c17 |< | Execute Record,Field_Read,Field_Number 0x17
004c e019 | | Load 0x0,0x19
004d 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
004e e403 | | Load 0x2,0x3
004f e404 | | Load 0x2,0x4
0050 0272 | r | Execute Discrete,Minus
0051 e009 | | Load 0x0,0x9
0052 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0053 00d9 | | Load_Top At_Offset_1
0054 00d0 | | Action Swap_Control
0055 0260 | ` | Execute Discrete,In_Type
0056 7001 |p | Jump_Nonzero 0x58
0057 0801 | | Execute_Immediate Raise,0x1
0058 e2a8 | | Load 0x1,0xa8
0059 3c17 |< | Execute Record,Field_Read,Field_Number 0x17
005a 0275 | u | Execute Discrete,Unary_Minus
005b e019 | | Load 0x0,0x19
005c 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
005d 7828 |x( | Jump 0x86
005e 4800 |H | Short_Literal 0x0
005f e2a8 | | Load 0x1,0xa8
0060 3c17 |< | Execute Record,Field_Read,Field_Number 0x17
0061 e019 | | Load 0x0,0x19
0062 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0063 00d8 | | Load_Top At_Offset_0
0064 e403 | | Load 0x2,0x3
0065 0272 | r | Execute Discrete,Minus
0066 e009 | | Load 0x0,0x9
0067 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0068 00d9 | | Load_Top At_Offset_1
0069 00d0 | | Action Swap_Control
006a 0260 | ` | Execute Discrete,In_Type
006b 7001 |p | Jump_Nonzero 0x6d
006c 0801 | | Execute_Immediate Raise,0x1
006d e2a8 | | Load 0x1,0xa8
006e 3c17 |< | Execute Record,Field_Read,Field_Number 0x17
006f 0275 | u | Execute Discrete,Unary_Minus
0070 e019 | | Load 0x0,0x19
0071 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0072 4800 |H | Short_Literal 0x0
0073 e2a8 | | Load 0x1,0xa8
0074 3c17 |< | Execute Record,Field_Read,Field_Number 0x17
0075 e019 | | Load 0x0,0x19
0076 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0077 e403 | | Load 0x2,0x3
0078 e404 | | Load 0x2,0x4
0079 0272 | r | Execute Discrete,Minus
007a e009 | | Load 0x0,0x9
007b 1b10 | | Execute Package,Field_Read,Field_Number 0x10
007c 00d9 | | Load_Top At_Offset_1
007d 00d0 | | Action Swap_Control
007e 0260 | ` | Execute Discrete,In_Type
007f 7001 |p | Jump_Nonzero 0x81
0080 0801 | | Execute_Immediate Raise,0x1
0081 e2a8 | | Load 0x1,0xa8
0082 3c17 |< | Execute Record,Field_Read,Field_Number 0x17
0083 0275 | u | Execute Discrete,Unary_Minus
0084 e019 | | Load 0x0,0x19
0085 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0086 e5ff | | Load 0x2,-0x1
0087 0f02 | | Execute_Immediate Equal,0x2
0088 6801 |h | Jump_Zero 0x8a
0089 4502 |E | Exit_Suprogram New_Top_Offset 0x2
008a e2a8 | | Load 0x1,0xa8
008b 3c12 |< | Execute Record,Field_Read,Field_Number 0x12
008c 0e05 | | Execute_Immediate Not_Equal,0x5
008d 6837 |h7 | Jump_Zero 0xc5
008e 00d8 | | Load_Top At_Offset_0
008f e403 | | Load 0x2,0x3
0090 0272 | r | Execute Discrete,Minus
0091 e009 | | Load 0x0,0x9
0092 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0093 00d9 | | Load_Top At_Offset_1
0094 00d0 | | Action Swap_Control
0095 0260 | ` | Execute Discrete,In_Type
0096 7001 |p | Jump_Nonzero 0x98
0097 0801 | | Execute_Immediate Raise,0x1
0098 4800 |H | Short_Literal 0x0
0099 e019 | | Load 0x0,0x19
009a 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
009b e403 | | Load 0x2,0x3
009c e404 | | Load 0x2,0x4
009d 0272 | r | Execute Discrete,Minus
009e e009 | | Load 0x0,0x9
009f 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00a0 00d9 | | Load_Top At_Offset_1
00a1 00d0 | | Action Swap_Control
00a2 0260 | ` | Execute Discrete,In_Type
00a3 7001 |p | Jump_Nonzero 0xa5
00a4 0801 | | Execute_Immediate Raise,0x1
00a5 e2a8 | | Load 0x1,0xa8
00a6 3c17 |< | Execute Record,Field_Read,Field_Number 0x17
00a7 e019 | | Load 0x0,0x19
00a8 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
00a9 00d8 | | Load_Top At_Offset_0
00aa e403 | | Load 0x2,0x3
00ab 0272 | r | Execute Discrete,Minus
00ac e009 | | Load 0x0,0x9
00ad 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00ae 00d9 | | Load_Top At_Offset_1
00af 00d0 | | Action Swap_Control
00b0 0260 | ` | Execute Discrete,In_Type
00b1 7001 |p | Jump_Nonzero 0xb3
00b2 0801 | | Execute_Immediate Raise,0x1
00b3 4800 |H | Short_Literal 0x0
00b4 e019 | | Load 0x0,0x19
00b5 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
00b6 e403 | | Load 0x2,0x3
00b7 e404 | | Load 0x2,0x4
00b8 0272 | r | Execute Discrete,Minus
00b9 e009 | | Load 0x0,0x9
00ba 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00bb 00d9 | | Load_Top At_Offset_1
00bc 00d0 | | Action Swap_Control
00bd 0260 | ` | Execute Discrete,In_Type
00be 7001 |p | Jump_Nonzero 0xc0
00bf 0801 | | Execute_Immediate Raise,0x1
00c0 e2a8 | | Load 0x1,0xa8
00c1 3c17 |< | Execute Record,Field_Read,Field_Number 0x17
00c2 0275 | u | Execute Discrete,Unary_Minus
00c3 e019 | | Load 0x0,0x19
00c4 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
00c5 e2a8 | | Load 0x1,0xa8
00c6 3c12 |< | Execute Record,Field_Read,Field_Number 0x12
00c7 0f01 | | Execute_Immediate Equal,0x1
00c8 e2a8 | | Load 0x1,0xa8
00c9 3c12 |< | Execute Record,Field_Read,Field_Number 0x12
00ca 0f02 | | Execute_Immediate Equal,0x2
00cb 0278 | x | Execute Discrete,Or
00cc 6839 |h9 | Jump_Zero 0x106
00cd 00cf | | Action Mark_Auxiliary
00ce e2a8 | | Load 0x1,0xa8
00cf 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
00d0 0aff | | Execute_Immediate Plus,-0x1
00d1 4801 |H | Short_Literal 0x1
00d2 0263 | c | Execute Discrete,Above_Bound
00d3 7031 |p1 | Jump_Nonzero 0x105
00d4 4800 |H | Short_Literal 0x0
00d5 e407 | | Load 0x2,0x7
00d6 e2a8 | | Load 0x1,0xa8
00d7 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
00d8 01d5 | | Execute Vector,Field_Reference
00d9 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
00da e22c | , | Load 0x1,0x2c
00db 3c34 |<4 | Execute Record,Field_Read,Field_Number 0x34
00dc 0901 | | Execute_Immediate Binary_Scale,0x1
00dd 0273 | s | Execute Discrete,Plus
00de e009 | | Load 0x0,0x9
00df 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00e0 00d9 | | Load_Top At_Offset_1
00e1 00d0 | | Action Swap_Control
00e2 0260 | ` | Execute Discrete,In_Type
00e3 7001 |p | Jump_Nonzero 0xe5
00e4 0801 | | Execute_Immediate Raise,0x1
00e5 e019 | | Load 0x0,0x19
00e6 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
00e7 e2a8 | | Load 0x1,0xa8
00e8 3c1a |< | Execute Record,Field_Read,Field_Number 0x1a
00e9 e402 | | Load 0x2,0x2
00ea 0272 | r | Execute Discrete,Minus
00eb e009 | | Load 0x0,0x9
00ec 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00ed 00d9 | | Load_Top At_Offset_1
00ee 00d0 | | Action Swap_Control
00ef 0260 | ` | Execute Discrete,In_Type
00f0 7001 |p | Jump_Nonzero 0xf2
00f1 0801 | | Execute_Immediate Raise,0x1
00f2 4800 |H | Short_Literal 0x0
00f3 e019 | | Load 0x0,0x19
00f4 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
00f5 e402 | | Load 0x2,0x2
00f6 e2a8 | | Load 0x1,0xa8
00f7 3c1a |< | Execute Record,Field_Read,Field_Number 0x1a
00f8 0272 | r | Execute Discrete,Minus
00f9 e009 | | Load 0x0,0x9
00fa 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00fb 00d9 | | Load_Top At_Offset_1
00fc 00d0 | | Action Swap_Control
00fd 0260 | ` | Execute Discrete,In_Type
00fe 7001 |p | Jump_Nonzero 0x100
00ff 0801 | | Execute_Immediate Raise,0x1
0100 4800 |H | Short_Literal 0x0
0101 e019 | | Load 0x0,0x19
0102 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0103 00c8 | | Action Pop_Auxiliary_Range
0104 3fcf |? | Loop_Increasing 0xd4
0105 00ce | | Action Pop_Auxiliary
0106 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0107 0000 | | .XXX[0x1]
0108 ; --------------------------------------------------------------------------------------
0108 ; Debug Table
0108 ; --------------------------------------------------------------------------------------
0108 0004 000f | | .DEBUG4 0x0004,0x000f,0x47f8,0x0000,0x0001,0x0000
010e e101 c42b | +| .XXX[0xf2]
0110 f000 8c02 | |
0112 c4cd 99ef | |
0114 a052 2d49 | R-I|
0116 d41f ac03 | |
0118 8c01 e5d6 | |
011a 55d8 3805 |U 8 |
011c 7f92 e407 | |
011e 2000 2568 | %h|
0120 6003 2001 |` |
0122 7dd1 14a4 |} |
0124 2866 e528 |(f (|
0126 4807 f000 |H |
0128 8802 836e | n|
012a f510 51b7 | Q |
012c 9fe3 aa77 | w|
012e b3e2 f003 | |
0130 bfe3 c7e0 | |
0132 1c18 4b60 | K`|
0134 7caa 6be3 || k |
0136 8803 6403 | d |
0138 cdd3 c010 | |
013a 53e6 bc6d |S m|
013c c9d5 88df | |
013e 44b3 f7e3 |D |
0140 87e1 c03c | <|
0142 a44e 8800 | N |
0144 0fe4 3808 | 8 |
0146 1be4 23e4 | # |
0148 65b5 8204 |e |
014a 2fe6 9601 |/ |
014c cc04 3be7 | ; |
014e c3e0 e803 | |
0150 cbe3 3853 | 8S|
0152 d3e0 53e7 | S |
0154 19fa c46f | o|
0156 bcbb 7b5c | {\|
0158 d092 f68a | |
015a 7817 f601 |x |
015c 9143 08f7 | C |
015e d807 edc0 | |
0160 a595 b801 | |
0162 a3e2 cceb | |
0164 d475 a087 | u |
0166 f5fd a025 | %|
0168 2491 c627 |$ '|
016a fc01 ec45 | E|
016c 002c 11db | , |
016e 1fb0 50ce | P |
0170 8a04 395b | 9[|
0172 bc0b 2c00 | , |
0174 6071 e08c |`q |
0176 e800 40be | @ |
0178 c46c 61b5 | la |
017a c413 3410 | 4 |
017c b4b0 9032 | 2|
017e 1001 b481 | |
0180 3d7f bce3 |= |
0182 fc03 f9b3 | |
0184 bce3 8403 | |
0186 a4d4 98ef | |
0188 7003 fc02 |p |
018a 68d6 6000 |h ` |
018c 0403 5002 | P |
018e 2003 7cc7 | | |
0190 b000 6401 | d |
0192 4401 45fd |D E |
0194 3ccd 67e5 |< g |
0196 0c26 d9cb | & |
0198 fc51 b7e7 | Q |
019a 4815 bfe5 |H |
019c 99e3 f1f8 | |
019e 99bd 6ce5 | l |
01a0 dbe7 4451 | DQ|
01a2 e3e5 cc10 | |
01a4 e405 408f | @ |
01a6 3413 5cbd |4 \ |
01a8 cd8a dfe1 | |
01aa e813 f46b | k|
01ac d9dc 3805 | 8 |
01ae a400 97dc | |
01b0 0000 dfc3 | |
01b2 506a c39f |Pj |
01b4 8c93 d0c1 | |
01b6 fa06 c09e | |
01b8 2402 d9c9 |$ |
01ba e8a4 a003 | |
01bc d839 b800 | 9 |
01be ac03 b409 | |
01c0 3801 906e |8 n|
01c2 fccd 347b | 4{|
01c4 5c55 8c00 |\U |
01c6 54ca 2e93 |T . |
01c8 5068 57ce |PhW |
01ca 445c 7002 |D\p |
01cc 5fe5 9d5b |_ [|
01ce fc96 6be6 | k |
01d0 a70a 77e4 | w |
01d2 f295 906c | l|
01d4 88da 445d | D]|
01d6 1000 54c9 | T |
01d8 c003 5c54 | \T|
01da 4c05 83e4 |L |
01dc c0e3 b4d8 | |
01de 3003 5cbd |0 \ |
01e0 e3e2 d4ca | |
01e2 5d98 54c8 |] T |
01e4 b089 5406 | T |
01e6 93e5 5406 | T |
01e8 2e93 14a5 |. |
01ea 3ca0 8df3 |< |
01ec 6cc8 4ca6 |l L |
01ee 57e4 ec6b |W k|
01f0 40bd dfe4 |@ |
01f2 f02a c8b7 | * |
01f4 b000 6003 | ` |
01f6 58a1 f3e6 |X |
01f8 9cad fbe5 | |
01fa ff18 bc16 | |
01fc 07e5 2c03 | , |
01fe 4fe5 c5d4 |O |