DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦147275f7e⟧

    Length: 1024 (0x400)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6a18da

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦this⟧ 

Disassembly

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 0078       | x  |		.CONST	0x0078								; 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 0027       | '  |		.CONST	0x0027								; Address of begin
0009 0070       | p  |		.CONST	0x0070								; Address of exception handler
000a 0007       |    |		.CONST	0x0007								; Number of locals
000b			INIT_0008:
000b e017       |    |		Load	0x0,0x17
000c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
000d 02ff       |    |		Declare_Variable	Variant_Record
000e 00d8       |    |		Load_Top	At_Offset_0
000f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0010 e017       |    |		Load	0x0,0x17
0011 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0012 02ff       |    |		Declare_Variable	Variant_Record
0013 00d8       |    |		Load_Top	At_Offset_0
0014 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0015 e017       |    |		Load	0x0,0x17
0016 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0017 02ff       |    |		Declare_Variable	Variant_Record
0018 00d8       |    |		Load_Top	At_Offset_0
0019 1c00       |    |		Execute_Immediate	Run_Utility,0x0
001a e018       |    |		Load	0x0,0x18
001b 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
001c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
001d 02c7       |    |		Declare_Variable	Any
001e 00d8       |    |		Load_Top	At_Offset_0
001f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0020 e018       |    |		Load	0x0,0x18
0021 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0022 02ff       |    |		Declare_Variable	Variant_Record
0023 00d8       |    |		Load_Top	At_Offset_0
0024 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0025 e019       |    |		Load	0x0,0x19
0026 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0027			BODY_0008:
0027 e5ff       |    |		Load	0x2,-0x1
0028 e006       |    |		Load	0x0,0x6
0029 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
002a 6802       |h   |		Jump_Zero	0x2d
002b 00ec       |    |		Load_Encached	Diana_Tree_Cache
002c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
002d e5ff       |    |		Load	0x2,-0x1
002e e006       |    |		Load	0x0,0x6
002f 1b40       | @  |		Execute	Package,Field_Read,Field_Number 0x40
0030 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0031 e402       |    |		Load	0x2,0x2
0032 016d       | m  |		Execute	Variant_Record,Structure_Write
0033 e019       |    |		Load	0x0,0x19
0034 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0035 e403       |    |		Load	0x2,0x3
0036 e5fe       |    |		Load	0x2,-0x2
0037 e402       |    |		Load	0x2,0x2
0038 e017       |    |		Load	0x0,0x17
0039 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
003a 00d1       |    |		Pop_Control	Pop_Count_1
003b 0059       | Y  |		Store_Top	Discrete,At_Offset_1
003c 00d8       |    |		Load_Top	At_Offset_0
003d 6802       |h   |		Jump_Zero	0x40
003e 00ec       |    |		Load_Encached	Diana_Tree_Cache
003f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0040 e019       |    |		Load	0x0,0x19
0041 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0042 e404       |    |		Load	0x2,0x4
0043 e01a       |    |		Load	0x0,0x1a
0044 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0045 602e       |`.  |		Indirect_Literal	Discrete,0x74,{0x00000000, 0x00028000}
0046 4800       |H   |		Short_Literal	0x0
0047 e403       |    |		Load	0x2,0x3
0048 e017       |    |		Load	0x0,0x17
0049 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
004a 00d1       |    |		Pop_Control	Pop_Count_1
004b 0059       | Y  |		Store_Top	Discrete,At_Offset_1
004c 00d8       |    |		Load_Top	At_Offset_0
004d 6801       |h   |		Jump_Zero	0x4f
004e 0887       |    |		Execute_Immediate	Raise,0x87
004f 00db       |    |		Load_Top	At_Offset_3
0050 e018       |    |		Load	0x0,0x18
0051 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0052 0162       | b  |		Execute	Variant_Record,Check_In_Type
0053 00da       |    |		Load_Top	At_Offset_2
0054 016d       | m  |		Execute	Variant_Record,Structure_Write
0055 e019       |    |		Load	0x0,0x19
0056 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0057 00db       |    |		Load_Top	At_Offset_3
0058 0120       |    |		Execute	Any,Is_Value
0059 6804       |h   |		Jump_Zero	0x5e
005a e018       |    |		Load	0x0,0x18
005b 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
005c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
005d 7801       |x   |		Jump	0x5f
005e 00db       |    |		Load_Top	At_Offset_3
005f e01a       |    |		Load	0x0,0x1a
0060 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0061 4800       |H   |		Short_Literal	0x0
0062 4800       |H   |		Short_Literal	0x0
0063 e406       |    |		Load	0x2,0x6
0064 e018       |    |		Load	0x0,0x18
0065 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0066 c405       |    |		Store	0x2,0x5
0067 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0068 00d8       |    |		Load_Top	At_Offset_0
0069 6801       |h   |		Jump_Zero	0x6b
006a 0887       |    |		Execute_Immediate	Raise,0x87
006b 00da       |    |		Load_Top	At_Offset_2
006c e018       |    |		Load	0x0,0x18
006d 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
006e 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
006f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0070			TRAP_0008:
0070 0007       |    |		Action	Break_Optional
0071 00ec       |    |		Load_Encached	Diana_Tree_Cache
0072 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0073 0000       |    |		.XXX[0x1]
0074 0000 0000  |    |		.LITERAL	{0x00000000, 0x00028000}
0078 ; --------------------------------------------------------------------------------------
0078 ; Debug Table
0078 ; --------------------------------------------------------------------------------------
0078 0004 000c  |    |		.DEBUG4	0x0004,0x000c,0x000e,0x0000,0x0001,0x0000
007e 2a32 0aaa  |*2  |		.XXX[0x182]
0080 62a2 faa2  |b   |
0082 0a92 3a2a  |  :*|
0084 a2fa 720a  |  r |
0086 6a29 ebd4  |j)  |
0088 a3f4 8118  |    |
008a 001a 5a2a  |  Z*|
008c c8b8 014a  |   J|
008e a20a 923a  |   :|
0090 2aa2 fa22  |*  "|
0092 2a82 2a72  |* *r|
0094 222a 72a2  |"*r |
0096 fa1a 420a  |  B |
0098 920a 1aa2  |    |
009a 2a92 4a9a  |* J |
009c a24a 1a99  | J  |
009e 725a 2aca  |rZ* |
00a0 fa22 0aa2  | "  |
00a2 0803 f481  |    |
00a4 1800 5232  |  R2|
00a6 7a92 fa7a  |z  z|
00a8 1252 2a1a  | R* |
00aa a0b8 0082  |    |
00ac 224a 922a  |"J *|
00ae 1aa2 7a92  |  z |
00b0 c972 7a12  | rz |
00b2 522a 1aa0  |R*  |
00b4 03f4 8118  |    |
00b6 006a 9a2a  | j *|
00b8 924a 0a62  | J b|
00ba fa72 aa6a  | r j|
00bc 122a 90b8  | *  |
00be 008a 9aa2  |    |
00c0 0a72 220a  | r" |
00c2 9221 7282  | !r |
00c4 7a9a 4aa2  |z J |
00c6 4ab2 2800  |J ( |
00c8 b800 7a9a  |  z |
00ca a20a 7222  |  r"|
00cc 0a92 2172  |  !r|
00ce 9aa2 924a  |   J|
00d0 7238 0000  |r8  |
00d2 0b0a 8800  |    |
00d4 0001 a000  |    |
00d6 0000 1000  |    |
00d8 0007 f003  |    |
00da 2544 1524  |%D $|
00dc 7455 45f4  |tUE |
00de 4455 0454  |DU T|
00e0 e444 54e5  | DT |
00e2 45f4 3484  |E 4 |
00e4 1524 1435  | $ 5|
00e6 4455 2495  |DU$ |
00e8 3544 9435  |5D 5|
00ea 32e4 34f4  |2 4 |
00ec d4d4 14e4  |    |
00ee 45f5 3455  |E 4U|
00f0 0415 2415  |  $ |
00f2 44f5 23d7  |D # |
00f4 a947 e902  | G  |
00f6 3000 34b4  |0 4 |
00f8 5591 7002  |U p |
00fa 9544 1524  | D $|
00fc 7455 45f4  |tUE |
00fe 4455 0454  |DU T|
0100 e444 54e5  | DT |
0102 45f4 3484  |E 4 |
0104 1524 1435  | $ 5|
0106 4455 2495  |DU$ |
0108 3544 9435  |5D 5|
010a 32e4 b455  |2  U|
010c 95f4 4415  |  D |
010e 4410 0170  |D  p|
0110 00f5 3544  |  5D|
0112 14e4 4415  |  D |
0114 2442 e535  |$B 5|
0116 4524 94e4  |E$  |
0118 7000 0000  |p   |
011a 0000 0000  |    |
011c 0700 0000  |    |
011e 0020 0000  |    |
0120 1320 068a  |    |
0122 882a 48e8  | *H |
0124 aa8b e888  |    |
0126 aa08 a9c8  |    |
0128 88a9 ca8b  |    |
012a e869 082a  | i *|
012c 4828 6a88  |H(j |
012e aa49 2a6a  | I*j|
0130 8928 6a65  | (je|
0132 c869 e9aa  | i  |
0134 0929 88aa  | )  |
0136 4bea 0a49  |K  I|
0138 ea08 aa4a  |   J|
013a 8928 aa67  | ( g|
013c af52 8fd2  | R  |
013e 0460 0188  | `  |
0140 c9ea 4be8  |  K |
0142 69e9 aa09  |i   |
0144 2988 aa42  |)  B|
0146 e006 0a88  |    |
0148 2a48 e8aa  |*H  |
014a 8be8 88aa  |    |
014c 08a9 c888  |    |
014e a9ca 8be8  |    |
0150 6908 2a48  |i *H|
0152 286a 88aa  |(j  |
0154 492a 6a89  |I*j |
0156 286a 65ca  |(je |
0158 882a 48e8  | *H |
015a aa8b e869  |   i|
015c e9aa 0929  |   )|
015e 88aa 4002  |  @ |
0160 e002 e869  |   i|
0162 e9aa 0929  |   )|
0164 88aa 4bea  |  K |
0166 0a49 ea08  | I  |
0168 aa4a 8b2b  | J +|
016a e82a 4a48  | *JH|
016c 2b20 0000  |+   |
016e 0000 0000  |    |
0170 001b 8000  |    |
0172 0000 4000  |  @ |
0174 0017 000b  |    |
0176 d510 5491  |  T |
0178 d155 17d1  | U  |
017a 1154 1153  | T S|
017c 9111 5395  |  S |
017e 17d0 d210  |    |
0180 5490 50d5  |T P |
0182 1154 9254  | T T|
0184 d512 50d4  |  P |
0186 cb95 1054  |   T|
0188 91d1 5517  |  U |
018a d350 50d2  | PP |
018c 1253 914e  | S N|
018e e65b 8c40  | [ @|
0190 01d5 9056  |   V|
0192 17d5 9354  |   T|
0194 cc40 0294  | @  |
0196 94cd 8c0c  |    |
0198 0c17 d052  |   R|
019a 560c 4003  |V @ |
019c 53d5 1211  |S   |
019e 5497 d350  |T  P|
01a0 50d2 1253  |P  S|
01a2 9140 0000  | @  |
01a4 5c51 8000  |\Q  |
01a6 0001 8000  |    |
01a8 0000 8000  |    |
01aa 004d 8014  | M  |
01ac 2a20 a923  |*  #|
01ae a2aa 2fa2  |  / |
01b0 22a8 22a7  |" " |
01b2 2222 a72a  |"" *|
01b4 2fa1 a420  |/   |
01b6 a920 a1aa  |    |
01b8 22a9 24a9  |" $ |
01ba aa24 a1a9  | $  |
01bc 9721 a7a7  | !  |
01be 2b22 a92a  |+" *|
01c0 1ebd 4a3f  |  J?|
01c2 4811 8004  |H   |
01c4 21a7 a6a8  |!   |
01c6 24a6 22a9  |$ " |
01c8 0b80 182a  |   *|
01ca 20a9 23a2  |  # |
01cc aa2f a222  | / "|
01ce a822 a722  | " "|
01d0 22a7 2a2f  |" */|
01d2 a1a4 20a9  |    |
01d4 20a1 aa22  |   "|
01d6 a924 a9aa  | $  |
01d8 24a1 a997  |$   |
01da 2a20 a923  |*  #|
01dc a2aa 2fa1  |  / |
01de a7a6 a824  |   $|
01e0 a622 a900  | "  |
01e2 0b80 14aa  |    |
01e4 20a9 23a2  |  # |
01e6 aa2f a222  | / "|
01e8 a822 a722  | " "|
01ea 22a7 2a2f  |" */|
01ec a1a4 20a9  |    |
01ee 20a1 aa22  |   "|
01f0 a924 a9aa  | $  |
01f2 24a1 a997  |$   |
01f4 25a2 acaf  |%   |
01f6 a220 aa20  |    |
01f8 8000 0000  |    |
01fa 0000 0000  |    |
01fc 0900 0000  |    |
01fe 0100 0000  |    |