|
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_0bf8df
└─⟦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 00d8 | | .CONST 0x00d8 ; 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 e002 | | Load 0x0,0x2
000d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
000e e002 | | Load 0x0,0x2
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 e002 | | Load 0x0,0x2
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 e002 | | Load 0x0,0x2
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 e002 | | Load 0x0,0x2
0064 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0065 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0066 BODY_0060:
0066 e002 | | Load 0x0,0x2
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 e002 | | Load 0x0,0x2
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 e003 | | Load 0x0,0x3
0074 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0075 e004 | | Load 0x0,0x4
0076 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0077 e002 | | Load 0x0,0x2
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 e002 | | Load 0x0,0x2
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 e002 | | Load 0x0,0x2
008a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
008b 00e1 | | Load_Encached Boolean_Cache
008c 601f |` | Indirect_Literal Discrete,0xac,{0x00000000, 0x00004000}
008d e003 | | Load 0x0,0x3
008e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
008f e5fe | | Load 0x2,-0x2
0090 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0091 e002 | | Load 0x0,0x2
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 e002 | | Load 0x0,0x2
009f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00a0 600b |` | Indirect_Literal Discrete,0xac,{0x00000000, 0x00004000}
00a1 e003 | | Load 0x0,0x3
00a2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00a3 e5fe | | Load 0x2,-0x2
00a4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00a5 e002 | | Load 0x0,0x2
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 e002 | | Load 0x0,0x2
00ba 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00bb 67f0 |g | Indirect_Literal Discrete,0xac,{0x00000000, 0x00004000}
00bc e003 | | Load 0x0,0x3
00bd 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00be e5ff | | Load 0x2,-0x1
00bf 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00c0 e002 | | Load 0x0,0x2
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 4601 |F | Jump_Case 0x2
00cc 7801 |x | Jump 0xce ; case 0x0
00cd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
00ce 00da | | Load_Top At_Offset_2
00cf 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
00d0 0125 | % | Execute Any,Set_Constraint
00d1 00da | | Load_Top At_Offset_2
00d2 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
00d3 1c00 | | Execute_Immediate Run_Utility,0x0
00d4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
00d5 0000 0000 | | .XXX[0x3]
00d7 0000 | |
00d8 ; --------------------------------------------------------------------------------------
00d8 ; Debug Table
00d8 ; --------------------------------------------------------------------------------------
00d8 0004 0002 | | .DEBUG4 0x0004,0x0002,0x0b93,0x0000,0x0001,0x0000
00de e1e0 dde0 | | .XXX[0x3a]
00e0 79e0 91e0 |y |
00e2 b403 6805 | h |
00e4 b1c0 2403 | $ |
00e6 3d20 0797 |= |
00e8 fc70 2003 | p |
00ea 6070 0317 |`p |
00ec fc03 390c | 9 |
00ee 0803 68b0 | h |
00f0 043c 05c0 | < |
00f2 1803 6888 | h |
00f4 1003 6898 | h |
00f6 1070 010c | p |
00f8 0803 6888 | h |
00fa 0803 6898 | h |
00fc 0870 010c | p |
00fe 0803 6c3c | l<|
0100 05c0 0920 | |
0102 0908 0920 | |
0104 0508 0803 | |
0106 6f97 f83c |o <|
0108 05c0 0920 | |
010a 09e0 0520 | |
010c 0797 fc0c | |
010e 6d08 0803 |m |
0110 6f97 fb97 |o |
0112 fc70 1b97 | p |
0114 fc0b f108 | |
0116 0821 a400 | ! |
0118 0000 0000 | | .BLANK 0000[0x5]
011d 0007 0c00 | | .XXX[0xe3]
011f 1000 0518 | |
0121 21e0 210c |! ! |
0123 09e0 81e0 | |
0125 7de0 79e0 |} y |
0127 75e0 71e0 |u q |
0129 21e0 4003 |! @ |
012b 6890 0870 |h p|
012d 0120 0003 | |
012f 6ca0 0d0c |l |
0131 0803 6d20 | m |
0133 0797 f803 | |
0135 a40d 6d20 | m |
0137 0797 fc0c | |
0139 6d08 0803 |m |
013b 6c03 6c0b |l l |
013d f120 0797 | |
013f f803 a40c | |
0141 d0b4 1005 | |
0143 a908 0821 | !|
0145 a400 1000 | |
0147 3bd0 1000 |; |
0149 0000 0400 | |
014b 0000 0000 | |
014d 10c8 cd08 | |
014f e000 0000 | |
0151 1518 e0e4 | |
0153 c10c 0000 | |
0155 2570 003d |%p =|
0157 6000 0000 |` |
0159 12a0 0400 | |
015b 02ec 0002 | |
015d 000c 037c | ||
015f 0010 00d0 | |
0161 0ea4 0310 | |
0163 0a68 03ac | h |
0165 0a68 040c | h |
0167 0a68 048d | h |
0169 2001 2008 | |
016b 0a7c 04cc | | |
016d 0ffb 8004 | |
016f 6c54 04a5 |lT |
0171 2001 2010 | |
0173 0a7c 056c | | l|
0175 0ff8 0a68 | h|
0177 060c 0a68 | h|
0179 076c 0a68 | l h|
017b 08ac 0a68 | h|
017d 094c 0a68 | L h|
017f 09ec 0a68 | h|
0181 0a0c 0a68 | h|
0183 0aec 0ea4 | |
0185 0a68 0b0c | h |
0187 0a68 0b6c | h l|
0189 0a68 0b8c | h |
018b 0a68 0bcc | h |
018d 0a68 0c0c | h |
018f 0a68 0c4c | h L|
0191 0a68 0c8c | h |
0193 0a68 0ccc | h |
0195 0a68 0d2c | h ,|
0197 0a68 0d6c | h l|
0199 0a68 0dad | h |
019b 2004 0ca8 | |
019d 0360 0a83 | ` |
019f 8834 0e8f | 4 |
01a1 8834 04a7 | 4 |
01a3 0839 2008 | 9 |
01a5 0ca8 0360 | `|
01a7 0a83 8870 | p|
01a9 0e8c 02fd | |
01ab 2020 0ca8 | |
01ad 0360 0a80 | ` |
01af 0eb4 0e94 | |
01b1 0364 0364 | d d|
01b3 0e8b 884b | K|
01b5 884f 8008 | O |
01b7 6c3f 8004 |l? |
01b9 6c3c 039f |l< |
01bb 800c 6c37 | l7|
01bd 800c 6c37 | l7|
01bf 88b0 0a83 | |
01c1 88a8 0c98 | |
01c3 0368 0c89 | h |
01c5 2008 0364 | d|
01c7 e001 2000 | |
01c9 0364 e007 | d |
01cb 8008 6c3c | l<|
01cd 0364 e009 | d |
01cf 2000 0364 | d|
01d1 e00d 81fc | |
01d3 0364 e011 | d |
01d5 81e0 0364 | d|
01d7 e015 81d4 | |
01d9 0364 e018 | d |
01db 0364 0364 | d d|
01dd e01f 8013 | |
01df 8017 88ab | |
01e1 88b3 8018 | |
01e3 6c3c 0e1c |l< |
01e5 0360 083c | ` <|
01e7 0368 0a83 | h |
01e9 88a0 0c9b | |
01eb 801f 8023 | #|
01ed 88a3 8837 | 7|
01ef 8018 6c3c | l<|
01f1 0e1c 0360 | `|
01f3 083f 8837 | ? 7|
01f5 88ac 0a83 | |
01f7 88a4 0c9b | |
01f9 8027 802b | ' +|
01fb 88a7 8873 | s|
01fd 8018 6c3c | l<|
01ff 0e1c | |