|
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_03bcfe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦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 0364 6900 | di | .XXX[0x2] 0110 0000 0000 | | .BLANK 0000[0x8] 0118 0040 0002 | @ | .XXX[0x4] 011a 0363 d200 | c | 011c 0000 0000 | | .BLANK 0000[0x5] 0121 0040 0002 | @ | .XXX[0x4] 0123 0279 0800 | y | 0125 0000 0000 | | .BLANK 0000[0x8] 012d 0120 9f11 | | .XXX[0x19] 012f 4000 1b11 |@ | 0131 a400 0040 | @| 0133 0300 02b8 | | 0135 0000 0012 | | 0137 c200 0008 | | 0139 0000 0014 | | 013b 00a0 0000 | | 013d 0020 0000 | | 013f 0800 0000 | | 0141 4400 0000 |D | 0143 0020 0000 | | 0145 0140 | @ | 0146 0000 0000 | | .BLANK 0000[0xb] 0151 0008 0000 | | .XXX[0x4] 0153 4058 d840 |@X @| 0155 0000 0000 | | .BLANK 0000[0x5] 015a 0008 0000 | | .XXX[0x4] 015c 4058 ee60 |@X `| 015e 0000 0000 | | .BLANK 0000[0x8] 0166 0024 13e2 | $ | .XXX[0x1c] 0168 3000 0362 |0 b| 016a 3480 0008 |4 | 016c 0060 0057 | ` W| 016e 0000 0002 | | 0170 5be0 0001 |[ | 0172 0000 0002 | | 0174 8014 0000 | | 0176 0004 0000 | | 0178 0100 0000 | | 017a 0880 0000 | | 017c 0004 0000 | | 017e 0029 0000 | ) | 0180 080b 4064 | @d| 0182 0000 0000 | | .BLANK 0000[0x8] 018a 0001 0000 | | .XXX[0x4] 018c 080b b494 | | 018e 0000 0000 | | .BLANK 0000[0x1f] 01ad 1002 8000 | | .XXX[0xb] 01af 0000 0000 | | 01b1 0020 0000 | | 01b3 0110 0000 | | 01b5 0000 8000 | | 01b7 0005 | | 01b8 0000 0000 | | .BLANK 0000[0x48]