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

⟦5dfb7dbf9⟧

    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 0058       | X  |		.CONST	0x0058								; 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 0008       |    |		.CONST	0x0008								; 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 583f       |X?  |		Indirect_Literal	Float,0x50,0.693115234375
0011 e20e       |    |		Load	0x1,0xe
0012 02bf       |    |		Declare_Variable	Float,With_Value,With_Constraint
0013 5838       |X8  |		Indirect_Literal	Float,0x4c,3.1946184945309415e-05
0014 e20e       |    |		Load	0x1,0xe
0015 02bf       |    |		Declare_Variable	Float,With_Value,With_Constraint
0016			BODY_0008:
0016 e5ff       |    |		Load	0x2,-0x1
0017 00d8       |    |		Load_Top	At_Offset_0
0018 e20e       |    |		Load	0x1,0xe
0019 0234       | 4  |		Execute	Float,In_Type
001a 7001       |p   |		Jump_Nonzero	0x1c
001b 0801       |    |		Execute_Immediate	Raise,0x1
001c c402       |    |		Store	0x2,0x2
001d e402       |    |		Load	0x2,0x2
001e 7001       |p   |		Jump_Nonzero	0x20
001f 08e0       |    |		Execute_Immediate	Raise,0xe0
0020 e402       |    |		Load	0x2,0x2
0021 014b       | K  |		Execute	Float,Less_Zero
0022 6802       |h   |		Jump_Zero	0x25
0023 e006       |    |		Load	0x0,0x6
0024 0257       | W  |		Execute	Discrete,Raise
0025 e20e       |    |		Load	0x1,0xe
0026 00d8       |    |		Load_Top	At_Offset_0
0027 e20e       |    |		Load	0x1,0xe
0028 e402       |    |		Load	0x2,0x2
0029 e20e       |    |		Load	0x1,0xe
002a 0232       | 2  |		Execute	Float,Check_In_Type
002b 824b       | K  |		Call	0x1,0x4b
002c c403       |    |		Store	0x2,0x3
002d c404       |    |		Store	0x2,0x4
002e c405       |    |		Store	0x2,0x5
002f e403       |    |		Load	0x2,0x3
0030 7005       |p   |		Jump_Nonzero	0x36
0031 e404       |    |		Load	0x2,0x4
0032 e405       |    |		Load	0x2,0x5
0033 023d       | =  |		Execute	Float,Plus
0034 004b       | K  |		Store_Top	Float,At_Offset_3
0035 780e       |x   |		Jump	0x44
0036 e403       |    |		Load	0x2,0x3
0037 5814       |X   |		Indirect_Literal	Float,0x4c,3.1946184945309415e-05
0038 023b       | ;  |		Execute	Float,Times
0039 e405       |    |		Load	0x2,0x5
003a 023d       | =  |		Execute	Float,Plus
003b 004b       | K  |		Store_Top	Float,At_Offset_3
003c e403       |    |		Load	0x2,0x3
003d 5812       |X   |		Indirect_Literal	Float,0x50,0.693115234375
003e 023b       | ;  |		Execute	Float,Times
003f e404       |    |		Load	0x2,0x4
0040 023d       | =  |		Execute	Float,Plus
0041 00db       |    |		Load_Top	At_Offset_3
0042 023d       | =  |		Execute	Float,Plus
0043 004b       | K  |		Store_Top	Float,At_Offset_3
0044 00da       |    |		Load_Top	At_Offset_2
0045 00d8       |    |		Load_Top	At_Offset_0
0046 e20e       |    |		Load	0x1,0xe
0047 0234       | 4  |		Execute	Float,In_Type
0048 7001       |p   |		Jump_Nonzero	0x4a
0049 0801       |    |		Execute_Immediate	Raise,0x1
004a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
004b 0000       |    |		.XXX[0x1]
004c 3f00 bfbe  |?   |		.DBL	3.1946184945309415e-05
004e 8e7b cd5e  | { ^|
0050 3fe6 2e00  |? . |		.DBL	0.693115234375
0052 0000 0000  |    |
0054 0000 0000  |    |		.BLANK	0000[0x4]
0058 ; --------------------------------------------------------------------------------------
0058 ; Debug Table
0058 ; --------------------------------------------------------------------------------------
0058 0004 0001  |    |		.DEBUG4	0x0004,0x0001,0xf28e,0x0000,0x0001,0x0001
005e 000b 0062  |   b|		.DBG4T	0x000b,0x0062,0x1002,0x0000
0062 ; --------------------------------------------------------------------------------------
0062 ; Debug chain
0062 ; --------------------------------------------------------------------------------------
0062 0003 000b  |    |		.DBGLEN	0x0003,0x000b
0064 000b 0010  |    |		.DBGLNO	0x000b,0x0010,0x0013,0x0016,0x001d,0x001f,0x0020,0x0023,0x0025,0x002f,0x0031,0x0036,0x003c,0x0044
0072 0000 0000  |    |		.BLANK	0000[0x18e]