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

⟦3854670fa⟧ 

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

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 0020       |    |		.CONST	0x0020								; 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 0010       |    |		.CONST	0x0010								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0001       |    |		.CONST	0x0001								; Number of locals
000b			INIT_0008:
000b 029a 001b  |    |		Declare_Subprogram	INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 00bf       |    |		Action	Accept_Activation
000e 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
000f 00c7       |    |		Action	Elaborate_Subprogram
0010			BODY_0008:
0010 00bc       |    |		Action	Signal_Activated
0011 00bb       |    |		Action	Signal_Completion
0012 0000 0000  |    |		.BLANK	0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 001b       |    |		.CONST	0x001b								; Address of begin
0019 0004       |    |		.CONST	0x0004								; Address of exception handler
001a 0001       |    |		.CONST	0x0001								; Number of locals
001b			BODY_0018:
001b			INIT_0018:
001b 00da       |    |		Load_Top	At_Offset_2
001c e001       |    |		Load	0x0,0x1
001d 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
001e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
001f 0000       |    |		.XXX[0x1]
0020 ; --------------------------------------------------------------------------------------
0020 ; Debug Table
0020 ; --------------------------------------------------------------------------------------
0020 0004 000e  |    |		.DEBUG4	0x0004,0x000e,0xb423,0x0000,0x0001,0x0000
0026 6865 7263  |herc|		.XXX[0xc]
0028 6865 5f49  |he_I|
002a 6e73 7472  |nstr|
002c 7563 7469  |ucti|
002e 6f6e 2069  |on i|
0030 7326 0014  |s&  |
0032 2020 2020  |    |		.BLANK	2020[0x4]
0036 7573 6520  |use |		.XXX[0xf]
0038 5a5f 4465  |Z_De|
003a 6275 673b  |bug;|
003c 1400 0920  |    |
003e 2020 2062  |   b|
0040 6567 696e  |egin|
0042 0900 0000  |    |
0044 0026       | &  |
0045 2020 2020  |    |		.BLANK	2020[0x4]
0049 2d2d 2072  |-- r|		.XXX[0x12]
004b 6563 6865  |eche|
004d 7263 6865  |rche|
004f 2064 2775  | d'u|
0051 6e65 2069  |ne i|
0053 6e73 7472  |nstr|
0055 7563 7469  |ucti|
0057 6f6e 2600  |on& |
0059 0000 001e  |    |
005b 2020 2020  |    |		.BLANK	2020[0x4]
005f 7768 696c  |whil|		.XXX[0xd]
0061 6520 6e6f  |e no|
0063 7420 5472  |t Tr|
0065 6f75 7665  |ouve|
0067 6520 6c6f  |e lo|
0069 6f70 1e00  |op  |
006b 3e20       |>   |
006c 2020 2020  |    |		.BLANK	2020[0x5]
0071 2042 7573  | Bus|		.XXX[0x1b]
0073 2e41 6363  |.Acc|
0075 6573 5f4f  |es_O|
0077 6374 6574  |ctet|
0079 2028 5a38  | (Z8|
007b 302e 4d65  |0.Me|
007d 6d6f 7279  |mory|
007f 5f52 6561  |_Rea|
0081 642c 204c  |d, L|
0083 655f 5063  |e_Pc|
0085 2c20 436f  |, Co|
0087 6465 5f4f  |de_O|
0089 7029 3b3e  |p);>|
008b 0028       | (  |
008c 2020 2020  |    |		.BLANK	2020[0x6]
0092 4c65 5f50  |Le_P|		.XXX[0x10]
0094 6320 3a3d  |c :=|
0096 204d 6f74  | Mot|
0098 2e41 6464  |.Add|
009a 2028 4c65  | (Le|
009c 5f50 632c  |_Pc,|
009e 2031 293b  | 1);|
00a0 2800 3c20  |( < |
00a2 2020 2020  |    |		.BLANK	2020[0x5]
00a7 2054 726f  | Tro|		.XXX[0x1a]
00a9 7576 6565  |uvee|
00ab 203a 3d20  | := |
00ad 4465 7361  |Desa|
00af 7373 656d  |ssem|
00b1 626c 6575  |bleu|
00b3 722e 5472  |r.Tr|
00b5 6169 7465  |aite|
00b7 725f 436f  |r_Co|
00b9 6465 2028  |de (|
00bb 436f 6465  |Code|
00bd 5f4f 7029  |_Op)|
00bf 3b3c 0011  |;<  |
00c1 2020 2020  |    |		.BLANK	2020[0x4]
00c5 656e 6420  |end |		.XXX[0x6]
00c7 6c6f 6f70  |loop|
00c9 3b11 003d  |;  =|
00cb 2020 2020  |    |		.BLANK	2020[0x4]
00cf 556e 655f  |Une_|		.XXX[0x1c]
00d1 496e 7374  |Inst|
00d3 7275 6374  |ruct|
00d5 696f 6e20  |ion |
00d7 3a3d 2044  |:= D|
00d9 6573 6173  |esas|
00db 7365 6d62  |semb|
00dd 6c65 7572  |leur|
00df 2e49 6e73  |.Ins|
00e1 7472 7563  |truc|
00e3 7469 6f6e  |tion|
00e5 5f54 726f  |_Tro|
00e7 7576 6565  |uvee|
00e9 3b3d 0035  |;= 5|
00eb 2020 2020  |    |		.BLANK	2020[0x4]
00ef 5265 6769  |Regi|		.XXX[0x4a]
00f1 7374 7265  |stre|
00f3 732e 4563  |s.Ec|
00f5 7269 7265  |rire|
00f7 5f44 6f75  |_Dou|
00f9 626c 6520  |ble |
00fb 285a 3830  |(Z80|
00fd 5f44 6566  |_Def|
00ff 732e 5063  |s.Pc|
0101 2c20 4c65  |, Le|
0103 5f50 6329  |_Pc)|
0105 3b35 0000  |;5  |
0107 0000 3220  |  2 |
0109 2020 2020  |    |
010b 2020 202d  |   -|
010d 2d20 4166  |- Af|
010f 6669 6368  |fich|
0111 6572 5f49  |er_I|
0113 6e73 7472  |nstr|
0115 7563 7469  |ucti|
0117 6f6e 2028  |on (|
0119 556e 655f  |Une_|
011b 496e 7374  |Inst|
011d 7275 6374  |ruct|
011f 696f 6e29  |ion)|
0121 3b32 001e  |;2  |
0123 2020 2020  |    |
0125 656e 6420  |end |
0127 5265 6368  |Rech|
0129 6572 6368  |erch|
012b 655f 496e  |e_In|
012d 7374 7275  |stru|
012f 6374 696f  |ctio|
0131 6e3b 1e00  |n;  |
0133 0000 0000  |    |
0135 0000 4920  |  I |
0137 2020 202d  |   -|
0139 2d2d 2d2d  |----|		.BLANK	2d2d[0x22]
015b 4900 0000  |I   |		.XXX[0x76]
015d 0028 2020  | (  |
015f 2020 7072  |  pr|
0161 6f63 6564  |oced|
0163 7572 6520  |ure |
0165 5265 6368  |Rech|
0167 6572 6368  |erch|
0169 655f 4465  |e_De|
016b 735f 4f70  |s_Op|
016d 6572 616e  |eran|
016f 6465 7320  |des |
0171 6973 2800  |is( |
0173 0920 2020  |    |
0175 2062 6567  | beg|
0177 696e 0900  |in  |
0179 3f20 2020  |?   |
017b 2020 2020  |    |
017d 2052 6563  | Rec|
017f 6865 7263  |herc|
0181 6865 5f4f  |he_O|
0183 7065 7261  |pera|
0185 6e64 6520  |nde |
0187 2847 6175  |(Gau|
0189 6368 652c  |che,|
018b 2055 6e65  | Une|
018d 5f49 6e73  |_Ins|
018f 7472 7563  |truc|
0191 7469 6f6e  |tion|
0193 2e4f 705f  |.Op_|
0195 4761 7563  |Gauc|
0197 6865 293b  |he);|
0199 3f00 3d20  |? = |
019b 2020 2020  |    |
019d 2020 2052  |   R|
019f 6563 6865  |eche|
01a1 7263 6865  |rche|
01a3 5f4f 7065  |_Ope|
01a5 7261 6e64  |rand|
01a7 6520 2844  |e (D|
01a9 726f 6974  |roit|
01ab 2c20 556e  |, Un|
01ad 655f 496e  |e_In|
01af 7374 7275  |stru|
01b1 6374 696f  |ctio|
01b3 6e2e 4f70  |n.Op|
01b5 5f44 726f  |_Dro|
01b7 6974 293b  |it);|
01b9 3d00 2020  |=   |
01bb 2020 2065  |   e|
01bd 6e64 2052  |nd R|
01bf 6563 6865  |eche|
01c1 7263 6865  |rche|
01c3 5f44 6573  |_Des|
01c5 5f4f 7065  |_Ope|
01c7 7261 6e64  |rand|
01c9 6573 3b20  |es; |
01cb 0000 0000  |    |
01cd 0000 004a  |   J|
01cf 2020 2020  |    |
01d1 2d2d 2d2d  |----|		.BLANK	2d2d[0x23]
01f4 4a00 0000  |J   |		.XXX[0xc]
01f6 0011 2020  |    |
01f8 2020 7072  |  pr|
01fa 6f63 6564  |oced|
01fc 7572 6520  |ure |
01fe 5265 6311  |Rec |