|
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 00b8 | | .CONST 0x00b8 ; 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 0014 | | .CONST 0x0014 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0004 | | .CONST 0x0004 ; Number of locals 000b INIT_0008: 000b e011 | | Load 0x0,0x11 000c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 000d e0b9 | | Load 0x0,0xb9 000e 0007 | | Action Break_Optional 000f e033 | 3 | Load 0x0,0x33 0010 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0011 0322 | " | Declare_Variable Record 0012 00d8 | | Load_Top At_Offset_0 0013 1c00 | | Execute_Immediate Run_Utility,0x0 0014 BODY_0008: 0014 e0ba | | Load 0x0,0xba 0015 0d01 | | Execute_Immediate Less,0x1 0016 6805 |h | Jump_Zero 0x1c 0017 0092 00a4 | | Action Push_String_Extended,0xa4 ; "Table of Contents has no entries" 0019 e01c | | Load 0x0,0x1c 001a 180f | | Execute Package,Field_Execute,Field_Number 0xf 001b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 001c 00cf | | Action Mark_Auxiliary 001d e0ba | | Load 0x0,0xba 001e 4801 |H | Short_Literal 0x1 001f 0263 | c | Execute Discrete,Above_Bound 0020 7082 |p | Jump_Nonzero 0xa3 0021 00d8 | | Load_Top At_Offset_0 0022 80bb | | Call 0x0,0xbb 0023 a603 | | Store_Unchecked 0x3,0x3 0024 e603 | | Load 0x3,0x3 0025 0217 | | Execute Heap_Access,All_Reference 0026 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0027 e408 | | Load 0x2,0x8 0028 01d7 | | Execute Vector,Field_Read 0029 6877 |hw | Jump_Zero 0xa1 002a 480a |H | Short_Literal 0xa 002b 4800 |H | Short_Literal 0x0 002c e603 | | Load 0x3,0x3 002d 0217 | | Execute Heap_Access,All_Reference 002e 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 002f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0030 e404 | | Load 0x2,0x4 0031 e028 | ( | Load 0x0,0x28 0032 186b | k | Execute Package,Field_Execute,Field_Number 0x6b 0033 483b |H; | Short_Literal 0x3b 0034 e404 | | Load 0x2,0x4 0035 e028 | ( | Load 0x0,0x28 0036 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59 0037 e603 | | Load 0x3,0x3 0038 0217 | | Execute Heap_Access,All_Reference 0039 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 003a 701e |p | Jump_Nonzero 0x59 003b e603 | | Load 0x3,0x3 003c 0219 | | Execute Heap_Access,All_Read 003d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 003e e602 | | Load 0x3,0x2 003f e608 | | Load 0x3,0x8 0040 e033 | 3 | Load 0x0,0x33 0041 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0042 00d1 | | Pop_Control Pop_Count_1 0043 c602 | | Store 0x3,0x2 0044 00d1 | | Pop_Control Pop_Count_1 0045 e602 | | Load 0x3,0x2 0046 e011 | | Load 0x0,0x11 0047 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0048 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0049 0c01 | | Execute_Immediate Greater_Equal,0x1 004a 6809 |h | Jump_Zero 0x54 004b 4801 |H | Short_Literal 0x1 004c e602 | | Load 0x3,0x2 004d e011 | | Load 0x0,0x11 004e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 004f 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0050 8264 | d | Call 0x1,0x64 0051 e404 | | Load 0x2,0x4 0052 e028 | ( | Load 0x0,0x28 0053 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e 0054 e602 | | Load 0x3,0x2 0055 e011 | | Load 0x0,0x11 0056 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0057 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0058 c602 | | Store 0x3,0x2 0059 483b |H; | Short_Literal 0x3b 005a e404 | | Load 0x2,0x4 005b e028 | ( | Load 0x0,0x28 005c 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59 005d 483b |H; | Short_Literal 0x3b 005e 4801 |H | Short_Literal 0x1 005f e603 | | Load 0x3,0x3 0060 0217 | | Execute Heap_Access,All_Reference 0061 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0062 0227 | ' | Execute Access,All_Reference 0063 8264 | d | Call 0x1,0x64 0064 01cb | | Execute Vector,Append 0065 e404 | | Load 0x2,0x4 0066 e028 | ( | Load 0x0,0x28 0067 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e 0068 e603 | | Load 0x3,0x3 0069 0217 | | Execute Heap_Access,All_Reference 006a 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 006b 6812 |h | Jump_Zero 0x7e 006c e603 | | Load 0x3,0x3 006d 0217 | | Execute Heap_Access,All_Reference 006e 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 006f 4801 |H | Short_Literal 0x1 0070 e604 | | Load 0x3,0x4 0071 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0072 01d6 | | Execute Vector,Field_Write 0073 e603 | | Load 0x3,0x3 0074 0217 | | Execute Heap_Access,All_Reference 0075 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0076 4802 |H | Short_Literal 0x2 0077 e604 | | Load 0x3,0x4 0078 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0079 01d6 | | Execute Vector,Field_Write 007a 4802 |H | Short_Literal 0x2 007b e604 | | Load 0x3,0x4 007c 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 007d 780a |x | Jump 0x88 007e e603 | | Load 0x3,0x3 007f 0217 | | Execute Heap_Access,All_Reference 0080 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0081 4801 |H | Short_Literal 0x1 0082 e604 | | Load 0x3,0x4 0083 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0084 01d6 | | Execute Vector,Field_Write 0085 4801 |H | Short_Literal 0x1 0086 e604 | | Load 0x3,0x4 0087 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0088 e603 | | Load 0x3,0x3 0089 0217 | | Execute Heap_Access,All_Reference 008a 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 008b e604 | | Load 0x3,0x4 008c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 008d e602 | | Load 0x3,0x2 008e e604 | | Load 0x3,0x4 008f e033 | 3 | Load 0x0,0x33 0090 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0091 00d1 | | Pop_Control Pop_Count_1 0092 c602 | | Store 0x3,0x2 0093 4801 |H | Short_Literal 0x1 0094 e602 | | Load 0x3,0x2 0095 e011 | | Load 0x0,0x11 0096 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0097 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0098 8264 | d | Call 0x1,0x64 0099 e404 | | Load 0x2,0x4 009a e028 | ( | Load 0x0,0x28 009b 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 009c e602 | | Load 0x3,0x2 009d e011 | | Load 0x0,0x11 009e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 009f 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00a0 c602 | | Store 0x3,0x2 00a1 00c8 | | Action Pop_Auxiliary_Range 00a2 3f7e |?~ | Loop_Increasing 0x21 00a3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00a4 ; -------------------------------------------------------------------------------------- 00a4 ; STRING TABLE 00a4 ; -------------------------------------------------------------------------------------- 00a4 0004 | | .STRTAB 0x0004->0x00a6 ; "Table of Contents has no entries" 00a5 0022 | " | .STREND 0x0022->0x00b6 00a6 5461 626c |Tabl| .STRTAB_STRINGS 00b6 0000 0000 | | .XXX[0x2] 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; Debug Table 00b8 ; -------------------------------------------------------------------------------------- 00b8 0004 000f | | .DEBUG4 0x0004,0x000f,0x4811,0x0000,0x0001,0x0000 00be 0000 0000 | | .BLANK 0000[0x142]