|
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_ccb0b3
└─⟦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 0021 | ! | .CONST 0x0021 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0007 | | .CONST 0x0007 ; Number of locals
000b INIT_0008:
000b e001 | | Load 0x0,0x1
000c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
000d e001 | | Load 0x0,0x1
000e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
000f 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0010 02c7 | | Declare_Variable Any
0011 00d8 | | Load_Top At_Offset_0
0012 1c00 | | Execute_Immediate Run_Utility,0x0
0013 e002 | | Load 0x0,0x2
0014 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0015 e001 | | Load 0x0,0x1
0016 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0017 02c7 | | Declare_Variable Any
0018 00d8 | | Load_Top At_Offset_0
0019 1c00 | | Execute_Immediate Run_Utility,0x0
001a e001 | | Load 0x0,0x1
001b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
001c 02c7 | | Declare_Variable Any
001d 00d8 | | Load_Top At_Offset_0
001e 1c00 | | Execute_Immediate Run_Utility,0x0
001f 029f 007b | {| Declare_Subprogram INIT_0078,For_Call
0021 BODY_0008:
0021 e002 | | Load 0x0,0x2
0022 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0023 e603 | | Load 0x3,0x3
0024 0120 | | Execute Any,Is_Value
0025 6804 |h | Jump_Zero 0x2a
0026 e001 | | Load 0x0,0x1
0027 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0028 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0029 7801 |x | Jump 0x2b
002a e603 | | Load 0x3,0x3
002b e7f9 | | Load 0x3,-0x7
002c e7ff | | Load 0x3,-0x1
002d e008 | | Load 0x0,0x8
002e 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
002f c603 | | Store 0x3,0x3
0030 c604 | | Store 0x3,0x4
0031 4800 |H | Short_Literal 0x0
0032 e604 | | Load 0x3,0x4
0033 e002 | | Load 0x0,0x2
0034 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0035 7003 |p | Jump_Nonzero 0x39
0036 00db | | Load_Top At_Offset_3
0037 a7f8 | | Store_Unchecked 0x3,-0x8
0038 4508 |E | Exit_Suprogram New_Top_Offset 0x8
0039 00cf | | Action Mark_Auxiliary
003a 7830 |x0 | Jump 0x6b
003b e001 | | Load 0x0,0x1
003c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
003d e605 | | Load 0x3,0x5
003e 0120 | | Execute Any,Is_Value
003f 6803 |h | Jump_Zero 0x43
0040 e001 | | Load 0x0,0x1
0041 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0042 7801 |x | Jump 0x44
0043 e605 | | Load 0x3,0x5
0044 e603 | | Load 0x3,0x3
0045 e001 | | Load 0x0,0x1
0046 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0047 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0048 c605 | | Store 0x3,0x5
0049 c602 | | Store 0x3,0x2
004a e602 | | Load 0x3,0x2
004b 6801 |h | Jump_Zero 0x4d
004c 4508 |E | Exit_Suprogram New_Top_Offset 0x8
004d e002 | | Load 0x0,0x2
004e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
004f 00db | | Load_Top At_Offset_3
0050 0120 | | Execute Any,Is_Value
0051 6803 |h | Jump_Zero 0x55
0052 e001 | | Load 0x0,0x1
0053 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0054 7801 |x | Jump 0x56
0055 00db | | Load_Top At_Offset_3
0056 e7f9 | | Load 0x3,-0x7
0057 e605 | | Load 0x3,0x5
0058 e008 | | Load 0x0,0x8
0059 185d | ] | Execute Package,Field_Execute,Field_Number 0x5d
005a c606 | | Store 0x3,0x6
005b c604 | | Store 0x3,0x4
005c 4800 |H | Short_Literal 0x0
005d e604 | | Load 0x3,0x4
005e e002 | | Load 0x0,0x2
005f 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0060 7003 |p | Jump_Nonzero 0x64
0061 e604 | | Load 0x3,0x4
0062 a7f8 | | Store_Unchecked 0x3,-0x8
0063 4508 |E | Exit_Suprogram New_Top_Offset 0x8
0064 8607 | | Call 0x3,0x7
0065 e603 | | Load 0x3,0x3
0066 e001 | | Load 0x0,0x1
0067 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0068 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0069 c603 | | Store 0x3,0x3
006a 00c9 | | Action Pop_Auxiliary_Loop
006b e603 | | Load 0x3,0x3
006c e001 | | Load 0x0,0x1
006d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
006e 181e | | Execute Package,Field_Execute,Field_Number 0x1e
006f 6fcb |o | Jump_Zero 0x3b
0070 4508 |E | Exit_Suprogram New_Top_Offset 0x8
0071 0000 0000 | | .BLANK 0000[0x7]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 0086 | | .CONST 0x0086 ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0003 | | .CONST 0x0003 ; Number of locals
007b INIT_0078:
007b e7f9 | | Load 0x3,-0x7
007c e605 | | Load 0x3,0x5
007d e008 | | Load 0x0,0x8
007e 1871 | q | Execute Package,Field_Execute,Field_Number 0x71
007f e7f9 | | Load 0x3,-0x7
0080 00d9 | | Load_Top At_Offset_1
0081 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0082 e7fb | | Load 0x3,-0x5
0083 e7fe | | Load 0x3,-0x2
0084 e008 | | Load 0x0,0x8
0085 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0086 BODY_0078:
0086 4800 |H | Short_Literal 0x0
0087 00d9 | | Load_Top At_Offset_1
0088 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0089 e002 | | Load 0x0,0x2
008a 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
008b 6812 |h | Jump_Zero 0x9e
008c e002 | | Load 0x0,0x2
008d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
008e e7f9 | | Load 0x3,-0x7
008f e7fa | | Load 0x3,-0x6
0090 e7fc | | Load 0x3,-0x4
0091 e5fd | | Load 0x2,-0x3
0092 0119 | | Execute Any,Check_In_Formal_Type
0093 e7fd | | Load 0x3,-0x3
0094 e803 | | Load 0x4,0x3
0095 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0096 e606 | | Load 0x3,0x6
0097 00d8 | | Load_Top At_Offset_0
0098 e001 | | Load 0x0,0x1
0099 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
009a 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
009b 85fe | | Call 0x2,-0x2
009c c7f8 | | Store 0x3,-0x8
009d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
009e e006 | | Load 0x0,0x6
009f 180e | | Execute Package,Field_Execute,Field_Number 0xe
00a0 4801 |H | Short_Literal 0x1
00a1 4801 |H | Short_Literal 0x1
00a2 e007 | | Load 0x0,0x7
00a3 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00a4 035b | [ | Declare_Type Array,Constrained
00a5 0337 | 7 | Declare_Variable Array
00a6 e402 | | Load 0x2,0x2
00a7 e005 | | Load 0x0,0x5
00a8 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
00a9 e007 | | Load 0x0,0x7
00aa 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00ab 0119 | | Execute Any,Check_In_Formal_Type
00ac 4801 |H | Short_Literal 0x1
00ad 00da | | Load_Top At_Offset_2
00ae 01d6 | | Execute Vector,Field_Write
00af 6008 |` | Indirect_Literal Discrete,0xb8,{0x00000000, 0x000081e3}
00b0 e002 | | Load 0x0,0x2
00b1 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
00b2 6005 |` | Indirect_Literal Discrete,0xb8,{0x00000000, 0x000081e3}
00b3 a7f8 | | Store_Unchecked 0x3,-0x8
00b4 00cc | | Action Pop_Block
00b5 4508 |E | Exit_Suprogram New_Top_Offset 0x8
00b6 0000 0000 | | .XXX[0x2]
00b8 0000 0000 | | .LITERAL {0x00000000, 0x000081e3}
00bc 0000 0000 | | .BLANK 0000[0x4]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; Debug Table
00c0 ; --------------------------------------------------------------------------------------
00c0 0004 000f | | .DEBUG4 0x0004,0x000f,0x2f44,0x0000,0x0001,0x0000
00c6 481a 5988 |H Y | .XXX[0x79]
00c8 1d1a 1948 | H|
00ca 1bdc 195c | \|
00cc 985d 1a5b | ] [|
00ce db88 1b5b | [|
00d0 d919 4000 | @ |
00d2 0000 0000 | |
00d4 0000 0020 | |
00d6 caba 8020 | |
00d8 ccbc 8020 | |
00da cb84 8000 | |
00dc 0009 0020 | |
00de cbe6 8020 | |
00e0 caba 8000 | |
00e2 0005 0000 | |
00e4 000a 481a | H |
00e6 5cc8 1898 |\ |
00e8 5d18 da0b |] |
00ea 8812 5988 | Y |
00ec 1cd9 5d08 | ] |
00ee 1d1b c81d | |
00f0 1c9d 5948 | YH|
00f2 1d1a 1a5c | \|
00f4 c81d da5b | [|
00f6 1b08 18d8 | |
00f8 5d5c d940 |]\ @|
00fa 20cc 0680 | |
00fc 0000 0900 | |
00fe 20cc 6280 | b |
0100 20cb 6480 | d |
0102 0000 0500 | |
0104 0000 0988 | |
0106 1d1a 1948 | H|
0108 1490 d248 | H|
010a 1d1b c81d | |
010c dc9a 5d19 | ] |
010e 4810 5110 |H Q |
0110 4818 dbdb |H |
0112 5c1a 5b19 |\ [ |
0114 4818 dbdb |H |
0116 5b58 5b99 |[X[ |
0118 1cc0 20cc | |
011a 8280 0000 | |
011c 0900 20cc | |
011e bc80 20cb | |
0120 e680 0000 | |
0122 0500 0000 | |
0124 0548 1a5b | H [|
0126 9d1b c81d | |
0128 1a19 481c | H |
012a d8dc 9a5c | \|
012c 1d08 199a | |
012e 5b19 4000 |[ @ |
0130 0000 0000 | |
0132 0000 0020 | |
0134 cb44 8020 | D |
0136 cc62 8000 | b |
0138 bdcf 4000 | @ |
013a 0000 0000 | |
013c 0000 8041 | A|
013e 926d | m |
013f 0000 0000 | | .BLANK 0000[0x4]
0143 0020 cd2c | ,| .XXX[0x1e]
0145 8000 0009 | |
0147 0020 cda4 | |
0149 8020 cd84 | |
014b 8000 0005 | |
014d 0000 0009 | |
014f 0810 dbdb | |
0151 5b58 5b99 |[X[ |
0153 081d 1bc8 | |
0155 195e 1958 | ^ X|
0157 dd5d 1948 | ] H|
0159 1d1a 1948 | H|
015b 1898 5d18 | ] |
015d da08 1cd8 | |
015f dc9a 5c1d | \ |
0161 0000 0000 | | .BLANK 0000[0x4]
0165 0020 cd0c | | .XXX[0x3d]
0167 8020 cda4 | |
0169 8000 0000 | |
016b 0000 0000 | |
016d 0020 cd84 | |
016f 8020 cd0c | |
0171 8000 bed0 | |
0173 c000 0000 | |
0175 0000 0000 | |
0177 8041 9689 | A |
0179 0041 8ee1 | A |
017b 0040 bd4d | @ M|
017d 0020 ce14 | |
017f 8000 0009 | |
0181 0020 cea8 | |
0183 8020 ce88 | |
0185 8000 0005 | |
0187 0000 000c | |
0189 8810 dbdb | |
018b 5b58 5b99 |[X[ |
018d 081d 1bc8 | |
018f 18db dc1e | |
0191 481b db99 |H |
0193 4819 9a5b |H [|
0195 1948 1d1b | H |
0197 c818 5b9b | [ |
0199 dd1a 195c | \|
019b 881b db88 | |
019d 1d1a 1948 | H|
019f 1d18 5c99 | \ |
01a1 d95d | ] |
01a2 0000 0000 | | .BLANK 0000[0x4]
01a6 0020 cdf4 | | .XXX[0x14]
01a8 8020 cea8 | |
01aa 8000 0000 | |
01ac 0000 0000 | |
01ae 0020 ce88 | |
01b0 8020 cdf4 | |
01b2 8000 bfd2 | |
01b4 4000 0000 |@ |
01b6 0000 0000 | |
01b8 8041 9b09 | A |
01ba 0000 0000 | | .BLANK 0000[0x4]
01be 0020 cf18 | | .XXX[0x21]
01c0 8000 0009 | |
01c2 0020 cf9a | |
01c4 8020 cf7a | z|
01c6 8000 0005 | |
01c8 0000 000a | |
01ca 4815 1a19 |H |
01cc 481b 985b |H [|
01ce 5948 1bd9 |YH |
01d0 881d 1a19 | |
01d2 481b 5bdd |H [ |
01d4 9948 1cd8 | H |
01d6 dc9a 5c1d | \ |
01d8 0b88 151a | |
01da 1a5c c81a | \ |
01dc 5cc8 1d1a |\ |
01de 1940 | @ |
01df 0000 0000 | | .BLANK 0000[0x4]
01e3 20ce f880 | | .XXX[0x1d]
01e5 20d0 8680 | |
01e7 20cf ba80 | |
01e9 0000 0900 | |
01eb 20d0 1280 | |
01ed 20ce f880 | |
01ef 0000 0500 | |
01f1 0000 0908 | |
01f3 199a 5c9c | \ |
01f5 dd08 199a | |
01f7 5b19 481d |[ H |
01f9 dc9a 5d1d | ] |
01fb 195b 881d | [ |
01fd 1bc8 1d1a | |
01ff 1948 | H |