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

⟦5495741b3⟧

    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 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 001d       |    |		.CONST	0x001d								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 000a       |    |		.CONST	0x000a								; 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 e22f       | /  |		Load	0x1,0x2f
0010 03e9       |    |		Declare_Variable	Discrete,Duplicate
0011 03e9       |    |		Declare_Variable	Discrete,Duplicate
0012 e231       | 1  |		Load	0x1,0x31
0013 0237       | 7  |		Execute	Float,Convert_From_Discrete
0014 e20e       |    |		Load	0x1,0xe
0015 0238       | 8  |		Execute	Float,Convert
0016 481a       |H   |		Short_Literal	0x1a
0017 0239       | 9  |		Execute	Float,Exponentiate
0018 e20e       |    |		Load	0x1,0xe
0019 02bf       |    |		Declare_Variable	Float,With_Value,With_Constraint
001a 5859       |XY  |		Indirect_Literal	Float,0x74,6.283185307179586
001b e20e       |    |		Load	0x1,0xe
001c 02bf       |    |		Declare_Variable	Float,With_Value,With_Constraint
001d			BODY_0008:
001d e5ff       |    |		Load	0x2,-0x1
001e 00d8       |    |		Load_Top	At_Offset_0
001f e20e       |    |		Load	0x1,0xe
0020 0234       | 4  |		Execute	Float,In_Type
0021 7001       |p   |		Jump_Nonzero	0x23
0022 0801       |    |		Execute_Immediate	Raise,0x1
0023 023e       | >  |		Execute	Float,Absolute_Value
0024 c402       |    |		Store	0x2,0x2
0025 e402       |    |		Load	0x2,0x2
0026 023e       | >  |		Execute	Float,Absolute_Value
0027 00da       |    |		Load_Top	At_Offset_2
0028 0245       | E  |		Execute	Float,Greater
0029 680d       |h   |		Jump_Zero	0x37
002a 5849       |XI  |		Indirect_Literal	Float,0x74,6.283185307179586
002b e20e       |    |		Load	0x1,0xe
002c 0232       | 2  |		Execute	Float,Check_In_Type
002d e402       |    |		Load	0x2,0x2
002e e20e       |    |		Load	0x1,0xe
002f 0232       | 2  |		Execute	Float,Check_In_Type
0030 e005       |    |		Load	0x0,0x5
0031 e230       | 0  |		Load	0x1,0x30
0032 0096       |    |		Execute	Package,Entry
0033 c402       |    |		Store	0x2,0x2
0034 e402       |    |		Load	0x2,0x2
0035 023e       | >  |		Execute	Float,Absolute_Value
0036 c402       |    |		Store	0x2,0x2
0037 e22f       | /  |		Load	0x1,0x2f
0038 e20e       |    |		Load	0x1,0xe
0039 00d8       |    |		Load_Top	At_Offset_0
003a e402       |    |		Load	0x2,0x2
003b e20e       |    |		Load	0x1,0xe
003c 0232       | 2  |		Execute	Float,Check_In_Type
003d 8251       | Q  |		Call	0x1,0x51
003e c403       |    |		Store	0x2,0x3
003f c404       |    |		Store	0x2,0x4
0040 c406       |    |		Store	0x2,0x6
0041 e406       |    |		Load	0x2,0x6
0042 0a01       |    |		Execute_Immediate	Plus,0x1
0043 4803       |H   |		Short_Literal	0x3
0044 0279       | y  |		Execute	Discrete,And
0045 00d8       |    |		Load_Top	At_Offset_0
0046 e22f       | /  |		Load	0x1,0x2f
0047 0260       | `  |		Execute	Discrete,In_Type
0048 7001       |p   |		Jump_Nonzero	0x4a
0049 0801       |    |		Execute_Immediate	Raise,0x1
004a a406       |    |		Store_Unchecked	0x2,0x6
004b e406       |    |		Load	0x2,0x6
004c 4801       |H   |		Short_Literal	0x1
004d 0279       | y  |		Execute	Discrete,And
004e c407       |    |		Store	0x2,0x7
004f e406       |    |		Load	0x2,0x6
0050 e407       |    |		Load	0x2,0x7
0051 0272       | r  |		Execute	Discrete,Minus
0052 09ff       |    |		Execute_Immediate	Binary_Scale,-0x1
0053 005b       | [  |		Store_Top	Discrete,At_Offset_3
0054 00db       |    |		Load_Top	At_Offset_3
0055 7009       |p   |		Jump_Nonzero	0x5f
0056 e404       |    |		Load	0x2,0x4
0057 e20e       |    |		Load	0x1,0xe
0058 0232       | 2  |		Execute	Float,Check_In_Type
0059 e403       |    |		Load	0x2,0x3
005a e20e       |    |		Load	0x1,0xe
005b 0232       | 2  |		Execute	Float,Check_In_Type
005c 8252       | R  |		Call	0x1,0x52
005d c405       |    |		Store	0x2,0x5
005e 7808       |x   |		Jump	0x67
005f e404       |    |		Load	0x2,0x4
0060 e20e       |    |		Load	0x1,0xe
0061 0232       | 2  |		Execute	Float,Check_In_Type
0062 e403       |    |		Load	0x2,0x3
0063 e20e       |    |		Load	0x1,0xe
0064 0232       | 2  |		Execute	Float,Check_In_Type
0065 8253       | S  |		Call	0x1,0x53
0066 c405       |    |		Store	0x2,0x5
0067 00da       |    |		Load_Top	At_Offset_2
0068 0f01       |    |		Execute_Immediate	Equal,0x1
0069 6803       |h   |		Jump_Zero	0x6d
006a e405       |    |		Load	0x2,0x5
006b 023f       | ?  |		Execute	Float,Unary_Minus
006c c405       |    |		Store	0x2,0x5
006d e405       |    |		Load	0x2,0x5
006e 00d8       |    |		Load_Top	At_Offset_0
006f e20e       |    |		Load	0x1,0xe
0070 0234       | 4  |		Execute	Float,In_Type
0071 7001       |p   |		Jump_Nonzero	0x73
0072 0801       |    |		Execute_Immediate	Raise,0x1
0073 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0074 4019 21fb  |@ ! |		.DBL	6.283185307179586
0076 5444 2d18  |TD- |
0078 ; --------------------------------------------------------------------------------------
0078 ; Debug Table
0078 ; --------------------------------------------------------------------------------------
0078 0004 0014  |    |		.DEBUG4	0x0004,0x0014,0x8f12,0x0000,0x0001,0x0000
007e b420 0000  |    |		.XXX[0x2a]
0080 0014 0000  |    |
0082 0036 c6de  | 6  |
0084 dada c2dc  |    |
0086 c8e6 5cca  |  \ |
0088 c8d2 e8de  |    |
008a e45c eed2  | \  |
008c dcc8 deee  |    |
008e 5cd4 ded2  |\   |
0090 dc00 0000  |    |
0092 1200 0000  |    |
0094 3842 86de  |8B  |
0096 dada c2dc  |    |
0098 c8e6 5c8a  |  \ |
009a c8d2 e8de  |    |
009c e45c aed2  | \  |
009e dcc8 deee  |    |
00a0 5c94 ded2  |\   |
00a2 dc00 0000  |    |
00a4 000c 16cf  |    |
00a6 de01 68dc  |  h |
00a8 0000 0000  |    |		.BLANK	0000[0x5]
00ad 0085 0000  |    |		.XXX[0x29]
00af 001c 636f  |  co|
00b1 6d6d 616e  |mman|
00b3 6473 2e66  |ds.f|
00b5 696c 655f  |ile_|
00b7 7574 696c  |util|
00b9 6974 6965  |itie|
00bb 732e 736f  |s.so|
00bd 7274 0000  |rt  |
00bf 0084 0000  |    |
00c1 001d 2143  |  !C|
00c3 6f6d 6d61  |omma|
00c5 6e64 732e  |nds.|
00c7 4669 6c65  |File|
00c9 5f55 7469  |_Uti|
00cb 6c69 7469  |liti|
00cd 6573 2e53  |es.S|
00cf 6f72 7400  |ort |
00d1 0000 0006  |    |
00d3 0b6a c000  | j  |
00d5 b4fd       |    |
00d6 0000 0000  |    |		.BLANK	0000[0x5]
00db 0005 0000  |    |		.XXX[0x9e]
00dd 0009 31b7  |  1 |
00df b6b6 b0b7  |    |
00e1 3239 9733  |29 3|
00e3 3a38 1734  |:8 4|
00e5 b6b0 b3b2  |    |
00e7 8000 0004  |    |
00e9 8000 0009  |    |
00eb 90a1 b7b6  |    |
00ed b6b0 b732  |   2|
00ef 3997 233a  |9 #:|
00f1 3817 24b6  |8 $ |
00f3 b0b3 b280  |    |
00f5 0000 0003  |    |
00f7 05b6 d080  |    |
00f9 5ac6 0305  |Z   |
00fb b3ab 0305  |    |
00fd ba65 8000  | e  |
00ff 0018 c000  |    |
0101 0006 18db  |    |
0103 db5b 585b  | [X[|
0105 991c cb9b  |    |
0107 1a58 9c98  | X  |
0109 5c9e 4b98  |\ K |
010b dbdb 9d19  |    |
010d 5e1d 0000  |^   |
010f 0018 8000  |    |
0111 0006 4850  |  HP|
0113 dbdb 5b58  |  [X|
0115 5b99 1ccb  |[   |
0117 931a 589c  |  X |
0119 985c 9e4b  | \ K|
011b 90db db9d  |    |
011d 195e 1d00  | ^  |
011f 0000 0001  |    |
0121 82db f880  |    |
0123 2d86 c182  |-   |
0125 cff6 0182  |    |
0127 ec9e 8000  |    |
0129 0001 4000  |  @ |
012b 0003 8c6d  |   m|
012d edad ac2d  |   -|
012f cc8e 65cc  |  e |
0131 ce8e 05ce  |    |
0133 ae6c abee  | l  |
0135 4cad adee  |L   |
0137 8cab ee4d  |   M|
0139 edec c000  |    |
013b 0001 2000  |    |
013d 0003 a428  |   (|
013f 6ded adac  |m   |
0141 2dcc 8e65  |-  e|
0143 c8ce 8e05  |    |
0145 caae 6cab  |  l |
0147 ea4c adad  | L  |
0149 ee8c abea  |    |
014b 4ded ecc0  |M   |
014d 0000 0000  |    |
014f c16e 5060  | nP`|
0151 16d5 40c1  |  @ |
0153 6c90 a0c1  |l   |
0155 6ee5 8000  |n   |
0157 0000 c000  |    |
0159 0001 4636  |  F6|
015b f6d6 d616  |    |
015d e647 32e6  | G2 |
015f a6f6 22e6  |  " |
0161 4697 3616  |F 6 |
0163 26c6 5000  |& P |
0165 0000 b000  |    |
0167 0001 5214  |  R |
0169 36f6 d6d6  |6   |
016b 16e6 4732  |  G2|
016d e4a6 f622  |   "|
016f e446 9736  | F 6|
0171 1626 c650  | & P|
0173 0000 0000  |    |
0175 60b7 5640  |` V@|
0177 0b73 9000  | s  |
0179 0000 0000  |    |		.BLANK	0000[0x4]
017d 0004 1000  |    |		.XXX[0x23]
017f 0000 ab1b  |    |
0181 7b6b 6b0b  |{kk |
0183 7323 9973  |s# s|
0185 634b 1393  |cK  |
0187 0b93 c973  |   s|
0189 6b7b b328  |k{ (|
018b 0000 0408  |    |
018d 0000 00b1  |    |
018f 0a1b 7b6b  |  {k|
0191 6b0b 7323  |k s#|
0193 9972 634b  | rcK|
0195 1393 0b93  |    |
0197 c972 6b7b  | rk{|
0199 b328 0000  | (  |
019b 0000 305b  |  0[|
019d be28 05be  | (  |
019f 4000       |@   |
01a0 0000 0000  |    |		.BLANK	0000[0x5]
01a5 4c00 0000  |L   |		.XXX[0x5b]
01a7 358d bdb5  |5   |
01a9 b5bd b8b9  |    |
01ab 95e1 c185  |    |
01ad b990 0000  |    |
01af 0024 0000  | $  |
01b1 005c 850d  | \  |
01b3 bdb5 b585  |    |
01b5 b991 ccb9  |    |
01b7 0dbd b5b5  |    |
01b9 bdb8 b915  |    |
01bb e1c1 85b9  |    |
01bd 9000 0000  |    |
01bf 0018 2de8  |  - |
01c1 d802 e15c  |   \|
01c3 182e fbf8  | .  |
01c5 182f 5b30  | /[0|
01c7 0000 001c  |    |
01c9 0000 0040  |   @|
01cb c6de dada  |    |
01cd c2dc c8e6  |    |
01cf 5ce6 eed2  |\   |
01d1 e8c6 d0ca  |    |
01d3 e65c c6de  | \  |
01d5 dae0 dee6  |    |
01d7 d2e8 cabe  |    |
01d9 dcc2 daca  |    |
01db 0000 001a  |    |
01dd 0000 0042  |   B|
01df 4286 deda  |B   |
01e1 dac2 dcc8  |    |
01e3 e65c a6ee  | \  |
01e5 d2e8 c6d0  |    |
01e7 cae6 5c86  |  \ |
01e9 deda e0de  |    |
01eb e6d2 e8ca  |    |
01ed be9c c2da  |    |
01ef ca00 0000  |    |
01f1 000c 16f8  |    |
01f3 de01 71cc  |  q |
01f5 0c17 3ee6  |  > |
01f7 0c17 5a50  |  ZP|
01f9 0000 0008  |    |
01fb 0000 0012  |    |
01fd 636f 6d6d  |comm|
01ff 616e       |an  |