|
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 061f 9a00 | | .XXX[0x2] 0110 0000 0000 | | .BLANK 0000[0x1a] 012a 0003 0001 | | .XXX[0x1f] 012c 2de8 42a1 |- B | 012e b4d5 8000 | | 0130 1b11 da26 | &| 0132 4040 0200 |@@ | 0134 02b8 0000 | | 0136 0020 df00 | | 0138 0010 0000 | | 013a 000c 00a0 | | 013c 0000 0020 | | 013e 0000 0800 | | 0140 0000 4400 | D | 0142 0000 0020 | | 0144 0000 0148 | H| 0146 0000 80c3 | | 0148 f380 | | 0149 0000 0000 | | .BLANK 0000[0x1b] 0164 6000 25bc |` % | .XXX[0x58] 0166 e854 369a | T6 | 0168 b800 0362 | b| 016a 32a4 b808 |2 | 016c 0040 0057 | @ W| 016e 0000 0003 | | 0170 9d00 0011 | | 0172 8000 0008 | | 0174 8014 0000 | | 0176 0004 0000 | | 0178 0100 0000 | | 017a 0880 0000 | | 017c 0004 0000 | | 017e 0029 0000 | ) | 0180 8818 7ead | ~ | 0182 0000 8818 | | 0184 7eb1 0000 |~ | 0186 4018 7ce9 |@ | | 0188 0000 8818 | | 018a 7eb4 0000 |~ | 018c 0000 0001 | | 018e 0000 8818 | | 0190 7eb9 0000 |~ | 0192 1815 b4c5 | | 0194 0000 5818 | X | 0196 7d6d 0000 |}m | 0198 8818 7ebc | ~ | 019a 0000 0000 | | 019c 0000 0400 | | 019e 07c1 310a | 1 | 01a0 86d5 8c00 | | 01a2 006c 4768 | lGh| 01a4 a201 0008 | | 01a6 000a e000 | | 01a8 0000 7764 | wd| 01aa 0007 8000 | | 01ac 0003 5002 | P | 01ae 8000 0051 | Q| 01b0 0000 0020 | | 01b2 0000 0110 | | 01b4 0000 0000 | | 01b6 8000 0005 | | 01b8 2000 3c03 | < | 01ba 1897 8000 | | 01bc 0000 0000 | | .BLANK 0000[0x1a] 01d6 0600 0001 | | .XXX[0x3] 01d8 bf80 | | 01d9 0000 0000 | | .BLANK 0000[0x27]