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

⟦cbf44dee8⟧

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

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 0048       | H  |		.CONST	0x0048								; 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 0024       | $  |		.CONST	0x0024								; Address of begin
0019 0004       |    |		.CONST	0x0004								; Address of exception handler
001a 0005       |    |		.CONST	0x0005								; Number of locals
001b			INIT_0018:
001b e001       |    |		Load	0x0,0x1
001c 1915       |    |		Execute	Package,Field_Reference,Field_Number 0x15
001d 00c6       |    |		Action	Check_Subprogram_Elaborated
001e e002       |    |		Load	0x0,0x2
001f 1964       | d  |		Execute	Package,Field_Reference,Field_Number 0x64
0020 e003       |    |		Load	0x0,0x3
0021 e004       |    |		Load	0x0,0x4
0022 4805       |H   |		Short_Literal	0x5
0023 0007       |    |		Action	Break_Optional
0024			BODY_0018:
0024 e5ff       |    |		Load	0x2,-0x1
0025 700b       |p   |		Jump_Nonzero	0x31
0026 48ff       |H   |		Short_Literal	0xff
0027 4800       |H   |		Short_Literal	0x0
0028 4802       |H   |		Short_Literal	0x2
0029 4802       |H   |		Short_Literal	0x2
002a 0099       |    |		Action	Reference_Dynamic
002b 4803       |H   |		Short_Literal	0x3
002c 4802       |H   |		Short_Literal	0x2
002d 0099       |    |		Action	Reference_Dynamic
002e e001       |    |		Load	0x0,0x1
002f 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0030 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0031 e5ff       |    |		Load	0x2,-0x1
0032 00d8       |    |		Load_Top	At_Offset_0
0033 e005       |    |		Load	0x0,0x5
0034 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
0035 0260       | `  |		Execute	Discrete,In_Type
0036 7001       |p   |		Jump_Nonzero	0x38
0037 08e0       |    |		Execute_Immediate	Raise,0xe0
0038 e5ff       |    |		Load	0x2,-0x1
0039 00d8       |    |		Load_Top	At_Offset_0
003a e005       |    |		Load	0x0,0x5
003b 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
003c 0260       | `  |		Execute	Discrete,In_Type
003d 7001       |p   |		Jump_Nonzero	0x3f
003e 08e0       |    |		Execute_Immediate	Raise,0xe0
003f 4802       |H   |		Short_Literal	0x2
0040 4802       |H   |		Short_Literal	0x2
0041 0099       |    |		Action	Reference_Dynamic
0042 4803       |H   |		Short_Literal	0x3
0043 4802       |H   |		Short_Literal	0x2
0044 0099       |    |		Action	Reference_Dynamic
0045 e001       |    |		Load	0x0,0x1
0046 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0047 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0048 ; --------------------------------------------------------------------------------------
0048 ; Debug Table
0048 ; --------------------------------------------------------------------------------------
0048 0004 000b  |    |		.DEBUG4	0x0004,0x000b,0xbb69,0x0000,0x0001,0x0000
004e 0185 0185  |    |		.XXX[0x3]
0050 0185       |    |
0051 018a 018c  |    |		.XXX[0x150]
0053 018d 018e  |    |
0055 018f 0191  |    |
0057 0191 0191  |    |
0059 0195 0196  |    |
005b 019b 019f  |    |
005d 01a4 01ab  |    |
005f 01ae 01b1  |    |
0061 01b5 01b6  |    |
0063 01bb 01bf  |    |
0065 01c4 01ca  |    |
0067 01ce 01d3  |    |
0069 01d5 01dc  |    |
006b 01de 01e0  |    |
006d 01e1 01e3  |    |
006f 01e6 01e8  |    |
0071 01e9 01ef  |    |
0073 01fa 0205  |    |
0075 020e 0215  |    |
0077 021d 0226  |   &|
0079 022d 0239  | - 9|
007b 0248 024a  | H J|
007d 656e 645f  |end_|
007f 6f66 5f66  |of_f|
0081 696c 656e  |ilen|
0083 756d 6572  |umer|
0085 6963 5f6c  |ic_l|
0087 6974 6572  |iter|
0089 616c 6964  |alid|
008b 656e 7469  |enti|
008d 6669 6572  |fier|
008f 6368 6172  |char|
0091 6163 7465  |acte|
0093 725f 6c69  |r_li|
0095 7465 7261  |tera|
0097 6c73 7472  |lstr|
0099 696e 675f  |ing_|
009b 6c69 7465  |lite|
009d 7261 6c6f  |ralo|
009f 7065 7261  |pera|
00a1 746f 725f  |tor_|
00a3 7379 6d62  |symb|
00a5 6f6c 2e2e  |ol..|
00a7 3c3e 3c3c  |<><<|
00a9 3e3e 3a3d  |>>:=|
00ab 3d3e 2829  |=>()|
00ad 2c7c 2e27  |,|.'|
00af 3a3b 6162  |:;ab|
00b1 6f72 7461  |orta|
00b3 6363 6570  |ccep|
00b5 7461 6363  |tacc|
00b7 6573 7361  |essa|
00b9 6c6c 616e  |llan|
00bb 6461 7272  |darr|
00bd 6179 6174  |ayat|
00bf 6265 6769  |begi|
00c1 6e62 6f64  |nbod|
00c3 7963 6173  |ycas|
00c5 6563 6f6e  |econ|
00c7 7374 616e  |stan|
00c9 7464 6563  |tdec|
00cb 6c61 7265  |lare|
00cd 6465 6c61  |dela|
00cf 7964 656c  |ydel|
00d1 7461 6469  |tadi|
00d3 6769 7473  |gits|
00d5 646f 656c  |doel|
00d7 7365 656c  |seel|
00d9 7369 6665  |sife|
00db 6e64 656e  |nden|
00dd 6420 6c6f  |d lo|
00df 6f70 656e  |open|
00e1 645f 6c6f  |d_lo|
00e3 6f70 5f6e  |op_n|
00e5 616d 6565  |amee|
00e7 6e64 2072  |nd r|
00e9 6563 6f72  |ecor|
00eb 6465 6e64  |dend|
00ed 2069 6665  | ife|
00ef 6e64 2073  |nd s|
00f1 656c 6563  |elec|
00f3 7465 6e64  |tend|
00f5 2063 6173  | cas|
00f7 6565 6e64  |eend|
00f9 5f6e 616d  |_nam|
00fb 6565 6e74  |eent|
00fd 7279 6578  |ryex|
00ff 6365 7074  |cept|
0101 696f 6e65  |ione|
0103 7869 7466  |xitf|
0105 6f72 6675  |orfu|
0107 6e63 7469  |ncti|
0109 6f6e 6765  |onge|
010b 6e65 7269  |neri|
010d 6367 6f74  |cgot|
010f 6f69 6669  |oifi|
0111 6e69 736c  |nisl|
0113 696d 6974  |imit|
0115 6564 6c6f  |edlo|
0117 6f70 6d6f  |opmo|
0119 646e 6577  |dnew|
011b 6e6f 746e  |notn|
011d 756c 6c6f  |ullo|
011f 666f 726f  |foro|
0121 7468 6572  |ther|
0123 736f 7574  |sout|
0125 7061 636b  |pack|
0127 6167 6570  |agep|
0129 7261 676d  |ragm|
012b 6170 7269  |apri|
012d 7661 7465  |vate|
012f 7072 6f63  |proc|
0131 6564 7572  |edur|
0133 6572 6169  |erai|
0135 7365 7261  |sera|
0137 6e67 6572  |nger|
0139 6563 6f72  |ecor|
013b 6472 656d  |drem|
013d 7265 6e61  |rena|
013f 6d65 7372  |mesr|
0141 6574 7572  |etur|
0143 6e72 6576  |nrev|
0145 6572 7365  |erse|
0147 7365 7061  |sepa|
0149 7261 7465  |rate|
014b 7365 6c65  |sele|
014d 6374 7375  |ctsu|
014f 6274 7970  |btyp|
0151 6574 6173  |etas|
0153 6b74 6572  |kter|
0155 6d69 6e61  |mina|
0157 7465 7468  |teth|
0159 656e 7479  |enty|
015b 7065 7573  |peus|
015d 6577 6865  |ewhe|
015f 6e77 6869  |nwhi|
0161 6c65 7769  |lewi|
0163 7468 786f  |thxo|
0165 726e 6f5f  |rno_|
0167 746f 6b65  |toke|
0169 6e73 7461  |nsta|
016b 7274 5f6f  |rt_o|
016d 665f 6669  |f_fi|
016f 6c65 7363  |lesc|
0171 616e 6e65  |anne|
0173 725f 6572  |r_er|
0175 726f 7264  |rord|
0177 6563 6c61  |ecla|
0179 7261 7469  |rati|
017b 6f6e 7374  |onst|
017d 6174 656d  |atem|
017f 656e 7465  |ente|
0181 7870 7265  |xpre|
0183 7373 696f  |ssio|
0185 6e61 6c74  |nalt|
0187 6572 6e61  |erna|
0189 7469 7665  |tive|
018b 636f 6d70  |comp|
018d 5f75 6e69  |_uni|
018f 7463 6f6e  |tcon|
0191 7465 7874  |text|
0193 5f63 6c61  |_cla|
0195 7573 6567  |useg|
0197 656e 6572  |ener|
0199 6963 5f70  |ic_p|
019b 6172 616d  |aram|
019d 6574 6572  |eter|
019f 656e 6420  |end |
01a1 0000 0000  |    |		.BLANK	0000[0x7]
01a8 0003 0010  |    |		.XXX[0x58]
01aa 000b 082a  |   *|
01ac 8000 0000  |    |
01ae 0048 6b66  | Hkf|
01b0 0000 000f  |    |
01b2 0027 0844  | ' D|
01b4 8000 0000  |    |
01b6 0048 6b76  | Hkv|
01b8 0000 000f  |    |
01ba 03cb 087c  |   ||
01bc 0002 0000  |    |
01be 0048 6b66  | Hkf|
01c0 0000 001a  |    |
01c2 03db 0884  |    |
01c4 0002 0000  |    |
01c6 0048 6b66  | Hkf|
01c8 0000 002b  |   +|
01ca 03eb 088c  |    |
01cc 0001 0000  |    |
01ce 0048 6b66  | Hkf|
01d0 0000 003c  |   <|
01d2 0403 0896  |    |
01d4 0002 0000  |    |
01d6 0048 6b66  | Hkf|
01d8 0000 0050  |   P|
01da 0413 089e  |    |
01dc 0002 0000  |    |
01de 0048 6b66  | Hkf|
01e0 0000 0060  |   `|
01e2 041b 08a2  |    |
01e4 0002 0000  |    |
01e6 0048 6b66  | Hkf|
01e8 0000 006d  |   m|
01ea 0423 08a6  | #  |
01ec 0002 0000  |    |
01ee 0048 6b66  | Hkf|
01f0 0000 0078  |   x|
01f2 04f3 08ce  |    |
01f4 0002 0000  |    |
01f6 0048 6b66  | Hkf|
01f8 0000 008a  |    |
01fa 054b 08e4  | K  |
01fc 0002 0000  |    |
01fe 0048 6b66  | Hkf|