|
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_0d2ce3
└─⟦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 00e0 | | .CONST 0x00e0 ; 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 005b | [ | .CONST 0x005b ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0011 | | .CONST 0x0011 ; Number of locals
000b INIT_0008:
000b 00e1 | | Load_Encached Boolean_Cache
000c e001 | | Load 0x0,0x1
000d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
000e e001 | | Load 0x0,0x1
000f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0010 029f 00cb | | Declare_Subprogram INIT_00c8,For_Call
0012 4803 |H | Short_Literal 0x3
0013 032e | . | Declare_Type Record,Defined,Visible
0014 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated
0016 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated
0018 00bf | | Action Accept_Activation
0019 e001 | | Load 0x0,0x1
001a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
001b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
001c 0266 | f | Execute Discrete,Bounds
001d e001 | | Load 0x0,0x1
001e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
001f 02a0 | | Declare_Subprogram Null_Subprogram
0020 4801 |H | Short_Literal 0x1
0021 035d | ] | Declare_Type Array,Defined
0022 00d8 | | Load_Top At_Offset_0
0023 0337 | 7 | Declare_Variable Array
0024 00d8 | | Load_Top At_Offset_0
0025 0335 | 5 | Declare_Variable Array,Duplicate
0026 00cd | | Action Spare6_Action
0027 4800 |H | Short_Literal 0x0
0028 4800 |H | Short_Literal 0x0
0029 00da | | Load_Top At_Offset_2
002a 01d6 | | Execute Vector,Field_Write
002b 4809 |H | Short_Literal 0x9
002c 4801 |H | Short_Literal 0x1
002d 00da | | Load_Top At_Offset_2
002e 01d6 | | Execute Vector,Field_Write
002f 4809 |H | Short_Literal 0x9
0030 4802 |H | Short_Literal 0x2
0031 00da | | Load_Top At_Offset_2
0032 01d6 | | Execute Vector,Field_Write
0033 4809 |H | Short_Literal 0x9
0034 4806 |H | Short_Literal 0x6
0035 4809 |H | Short_Literal 0x9
0036 00d9 | | Load_Top At_Offset_1
0037 e212 | | Load 0x1,0x12
0038 01d6 | | Execute Vector,Field_Write
0039 3ffb |? | Loop_Increasing 0x35
003a 480d |H | Short_Literal 0xd
003b 480b |H | Short_Literal 0xb
003c 4809 |H | Short_Literal 0x9
003d 00d9 | | Load_Top At_Offset_1
003e e212 | | Load 0x1,0x12
003f 01d6 | | Execute Vector,Field_Write
0040 3ffb |? | Loop_Increasing 0x3c
0041 4808 |H | Short_Literal 0x8
0042 4803 |H | Short_Literal 0x3
0043 00da | | Load_Top At_Offset_2
0044 01d6 | | Execute Vector,Field_Write
0045 4801 |H | Short_Literal 0x1
0046 4804 |H | Short_Literal 0x4
0047 00da | | Load_Top At_Offset_2
0048 01d6 | | Execute Vector,Field_Write
0049 480a |H | Short_Literal 0xa
004a 4805 |H | Short_Literal 0x5
004b 00da | | Load_Top At_Offset_2
004c 01d6 | | Execute Vector,Field_Write
004d 480d |H | Short_Literal 0xd
004e 480a |H | Short_Literal 0xa
004f 00da | | Load_Top At_Offset_2
0050 01d6 | | Execute Vector,Field_Write
0051 480e |H | Short_Literal 0xe
0052 480e |H | Short_Literal 0xe
0053 00da | | Load_Top At_Offset_2
0054 01d6 | | Execute Vector,Field_Write
0055 00d9 | | Load_Top At_Offset_1
0056 01d4 | | Execute Vector,Structure_Write
0057 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0058 00c7 | | Action Elaborate_Subprogram
0059 1d0f | | Execute_Immediate Reference_Lex_1,0xf
005a 00c7 | | Action Elaborate_Subprogram
005b BODY_0008:
005b 00bc | | Action Signal_Activated
005c 00bb | | Action Signal_Completion
005d 0000 0000 | | .XXX[0x3]
005f 0000 | |
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0066 | f | .CONST 0x0066 ; Address of begin
0061 0004 | | .CONST 0x0004 ; Address of exception handler
0062 0002 | | .CONST 0x0002 ; Number of locals
0063 INIT_0060:
0063 e001 | | Load 0x0,0x1
0064 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0065 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0066 BODY_0060:
0066 e001 | | Load 0x0,0x1
0067 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0068 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0069 e5fe | | Load 0x2,-0x2
006a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
006b 0120 | | Execute Any,Is_Value
006c 6803 |h | Jump_Zero 0x70
006d e001 | | Load 0x0,0x1
006e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
006f 7802 |x | Jump 0x72
0070 e5fe | | Load 0x2,-0x2
0071 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0072 6039 |`9 | Indirect_Literal Discrete,0xac,{0x00000000, 0x00004000}
0073 e002 | | Load 0x0,0x2
0074 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0075 e003 | | Load 0x0,0x3
0076 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0077 e001 | | Load 0x0,0x1
0078 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0079 1816 | | Execute Package,Field_Execute,Field_Number 0x16
007a e5ff | | Load 0x2,-0x1
007b e001 | | Load 0x0,0x1
007c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
007d 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
007e e5fe | | Load 0x2,-0x2
007f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0080 0059 | Y | Store_Top Discrete,At_Offset_1
0081 00d8 | | Load_Top At_Offset_0
0082 e211 | | Load 0x1,0x11
0083 01d7 | | Execute Vector,Field_Read
0084 e5fe | | Load 0x2,-0x2
0085 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0086 e5fe | | Load 0x2,-0x2
0087 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0088 7021 |p! | Jump_Nonzero 0xaa
0089 e001 | | Load 0x0,0x1
008a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
008b 00e1 | | Load_Encached Boolean_Cache
008c 601f |` | Indirect_Literal Discrete,0xac,{0x00000000, 0x00004000}
008d e002 | | Load 0x0,0x2
008e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
008f e5fe | | Load 0x2,-0x2
0090 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0091 e001 | | Load 0x0,0x1
0092 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
0093 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0094 e5fe | | Load 0x2,-0x2
0095 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0096 e5fe | | Load 0x2,-0x2
0097 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0098 e5fe | | Load 0x2,-0x2
0099 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
009a 700f |p | Jump_Nonzero 0xaa
009b e5fe | | Load 0x2,-0x2
009c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
009d 680c |h | Jump_Zero 0xaa
009e e001 | | Load 0x0,0x1
009f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00a0 600b |` | Indirect_Literal Discrete,0xac,{0x00000000, 0x00004000}
00a1 e002 | | Load 0x0,0x2
00a2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00a3 e5fe | | Load 0x2,-0x2
00a4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00a5 e001 | | Load 0x0,0x1
00a6 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
00a7 181e | | Execute Package,Field_Execute,Field_Number 0x1e
00a8 e5fe | | Load 0x2,-0x2
00a9 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00aa 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00ab 0000 | | .XXX[0x1]
00ac 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3 | | .CONST 0x00b3 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0001 | | .CONST 0x0001 ; Number of locals
00b3 BODY_00b0:
00b3 INIT_00b0:
00b3 00da | | Load_Top At_Offset_2
00b4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00b5 700f |p | Jump_Nonzero 0xc5
00b6 00da | | Load_Top At_Offset_2
00b7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00b8 680c |h | Jump_Zero 0xc5
00b9 e001 | | Load 0x0,0x1
00ba 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00bb 67f0 |g | Indirect_Literal Discrete,0xac,{0x00000000, 0x00004000}
00bc e002 | | Load 0x0,0x2
00bd 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00be e5ff | | Load 0x2,-0x1
00bf 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00c0 e001 | | Load 0x0,0x1
00c1 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
00c2 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00c3 00db | | Load_Top At_Offset_3
00c4 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00c5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00c6 0000 0000 | | .XXX[0x2]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb | | .CONST 0x00cb ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0001 | | .CONST 0x0001 ; Number of locals
00cb BODY_00c8:
00cb INIT_00c8:
00cb 4608 |F | Jump_Case 0x9
00cc 7808 |x | Jump 0xd5 ; case 0x0
00cd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
00ce 780d |x | Jump 0xdc ; case 0x2
00cf 780c |x | Jump 0xdc ; case 0x3
00d0 780b |x | Jump 0xdc ; case 0x4
00d1 780a |x | Jump 0xdc ; case 0x5
00d2 7809 |x | Jump 0xdc ; case 0x6
00d3 7808 |x | Jump 0xdc ; case 0x7
00d4 7807 |x | Jump 0xdc ; case 0x8
00d5 00da | | Load_Top At_Offset_2
00d6 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
00d7 0125 | % | Execute Any,Set_Constraint
00d8 00da | | Load_Top At_Offset_2
00d9 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
00da 1c00 | | Execute_Immediate Run_Utility,0x0
00db 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
00dc 0869 | i | Execute_Immediate Raise,0x69
00dd 0000 0000 | | .XXX[0x3]
00df 0000 | |
00e0 ; --------------------------------------------------------------------------------------
00e0 ; Debug Table
00e0 ; --------------------------------------------------------------------------------------
00e0 0004 0000 | | .DEBUG4 0x0004,0x0000,0x7834,0x0000,0x0001,0x0000
00e6 8080 8080 | | .BLANK 8080[0x7]
00ed 8081 1195 | | .XXX[0x18]
00ef 89d5 9cb9 | |
00f1 49d5 b880 |I |
00f3 a14d d1bd | M |
00f5 c17d 05d0 | } |
00f7 80f4 f881 | |
00f9 1195 89d5 | |
00fb 9cb9 31bd | 1 |
00fd 8d85 b17d | }|
00ff 4dd1 85d1 |M |
0101 95b5 95b9 | |
0103 d0a4 ec28 | (|
0105 8080 8080 | | .BLANK 8080[0x7]
010c 8081 dda1 | | .XXX[0x9]
010e 95b8 8115 | |
0110 cd8d 7d18 | } |
0112 c880 f4f8 | |
0114 2880 |( |
0115 8080 8080 | | .BLANK 8080[0x9]
011e 8111 9589 | | .XXX[0x12]
0120 d59c b905 | |
0122 8dd1 a5d9 | |
0124 85d1 9480 | |
0126 a109 c995 | |
0128 85ad c1bd | |
012a a5b9 d080 | |
012c f4f8 80c0 | |
012e a4ec 2880 | ( |
0130 8080 8080 | | .BLANK 8080[0x7]
0137 81dd a195 | | .XXX[0x8]
0139 b881 15cd | |
013b 8d7d 18cc | } |
013d 80f4 f828 | (|
013f 8080 8080 | | .BLANK 8080[0x9]
0148 8081 1195 | | .XXX[0x15]
014a 89d5 9cb9 | |
014c 41c9 bdc1 |A |
014e 859d 85d1 | |
0150 9480 a139 | 9|
0152 85b5 9480 | |
0154 f4f8 8088 | |
0156 f14d 1531 | M 1|
0158 150d 5125 | Q%|
015a 3d38 f888 |=8 |
015c b028 | ( |
015d 8080 8080 | | .BLANK 8080[0x12]
016f 8125 b97d | % }| .XXX[0x8]
0171 5185 cdac |Q |
0173 80f4 f880 | |
0175 8888 b028 | (|
0177 8080 8080 | | .BLANK 8080[0x12]
0189 8105 d17d | }| .XXX[0xb]
018b 31bd 8d85 |1 |
018d d1a5 bdb8 | |
018f 80f4 f880 | |
0191 8888 a4ec | |
0193 2880 |( |
0194 8080 8080 | | .BLANK 8080[0x7]
019b 81dd a195 | | .XXX[0x8]
019d b881 15cd | |
019f 8d7d 18d0 | } |
01a1 80f4 f828 | (|
01a3 8080 8080 | | .BLANK 8080[0x9]
01ac 8081 0dbd | | .XXX[0x1d]
01ae b5b5 bdb8 | |
01b0 b915 b98d | |
01b2 b1bd cda5 | |
01b4 b99c 80a1 | |
01b6 25b9 7d41 |% }A|
01b8 b185 8d94 | |
01ba 80f4 f881 | |
01bc 1985 b1cd | |
01be 94b0 8131 | 1|
01c0 a589 c985 | |
01c2 c9e4 80f4 | |
01c4 f881 51c9 | Q |
01c6 d594 a4ec | |
01c8 2880 |( |
01c9 8080 8080 | | .BLANK 8080[0x7]
01d0 81dd a195 | | .XXX[0x8]
01d2 b881 15cd | |
01d4 8d7d 18d4 | } |
01d6 80f4 f828 | (|
01d8 8080 8080 | | .BLANK 8080[0x9]
01e1 8081 1591 | | .XXX[0x13]
01e3 a5d1 bdc8 | |
01e5 b925 b585 | % |
01e7 9d94 b919 | |
01e9 a5b9 9080 | |
01eb a089 2195 | ! |
01ed b1c0 815d | ]|
01ef a5b9 91bd | |
01f1 dc88 a4ec | |
01f3 2880 |( |
01f4 8080 8080 | | .BLANK 8080[0x7]
01fb 81dd a195 | | .XXX[0x5]
01fd b881 15cd | |
01ff 8d7d | } |