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

⟦b87e4abad⟧

    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 0000       |    |		.CONST	0x0000								; 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 0001  |    |		.DEBUG4	0x0004,0x0001,0xf28a,0x0000,0x0001,0x0001
009e 000b 00a2  |    |		.DBG4T	0x000b,0x00a2,0x1001,0x8000
00a2 ; --------------------------------------------------------------------------------------
00a2 ; Debug chain
00a2 ; --------------------------------------------------------------------------------------
00a2 0002 0016  |    |		.DBGLEN	0x0002,0x0016
00a4 000b 0011  |    |		.DBGLNO	0x000b,0x0011,0x0016,0x0018,0x001f,0x0024,0x0028,0x002d,0x002f,0x0031,0x0038,0x003e,0x0043,0x0047,0x004d,0x004f,0x0058,0x0060,0x0064,0x0069,0x0071,0x007b,0x0080,0x0089
00bc 0001 0006  |    |		.XXX[0x2]
00be 0000 0000  |    |		.BLANK	0000[0x142]