|
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_5850da
└─⟦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 0040 | @ | .CONST 0x0040 ; 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 000b | | .CONST 0x000b ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0001 | | .CONST 0x0001 ; Number of locals 000b BODY_0008: 000b INIT_0008: 000b 00cf | | Action Mark_Auxiliary 000c 00db | | Load_Top At_Offset_3 000d 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 000e 01d9 | | Execute Vector,Reverse_Bounds 000f 0263 | c | Execute Discrete,Above_Bound 0010 702d |p- | Jump_Nonzero 0x3e 0011 00d8 | | Load_Top At_Offset_0 0012 e5ff | | Load 0x2,-0x1 0013 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0014 01d5 | | Execute Vector,Field_Reference 0015 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0016 4604 |F | Jump_Case 0x5 0017 7806 |x | Jump 0x1e ; case 0x0 0018 780f |x | Jump 0x28 ; case 0x1 0019 7815 |x | Jump 0x2f ; case 0x2 001a 781b |x | Jump 0x36 ; case 0x3 001b 7800 |x | Jump 0x1c ; case 0x4 001c 00d2 | | Pop_Control Pop_Count_2 001d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 001e e5fe | | Load 0x2,-0x2 001f 00d9 | | Load_Top At_Offset_1 0020 e5ff | | Load 0x2,-0x1 0021 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0022 01d5 | | Execute Vector,Field_Reference 0023 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 0024 e245 | E | Load 0x1,0x45 0025 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0026 824f | O | Call 0x1,0x4f 0027 7814 |x | Jump 0x3c 0028 00d8 | | Load_Top At_Offset_0 0029 e5ff | | Load 0x2,-0x1 002a 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 002b 01d5 | | Execute Vector,Field_Reference 002c 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5 002d 00ba | | Action Initiate_Delay 002e 780d |x | Jump 0x3c 002f e5fe | | Load 0x2,-0x2 0030 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0031 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0032 e00d | | Load 0x0,0xd 0033 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0034 180e | | Execute Package,Field_Execute,Field_Number 0xe 0035 7806 |x | Jump 0x3c 0036 e5fe | | Load 0x2,-0x2 0037 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0038 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0039 e00d | | Load 0x0,0xd 003a 1b10 | | Execute Package,Field_Read,Field_Number 0x10 003b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 003c 00c8 | | Action Pop_Auxiliary_Range 003d 3fd3 |? | Loop_Increasing 0x11 003e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 003f 0000 | | .XXX[0x1] 0040 ; -------------------------------------------------------------------------------------- 0040 ; Debug Table 0040 ; -------------------------------------------------------------------------------------- 0040 0004 000a | | .DEBUG4 0x0004,0x000a,0x7e4b,0x0000,0x0001,0x0000 0046 0024 0005 | $ | .XXX[0x5] 0048 75c8 0000 |u | 004a 0008 | | 004b 0000 0000 | | .BLANK 0000[0x1b5]