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

⟦7d1521244⟧

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

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 0040       | @  |		.CONST	0x0040								; 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 0014       |    |		.CONST	0x0014								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0004       |    |		.CONST	0x0004								; Number of locals
000b			INIT_0008:
000b 4801       |H   |		Short_Literal	0x1
000c 4880       |H   |		Short_Literal	0x80
000d 00e9       |    |		Load_Encached	String_Cache
000e 0334       | 4  |		Declare_Variable	Array,With_Constraint
000f 00e3       |    |		Load_Encached	Natural_Cache
0010 4801       |H   |		Short_Literal	0x1
0011 4803       |H   |		Short_Literal	0x3
0012 e409       |    |		Load	0x2,0x9
0013 03f8       |    |		Declare_Type	Discrete,Constrained
0014			BODY_0008:
0014 00cf       |    |		Action	Mark_Auxiliary
0015 4804       |H   |		Short_Literal	0x4
0016 4800       |H   |		Short_Literal	0x0
0017 0007       |    |		Action	Break_Optional
0018 00d8       |    |		Load_Top	At_Offset_0
0019 e604       |    |		Load	0x3,0x4
001a 025f       | _  |		Execute	Discrete,Not_In_Type
001b 681c       |h   |		Jump_Zero	0x38
001c 00d8       |    |		Load_Top	At_Offset_0
001d 8412       |    |		Call	0x2,0x12
001e e01a       |    |		Load	0x0,0x1a
001f 185f       | _  |		Execute	Package,Field_Execute,Field_Number 0x5f
0020 00e2       |    |		Load_Encached	Integer_Cache
0021 e602       |    |		Load	0x3,0x2
0022 8413       |    |		Call	0x2,0x13
0023 00d1       |    |		Pop_Control	Pop_Count_1
0024 c603       |    |		Store	0x3,0x3
0025 e603       |    |		Load	0x3,0x3
0026 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0027 6810       |h   |		Jump_Zero	0x38
0028 e411       |    |		Load	0x2,0x11
0029 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
002a e607       |    |		Load	0x3,0x7
002b 00d8       |    |		Load_Top	At_Offset_0
002c e608       |    |		Load	0x3,0x8
002d 01d7       |    |		Execute	Vector,Field_Read
002e 4801       |H   |		Short_Literal	0x1
002f e603       |    |		Load	0x3,0x3
0030 e602       |    |		Load	0x3,0x2
0031 01cf       |    |		Execute	Vector,Slice_Read
0032 e402       |    |		Load	0x2,0x2
0033 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0034 e609       |    |		Load	0x3,0x9
0035 e608       |    |		Load	0x3,0x8
0036 01d6       |    |		Execute	Vector,Field_Write
0037 00d2       |    |		Pop_Control	Pop_Count_2
0038 00c8       |    |		Action	Pop_Auxiliary_Range
0039 3fde       |?   |		Loop_Increasing	0x18
003a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
003b 0000 0000  |    |		.BLANK	0000[0x5]
0040 ; --------------------------------------------------------------------------------------
0040 ; Debug Table
0040 ; --------------------------------------------------------------------------------------
0040 0004 0000  |    |		.DEBUG4	0x0004,0x0000,0x11ec,0x0000,0x0001,0x0000
0046 3617 4696  |6 F |		.XXX[0xea]
0048 f6e2 e4e6  |    |
004a 16d6 5000  |  P |
004c 0000 000f  |    |
004e b223 406a  | #@j|
0050 57b0 0fb2  |W   |
0052 19b0 0aa9  |    |
0054 e800 0000  |    |
0056 0048 0000  | H  |
0058 0149 0ba3  | I  |
005a 7b7b 6399  |{{c |
005c 731b 7b73  |s {s|
005e 1bab 9393  |    |
0060 2b73 a2fb  |+s  |
0062 6b0b 82fb  |k   |
0064 3b2b 732b  |;+s+|
0066 934b 1973  | K s|
0068 1b0b 9323  |   #|
006a 4b73 0b63  |Ks c|
006c 4ba3 c800  |K   |
006e 0000 4800  |  H |
0070 0001 490a  |  I |
0072 a37b 7b63  | {{c|
0074 9972 1b7b  | r {|
0076 731b ab93  |s   |
0078 932b 73a2  | +s |
007a fa6b 0b82  | k  |
007c fa3b 2b73  | ;+s|
007e 2b93 4b19  |+ K |
0080 721b 0b93  |r   |
0082 234b 730b  |#Ks |
0084 634b a3c8  |cK  |
0086 0000 0000  |    |
0088 07d9 2a68  |  *h|
008a 3530 500d  |50P |
008c 2013 b807  |    |
008e d8e2 4800  |  H |
0090 0000 2400  |  $ |
0092 0000 a085  |    |
0094 d1bd bdb1  |    |
0096 ccb9 8dbd  |    |
0098 b98d d5c9  |    |
009a c995 b9d1  |    |
009c 7db5 85c1  |}   |
009e 7d9d 95b9  |}   |
00a0 95c9 a58c  |    |
00a2 b9c9 85b9  |    |
00a4 9d95 7dd1  |  } |
00a6 e5c1 9400  |    |
00a8 0000 2400  |  $ |
00aa 0000 a085  |    |
00ac 51bd bdb1  |Q   |
00ae ccb9 0dbd  |    |
00b0 b98d d5c9  |    |
00b2 c995 b9d1  |    |
00b4 7d35 85c1  |}5  |
00b6 7d1d 95b9  |}   |
00b8 95c9 a58c  |    |
00ba b949 85b9  | I  |
00bc 9d95 7d51  |  }Q|
00be e5c1 9400  |    |
00c0 0000 0003  |    |
00c2 eca3 d81a  |    |
00c4 9a64 0000  | d  |
00c6 0000 03ec  |    |
00c8 caa2 0000  |    |
00ca 0012 0000  |    |
00cc 0042 42e8  | BB |
00ce dede d8e6  |    |
00d0 5cc6 dedc  |\   |
00d2 c6ea e4e4  |    |
00d4 cadc e8be  |    |
00d6 dac2 e0be  |    |
00d8 ceca dcca  |    |
00da e4d2 c65c  |   \|
00dc dac2 e000  |    |
00de 0000 1200  |    |
00e0 0000 4242  |  BB|
00e2 a8de ded8  |    |
00e4 e65c 86de  | \  |
00e6 dcc6 eae4  |    |
00e8 e4ca dce8  |    |
00ea be9a c2e0  |    |
00ec be8e cadc  |    |
00ee cae4 d2c6  |    |
00f0 5c9a c2e0  |\   |
00f2 0000 0000  |    |
00f4 01f6 591e  |  Y |
00f6 0d4e 5003  | NP |
00f8 480a c001  |H   |
00fa f61f 5800  |  X |
00fc 0000 0900  |    |
00fe 0000 2721  |  '!|
0100 746f 6f6c  |tool|
0102 732e 636f  |s.co|
0104 6e63 7572  |ncur|
0106 7265 6e74  |rent|
0108 5f6d 6170  |_map|
010a 5f67 656e  |_gen|
010c 6572 6963  |eric|
010e 2e75 6e64  |.und|
0110 6566 696e  |efin|
0112 6564 0000  |ed  |
0114 0009 0000  |    |
0116 0027 2154  | '!T|
0118 6f6f 6c73  |ools|
011a 2e43 6f6e  |.Con|
011c 6375 7272  |curr|
011e 656e 745f  |ent_|
0120 4d61 705f  |Map_|
0122 4765 6e65  |Gene|
0124 7269 632e  |ric.|
0126 556e 6465  |Unde|
0128 6669 6e65  |fine|
012a 6400 0000  |d   |
012c 0000 fb2f  |   /|
012e b806 a7b7  |    |
0130 0000 0000  |    |		.BLANK	0000[0x5]
0135 0004 8000  |    |		.XXX[0xa6]
0137 000a 10ba  |    |
0139 37b7 b639  |7  9|
013b 9738 bab2  | 8  |
013d bab2 afb3  |    |
013f b2b7 32b9  |  2 |
0141 34b1 8000  |4   |
0143 0004 8000  |    |
0145 000a 10aa  |    |
0147 37b7 b639  |7  9|
0149 9728 bab2  | (  |
014b bab2 afa3  |    |
014d b2b7 32b9  |  2 |
014f 34b1 8000  |4   |
0151 0000 007d  |   }|
0153 99a0 8354  |   T|
0155 2300 920d  |#   |
0157 bb80 7da8  |  } |
0159 a580 0000  |    |
015b 0240 0000  | @  |
015d 06c8 5d1b  |  ] |
015f dbdb 1ccb  |    |
0161 9b58 5c17  | X\ |
0163 d9d9 5b99  |  [ |
0165 5c9a 58cb  |\ X |
0167 9a5d 195c  | ] \|
0169 985d 1bdc  | ]  |
016b 8000 0002  |    |
016d 4000 0006  |@   |
016f c855 1bdb  | U  |
0171 db1c cb93  |    |
0173 585c 17d1  |X\  |
0175 d95b 995c  | [ \|
0177 9a58 cb92  | X  |
0179 5d19 5c98  |] \ |
017b 5d1b dc80  |]   |
017d 0000 0000  |    |
017f 3ecd 6681  |> f |
0181 aa35 403e  | 5@>|
0183 d011 403e  |  @>|
0185 d16d c000  | m  |
0187 0001 2000  |    |
0189 0003 242e  |  $.|
018b 8ded ed8e  |    |
018d 65cd 8d2e  |e  .|
018f 6e8b ecec  |n   |
0191 adcc ae4d  |   M|
0193 2c65 cecc  |,e  |
0195 2d8e aca0  |-   |
0197 0000 0120  |    |
0199 0000 0324  |   $|
019b 2a8d eded  |*   |
019d 8e65 c98d  | e  |
019f 2e6e 8be8  |.n  |
01a1 ecad ccae  |    |
01a3 4d2c 65ca  |M,e |
01a5 cc2d 8eac  | -  |
01a7 a000 0000  |    |
01a9 001f 670c  |  g |
01ab 60d5 2c80  |` , |
01ad 1552 0060  | R `|
01af 1554 4830  | TH0|
01b1 0000 0090  |    |
01b3 0000 01c2  |    |
01b5 1746 f6f6  | F  |
01b7 c732 e6c6  | 2  |
01b9 9737 45f6  | 7E |
01bb 7656 e657  |vV W|
01bd 2696 32e7  |& 2 |
01bf 3657 45f7  |6WE |
01c1 2657 3740  |&W7@|
01c3 0000 0090  |    |
01c5 0000 01c2  |    |
01c7 1546 f6f6  | F  |
01c9 c732 e4c6  | 2  |
01cb 9737 45f4  | 7E |
01cd 7656 e657  |vV W|
01cf 2696 32e5  |& 2 |
01d1 3657 45f5  |6WE |
01d3 2657 3740  |&W7@|
01d5 0000 0000  |    |
01d7 0fb3 b0c0  |    |
01d9 6a9f 3000  |j 0 |
01db 0000 0000  |    |		.BLANK	0000[0x5]
01e0 4800 0000  |H   |		.XXX[0x20]
01e2 f10b a37b  |   {|
01e4 7b63 9973  |{c s|
01e6 6b0b 82fb  |k   |
01e8 3b2b 732b  |;+s+|
01ea 934b 1973  | K s|
01ec 1b0b 9323  |   #|
01ee 4b73 0b63  |Ks c|
01f0 4ba3 c800  |K   |
01f2 0000 4800  |  H |
01f4 0000 f10a  |    |
01f6 a37b 7b63  | {{c|
01f8 9972 6b0b  | rk |
01fa 82fa 3b2b  |  ;+|
01fc 732b 934b  |s+ K|
01fe 1972 1b0b  | r  |