|
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 00c0 | | .CONST 0x00c0 ; 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 000f | | .CONST 0x000f ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0003 | | .CONST 0x0003 ; Number of locals 000b INIT_0008: 000b e0a8 | | Load 0x0,0xa8 000c 0007 | | Action Break_Optional 000d 029f 0063 | c| Declare_Subprogram INIT_0060,For_Call 000f BODY_0008: 000f e0a9 | | Load 0x0,0xa9 0010 0a01 | | Execute_Immediate Plus,0x1 0011 c0a9 | | Store 0x0,0xa9 0012 e0a9 | | Load 0x0,0xa9 0013 00d8 | | Load_Top At_Offset_0 0014 00e4 | | Load_Encached Positive_Cache 0015 0260 | ` | Execute Discrete,In_Type 0016 7001 |p | Jump_Nonzero 0x18 0017 0801 | | Execute_Immediate Raise,0x1 0018 8061 | a | Call 0x0,0x61 0019 a402 | | Store_Unchecked 0x2,0x2 001a e076 | v | Load 0x0,0x76 001b 680d |h | Jump_Zero 0x29 001c e5ff | | Load 0x2,-0x1 001d e011 | | Load 0x0,0x11 001e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 001f 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0020 8403 | | Call 0x2,0x3 0021 e01a | | Load 0x0,0x1a 0022 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0023 e0aa | | Load 0x0,0xaa 0024 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0025 e402 | | Load 0x2,0x2 0026 0217 | | Execute Heap_Access,All_Reference 0027 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0028 780a |x | Jump 0x33 0029 e5ff | | Load 0x2,-0x1 002a e011 | | Load 0x0,0x11 002b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 002c 1816 | | Execute Package,Field_Execute,Field_Number 0x16 002d 8403 | | Call 0x2,0x3 002e e0aa | | Load 0x0,0xaa 002f 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0030 e402 | | Load 0x2,0x2 0031 0217 | | Execute Heap_Access,All_Reference 0032 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0033 e018 | | Load 0x0,0x18 0034 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0035 0f02 | | Execute_Immediate Equal,0x2 0036 6808 |h | Jump_Zero 0x3f 0037 4801 |H | Short_Literal 0x1 0038 e018 | | Load 0x0,0x18 0039 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 003a 01d7 | | Execute Vector,Field_Read 003b e402 | | Load 0x2,0x2 003c 0217 | | Execute Heap_Access,All_Reference 003d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 003e 7804 |x | Jump 0x43 003f 4800 |H | Short_Literal 0x0 0040 e402 | | Load 0x2,0x2 0041 0217 | | Execute Heap_Access,All_Reference 0042 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0043 e018 | | Load 0x0,0x18 0044 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0045 e018 | | Load 0x0,0x18 0046 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0047 01d7 | | Execute Vector,Field_Read 0048 e402 | | Load 0x2,0x2 0049 0217 | | Execute Heap_Access,All_Reference 004a 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 004b e018 | | Load 0x0,0x18 004c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 004d e402 | | Load 0x2,0x2 004e 0217 | | Execute Heap_Access,All_Reference 004f 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0050 e02c | , | Load 0x0,0x2c 0051 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0052 e402 | | Load 0x2,0x2 0053 0217 | | Execute Heap_Access,All_Reference 0054 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0055 e5fe | | Load 0x2,-0x2 0056 e402 | | Load 0x2,0x2 0057 0217 | | Execute Heap_Access,All_Reference 0058 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0059 4503 |E | Exit_Suprogram New_Top_Offset 0x3 005a 0000 0000 | | .BLANK 0000[0x6] 0060 ; -------------------------------------------------------------------------------------- 0060 ; SUBPROGRAM 0060 ; -------------------------------------------------------------------------------------- 0060 0069 | i | .CONST 0x0069 ; Address of begin 0061 0004 | | .CONST 0x0004 ; Address of exception handler 0062 0004 | | .CONST 0x0004 ; Number of locals 0063 INIT_0060: 0063 4820 |H | Short_Literal 0x20 0064 e7ff | | Load 0x3,-0x1 0065 e01a | | Load 0x0,0x1a 0066 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0067 00e3 | | Load_Encached Natural_Cache 0068 00e3 | | Load_Encached Natural_Cache 0069 BODY_0060: 0069 e602 | | Load 0x3,0x2 006a 01db | | Execute Vector,Length 006b 7002 |p | Jump_Nonzero 0x6e 006c 00ea | | Load_Encached Null_String_Cache 006d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 006e e602 | | Load 0x3,0x2 006f 01dd | | Execute Vector,First 0070 c603 | | Store 0x3,0x3 0071 00cf | | Action Mark_Auxiliary 0072 780c |x | Jump 0x7f 0073 e603 | | Load 0x3,0x3 0074 e602 | | Load 0x3,0x2 0075 01d7 | | Execute Vector,Field_Read 0076 4809 |H | Short_Literal 0x9 0077 480a |H | Short_Literal 0xa 0078 0262 | b | Execute Discrete,In_Range 0079 7001 |p | Jump_Nonzero 0x7b 007a 7809 |x | Jump 0x84 007b e603 | | Load 0x3,0x3 007c 0a01 | | Execute_Immediate Plus,0x1 007d c603 | | Store 0x3,0x3 007e 00c9 | | Action Pop_Auxiliary_Loop 007f e603 | | Load 0x3,0x3 0080 e602 | | Load 0x3,0x2 0081 01dc | | Execute Vector,Last 0082 027a | z | Execute Discrete,Less_Equal 0083 77ef |w | Jump_Nonzero 0x73 0084 00ce | | Action Pop_Auxiliary 0085 e603 | | Load 0x3,0x3 0086 e602 | | Load 0x3,0x2 0087 01dc | | Execute Vector,Last 0088 027d | } | Execute Discrete,Greater 0089 6802 |h | Jump_Zero 0x8c 008a 00ea | | Load_Encached Null_String_Cache 008b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 008c e603 | | Load 0x3,0x3 008d 0a01 | | Execute_Immediate Plus,0x1 008e c604 | | Store 0x3,0x4 008f 00cf | | Action Mark_Auxiliary 0090 781f |x | Jump 0xb0 0091 e604 | | Load 0x3,0x4 0092 e602 | | Load 0x3,0x2 0093 01d7 | | Execute Vector,Field_Read 0094 00d8 | | Load_Top At_Offset_0 0095 4809 |H | Short_Literal 0x9 0096 480a |H | Short_Literal 0xa 0097 0262 | b | Execute Discrete,In_Range 0098 7006 |p | Jump_Nonzero 0x9f 0099 0f20 | | Execute_Immediate Equal,0x20 009a 7005 |p | Jump_Nonzero 0xa0 009b e604 | | Load 0x3,0x4 009c 0a01 | | Execute_Immediate Plus,0x1 009d c604 | | Store 0x3,0x4 009e 7810 |x | Jump 0xaf 009f 00d1 | | Pop_Control Pop_Count_1 00a0 4820 |H | Short_Literal 0x20 00a1 e603 | | Load 0x3,0x3 00a2 e604 | | Load 0x3,0x4 00a3 0aff | | Execute_Immediate Plus,-0x1 00a4 e602 | | Load 0x3,0x2 00a5 01cf | | Execute Vector,Slice_Read 00a6 01cb | | Execute Vector,Append 00a7 e604 | | Load 0x3,0x4 00a8 e602 | | Load 0x3,0x2 00a9 01dc | | Execute Vector,Last 00aa e602 | | Load 0x3,0x2 00ab 01cf | | Execute Vector,Slice_Read 00ac 8403 | | Call 0x2,0x3 00ad 01cc | | Execute Vector,Catenate 00ae 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00af 00c9 | | Action Pop_Auxiliary_Loop 00b0 e604 | | Load 0x3,0x4 00b1 e602 | | Load 0x3,0x2 00b2 01dc | | Execute Vector,Last 00b3 027a | z | Execute Discrete,Less_Equal 00b4 77dc |w | Jump_Nonzero 0x91 00b5 00ce | | Action Pop_Auxiliary 00b6 e603 | | Load 0x3,0x3 00b7 e602 | | Load 0x3,0x2 00b8 01dc | | Execute Vector,Last 00b9 e602 | | Load 0x3,0x2 00ba 01cf | | Execute Vector,Slice_Read 00bb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00bc 0000 0000 | | .BLANK 0000[0x4] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; Debug Table 00c0 ; -------------------------------------------------------------------------------------- 00c0 0004 000f | | .DEBUG4 0x0004,0x000f,0x4805,0x0000,0x0001,0x0000 00c6 0000 0a32 | 2| .XXX[0x2e] 00c8 09d0 3c04 | < | 00ca 8000 0d00 | | 00cc 0000 0004 | | 00ce 0000 0081 | | 00d0 09d0 3c04 | < | 00d2 0800 04b8 | | 00d4 0000 0020 | | 00d6 0000 0000 | | 00d8 09d0 3c04 | < | 00da 0800 09b8 | | 00dc 0000 00a0 | | 00de 0000 0020 | | 00e0 0001 0404 | | 00e2 0800 0400 | | 00e4 0000 011f | | 00e6 0000 0040 | @| 00e8 09d0 3c04 | < | 00ea 0000 0b44 | D| 00ec 0000 0181 | | 00ee 0000 005f | _| 00f0 0000 0000 | | 00f2 0000 0076 | v| 00f4 0000 0000 | | .BLANK 0000[0x4] 00f8 09d0 3c04 | < | .XXX[0xc] 00fa 8800 1011 | | 00fc 0000 0040 | @| 00fe 0000 0040 | @| 0100 09d0 3c04 | < | 0102 0000 0d44 | D| 0104 0000 0000 | | .BLANK 0000[0x4] 0108 09d0 3c04 | < | .XXX[0x10] 010a 0000 0016 | | 010c 0001 bc13 | | 010e 0000 2ab2 | * | 0110 09d0 3c04 | < | 0112 0800 1180 | | 0114 0000 0002 | | 0116 0000 0002 | | 0118 0000 0000 | | .BLANK 0000[0x7] 011f 0002 | | .XXX[0x1] 0120 0000 0000 | | .BLANK 0000[0x1a] 013a 0004 00a0 | | .XXX[0xc] 013c 0000 0000 | | 013e 0000 0800 | | 0140 0000 4400 | D | 0142 0000 0020 | | 0144 0000 0140 | @| 0146 0000 0000 | | .BLANK 0000[0x2e] 0174 8014 0000 | | .XXX[0xb] 0176 0000 0000 | | 0178 0100 0000 | | 017a 0880 0000 | | 017c 0004 0000 | | 017e 0028 | ( | 017f 0000 0000 | | .BLANK 0000[0x2e] 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]