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

⟦ee737574e⟧

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

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦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 0098       |    |		.CONST	0x0098								; 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 0016       |    |		.CONST	0x0016								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 000c       |    |		.CONST	0x000c								; Number of locals
000b			INIT_0008:
000b e20e       |    |		Load	0x1,0xe
000c 03d8       |    |		Declare_Variable	Float,Duplicate
000d 03d8       |    |		Declare_Variable	Float,Duplicate
000e 03d8       |    |		Declare_Variable	Float,Duplicate
000f 03d8       |    |		Declare_Variable	Float,Duplicate
0010 03d8       |    |		Declare_Variable	Float,Duplicate
0011 e22c       | ,  |		Load	0x1,0x2c
0012 03e9       |    |		Declare_Variable	Discrete,Duplicate
0013 03e9       |    |		Declare_Variable	Discrete,Duplicate
0014 03e9       |    |		Declare_Variable	Discrete,Duplicate
0015 03e9       |    |		Declare_Variable	Discrete,Duplicate
0016			BODY_0008:
0016 e5ff       |    |		Load	0x2,-0x1
0017 c403       |    |		Store	0x2,0x3
0018 e403       |    |		Load	0x2,0x3
0019 5876       |Xv  |		Indirect_Literal	Float,0x90,46.16624130844683
001a 023b       | ;  |		Execute	Float,Times
001b 0235       | 5  |		Execute	Float,Round_To_Discrete
001c e22c       | ,  |		Load	0x1,0x2c
001d 025e       | ^  |		Execute	Discrete,Convert
001e a409       |    |		Store_Unchecked	0x2,0x9
001f 00db       |    |		Load_Top	At_Offset_3
0020 0274       | t  |		Execute	Discrete,Absolute_Value
0021 4900       |I   |		Short_Literal	0x100
0022 027b       | {  |		Execute	Discrete,Greater_Equal
0023 6809       |h   |		Jump_Zero	0x2d
0024 00db       |    |		Load_Top	At_Offset_3
0025 483f       |H?  |		Short_Literal	0x3f
0026 0279       | y  |		Execute	Discrete,And
0027 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0028 00db       |    |		Load_Top	At_Offset_3
0029 00da       |    |		Load_Top	At_Offset_2
002a 0272       | r  |		Execute	Discrete,Minus
002b 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
002c 7804       |x   |		Jump	0x31
002d 4800       |H   |		Short_Literal	0x0
002e 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
002f 00db       |    |		Load_Top	At_Offset_3
0030 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0031 00da       |    |		Load_Top	At_Offset_2
0032 0237       | 7  |		Execute	Float,Convert_From_Discrete
0033 e20e       |    |		Load	0x1,0xe
0034 0238       | 8  |		Execute	Float,Convert
0035 e23d       | =  |		Load	0x1,0x3d
0036 023b       | ;  |		Execute	Float,Times
0037 c407       |    |		Store	0x2,0x7
0038 e403       |    |		Load	0x2,0x3
0039 023e       | >  |		Execute	Float,Absolute_Value
003a e407       |    |		Load	0x2,0x7
003b 023e       | >  |		Execute	Float,Absolute_Value
003c 0243       | C  |		Execute	Float,Greater_Equal
003d 6805       |h   |		Jump_Zero	0x43
003e e403       |    |		Load	0x2,0x3
003f e407       |    |		Load	0x2,0x7
0040 023c       | <  |		Execute	Float,Minus
0041 c404       |    |		Store	0x2,0x4
0042 780a       |x   |		Jump	0x4d
0043 5848       |XH  |		Indirect_Literal	Float,0x8c,0.5
0044 e407       |    |		Load	0x2,0x7
0045 023b       | ;  |		Execute	Float,Times
0046 c407       |    |		Store	0x2,0x7
0047 e403       |    |		Load	0x2,0x3
0048 e407       |    |		Load	0x2,0x7
0049 023c       | <  |		Execute	Float,Minus
004a e407       |    |		Load	0x2,0x7
004b 023c       | <  |		Execute	Float,Minus
004c c404       |    |		Store	0x2,0x4
004d 00d9       |    |		Load_Top	At_Offset_1
004e 6809       |h   |		Jump_Zero	0x58
004f e404       |    |		Load	0x2,0x4
0050 00da       |    |		Load_Top	At_Offset_2
0051 0237       | 7  |		Execute	Float,Convert_From_Discrete
0052 e20e       |    |		Load	0x1,0xe
0053 0238       | 8  |		Execute	Float,Convert
0054 e23d       | =  |		Load	0x1,0x3d
0055 023b       | ;  |		Execute	Float,Times
0056 023c       | <  |		Execute	Float,Minus
0057 c404       |    |		Store	0x2,0x4
0058 00db       |    |		Load_Top	At_Offset_3
0059 0237       | 7  |		Execute	Float,Convert_From_Discrete
005a e20e       |    |		Load	0x1,0xe
005b 0238       | 8  |		Execute	Float,Convert
005c e23e       | >  |		Load	0x1,0x3e
005d 023b       | ;  |		Execute	Float,Times
005e 023f       | ?  |		Execute	Float,Unary_Minus
005f c405       |    |		Store	0x2,0x5
0060 00db       |    |		Load_Top	At_Offset_3
0061 481f       |H   |		Short_Literal	0x1f
0062 0279       | y  |		Execute	Discrete,And
0063 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0064 00db       |    |		Load_Top	At_Offset_3
0065 00d9       |    |		Load_Top	At_Offset_1
0066 0272       | r  |		Execute	Discrete,Minus
0067 09fb       |    |		Execute_Immediate	Binary_Scale,-0x5
0068 a5fe       |    |		Store_Unchecked	0x2,-0x2
0069 e405       |    |		Load	0x2,0x5
006a e20e       |    |		Load	0x1,0xe
006b 0232       | 2  |		Execute	Float,Check_In_Type
006c e404       |    |		Load	0x2,0x4
006d e20e       |    |		Load	0x1,0xe
006e 0232       | 2  |		Execute	Float,Check_In_Type
006f 824d       | M  |		Call	0x1,0x4d
0070 c406       |    |		Store	0x2,0x6
0071 4800       |H   |		Short_Literal	0x0
0072 00d9       |    |		Load_Top	At_Offset_1
0073 e242       | B  |		Load	0x1,0x42
0074 01a7       |    |		Execute	Matrix,Field_Read
0075 4801       |H   |		Short_Literal	0x1
0076 00da       |    |		Load_Top	At_Offset_2
0077 e242       | B  |		Load	0x1,0x42
0078 01a7       |    |		Execute	Matrix,Field_Read
0079 023d       | =  |		Execute	Float,Plus
007a c402       |    |		Store	0x2,0x2
007b 4800       |H   |		Short_Literal	0x0
007c 00d9       |    |		Load_Top	At_Offset_1
007d e242       | B  |		Load	0x1,0x42
007e 01a7       |    |		Execute	Matrix,Field_Read
007f c5fd       |    |		Store	0x2,-0x3
0080 4801       |H   |		Short_Literal	0x1
0081 00d9       |    |		Load_Top	At_Offset_1
0082 e242       | B  |		Load	0x1,0x42
0083 01a7       |    |		Execute	Matrix,Field_Read
0084 e402       |    |		Load	0x2,0x2
0085 e406       |    |		Load	0x2,0x6
0086 023b       | ;  |		Execute	Float,Times
0087 023d       | =  |		Execute	Float,Plus
0088 c5fc       |    |		Store	0x2,-0x4
0089 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
008a 0000 0000  |    |		.XXX[0x2]
008c 3fe0 0000  |?   |		.DBL	0.5
008e 0000 0000  |    |
0090 4047 1547  |@G G|		.DBL	46.16624130844683
0092 652b 82fe  |e+  |
0094 0000 0000  |    |		.BLANK	0000[0x4]
0098 ; --------------------------------------------------------------------------------------
0098 ; Debug Table
0098 ; --------------------------------------------------------------------------------------
0098 0004 0014  |    |		.DEBUG4	0x0004,0x0014,0x8f33,0x0000,0x0001,0x0000
009e cdd1 c9d5  |    |		.XXX[0x110]
00a0 8dd1 cc81  |    |
00a2 9195 99a5  |    |
00a4 b995 9028  |   (|
00a6 81a5 b881  |    |
00a8 c185 8dad  |    |
00aa 859d 9481  |    |
00ac 19bd c9b5  |    |
00ae 85d1 d195  |    |
00b0 c8b8 8165  |   e|
00b2 bdd4 81dd  |    |
00b4 85b9 d081  |    |
00b6 d1bc 81ad  |    |
00b8 b9bd dc81  |    |
00ba b9bd d081  |    |
00bc bdb9 b1e4  |    |
00be 81d1 a194  |    |
00c0 81b9 85b5  |    |
00c2 95cc 81bd  |    |
00c4 9881 d1a1  |    |
00c6 9481 d5b9  |    |
00c8 a5d1 ccb0  |    |
00ca 2881 89d5  |(   |
00cc d081 85b1  |    |
00ce cdbc 81d1  |    |
00d0 a194 818d  |    |
00d2 bdb9 cdd1  |    |
00d4 c9d5 8dd1  |    |
00d6 cc81 d1a1  |    |
00d8 85d0 81d1  |    |
00da a195 e481  |    |
00dc c995 9995  |    |
00de c995 b98d  |    |
00e0 9481 85b9  |    |
00e2 9081 d1a1  |    |
00e4 9481 b1a5  |    |
00e6 b994 81b9  |    |
00e8 d5b5 8995  |    |
00ea c9cc 81bd  |    |
00ec 9881 89bd  |    |
00ee d1a0 2881  |  ( |
00f0 d1a1 9481  |    |
00f2 9195 99a5  |    |
00f4 b9a5 d1a5  |    |
00f6 bdb8 8185  |    |
00f8 b990 81d5  |    |
00fa cd85 9d94  |    |
00fc b828 2881  | (( |
00fe 09e4 8195  |    |
0100 e195 8dd5  |    |
0102 d1a5 b99c  |    |
0104 81d1 a194  |    |
0106 8199 bdb1  |    |
0108 b1bd dda5  |    |
010a b99c 818d  |    |
010c bdb5 b585  |    |
010e b990 b081  |    |
0110 e5bd d481  |    |
0112 8d85 b881  |    |
0114 8d85 d5cd  |    |
0116 9481 d1a1  |    |
0118 9481 15b9  |    |
011a d9a5 c9bd  |    |
011c b9b5 95b9  |    |
011e d081 d1bc  |    |
0120 2881 a591  |(   |
0122 95b9 d1a5  |    |
0124 99e4 818d  |    |
0126 bdb9 cdd1  |    |
0128 c9d5 8dd1  |    |
012a cc81 bd98  |    |
012c 81d1 a194  |    |
012e 8191 9599  |    |
0130 85d5 b1d0  |    |
0132 81d1 e5c1  |    |
0134 95cc 80a1  |    |
0136 99d5 b98d  |    |
0138 d1a5 bdb9  |    |
013a ccb0 819d  |    |
013c 95b9 95c9  |    |
013e a58d ccb0  |    |
0140 8185 b990  |    |
0142 2881 c1c9  |(   |
0144 bd8d 9591  |    |
0146 d5c9 95cc  |    |
0148 a481 99c9  |    |
014a bdb4 8119  |    |
014c bdc9 b585  |    |
014e d1d1 95c8  |    |
0150 8185 b990  |    |
0152 8191 95d1  |    |
0154 95c9 b5a5  |    |
0156 b994 81d1  |    |
0158 a194 81d5  |    |
015a b9a5 d1cc  |    |
015c 81d1 a185  |    |
015e d081 c995  |    |
0160 9995 c995  |    |
0162 b98d 9481  |    |
0164 d1a1 bdcd  |    |
0166 9428 818d  | (  |
0168 bdb9 cdd1  |    |
016a c9d5 8dd1  |    |
016c cce8 2828  |  ((|
016e 8080 8161  |   a|
0170 c995 98b9  |    |
0172 55cd 9591  |U   |
0174 7d09 e480  |}   |
0176 a089 19bd  |    |
0178 c9b5 85d1  |    |
017a d195 c89d  |    |
017c 4dc1 958c  |M   |
017e 88a4 ec28  |   (|
0180 2881 51a1  |( Q |
0182 9481 c995  |    |
0184 cdd5 b1d1  |    |
0186 a5b9 9c81  |    |
0188 c995 c1bd  |    |
018a c9d0 81a5  |    |
018c cc81 91a5  |    |
018e cdc1 b185  |    |
0190 e595 9081  |    |
0192 a5b8 8185  |    |
0194 b881 15b9  |    |
0196 d9a5 c9bd  |    |
0198 b9b5 95b9  |    |
019a d081 bdd5  |    |
019c d1c1 d5d0  |    |
019e 81dd a5b9  |    |
01a0 91bd dcb0  |    |
01a2 8185 cc28  |   (|
01a4 81cd a1bd  |    |
01a6 ddb8 8189  |    |
01a8 95b1 bddc  |    |
01aa e828 2881  | (( |
01ac 2551 1534  |%Q 4|
01ae 8080 8080  |    |		.BLANK	8080[0x8]
01b6 8111 1519  |    |		.XXX[0x6]
01b8 2539 1510  |%9  |
01ba 8125 3880  | %8 |
01bc 8080 8080  |    |		.BLANK	8080[0x6]
01c2 8125 4c81  | %L |		.XXX[0x3e]
01c4 4915 1915  |I   |
01c6 4949 1510  |II  |
01c8 8151 3c81  | Q< |
01ca 0964 2828  | d((|
01cc 8141 4925  | AI%|
01ce 3951 7d21  |9Q}!|
01d0 1505 1115  |    |
01d2 4880 8080  |H   |
01d4 8080 8080  |    |
01d6 8081 193d  |   =|
01d8 4935 0551  |I5 Q|
01da 5115 496c  |Q Il|
01dc d174 d080  | t  |
01de 8080 8080  |    |
01e0 b909 054d  |   M|
01e2 1509 0531  |   1|
01e4 317d 4d51  |1}MQ|
01e6 0551 254d  | Q%M|
01e8 5125 0d4c  |Q% L|
01ea a154 a56c  | T l|
01ec c4c5 74cc  |  t |
01ee c028 8141  | ( A|
01f0 4925 3951  |I%9Q|
01f2 7d41 3105  |}A1 |
01f4 6515 497d  |e I}|
01f6 4d51 0551  |MQ Q|
01f8 4c80 8081  |L   |
01fa 193d 4935  | =I5|
01fc 0551 5115  | QQ |
01fe 496c d574  |Il t|