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

⟦93519dd81⟧

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

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 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 4800       |H   |		Short_Literal	0x0
001c 4800       |H   |		Short_Literal	0x0
001d 4800       |H   |		Short_Literal	0x0
001e 4801       |H   |		Short_Literal	0x1
001f 4801       |H   |		Short_Literal	0x1
0020 4800       |H   |		Short_Literal	0x0
0021 4800       |H   |		Short_Literal	0x0
0022 4801       |H   |		Short_Literal	0x1
0023 4800       |H   |		Short_Literal	0x0
0024 4800       |H   |		Short_Literal	0x0
0025 4801       |H   |		Short_Literal	0x1
0026 4800       |H   |		Short_Literal	0x0
0027 e5ff       |    |		Load	0x2,-0x1
0028 0092 0045  |   E|		Action	Push_String_Extended,0x45					; "_Errors"
002a 01cc       |    |		Execute	Vector,Catenate
002b e5ff       |    |		Load	0x2,-0x1
002c e001       |    |		Load	0x0,0x1
002d 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
002e 4800       |H   |		Short_Literal	0x0
002f 4800       |H   |		Short_Literal	0x0
0030 4800       |H   |		Short_Literal	0x0
0031 4800       |H   |		Short_Literal	0x0
0032 4800       |H   |		Short_Literal	0x0
0033 4800       |H   |		Short_Literal	0x0
0034 4800       |H   |		Short_Literal	0x0
0035 4801       |H   |		Short_Literal	0x1
0036 4800       |H   |		Short_Literal	0x0
0037 4800       |H   |		Short_Literal	0x0
0038 4800       |H   |		Short_Literal	0x0
0039 4800       |H   |		Short_Literal	0x0
003a e5ff       |    |		Load	0x2,-0x1
003b 0092 0046  |   F|		Action	Push_String_Extended,0x46					; "_Negatives"
003d 01cc       |    |		Execute	Vector,Catenate
003e e5ff       |    |		Load	0x2,-0x1
003f 0092 0045  |   E|		Action	Push_String_Extended,0x45					; "_Errors"
0041 01cc       |    |		Execute	Vector,Catenate
0042 e001       |    |		Load	0x0,0x1
0043 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0044 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0045 ; --------------------------------------------------------------------------------------
0045 ; STRING TABLE
0045 ; --------------------------------------------------------------------------------------
0045 0006       |    |		.STRTAB	0x0006->0x0048							; "_Errors"
0046 000b       |    |		.STRTAB	0x000b->0x004b							; "_Negatives"
0047 0013       |    |		.STREND 0x0013->0x0050
0048 5f45 7272  |_Err|		.STRTAB_STRINGS
0051 0000 0000  |    |		.BLANK	0000[0x7]
0058 ; --------------------------------------------------------------------------------------
0058 ; Debug Table
0058 ; --------------------------------------------------------------------------------------
0058 0004 000d  |    |		.DEBUG4	0x0004,0x000d,0x9713,0x0000,0x0001,0x0000
005e 0000 0180  |    |		.XXX[0x87]
0060 0000 011c  |    |
0062 0069 0541  | i A|
0064 7d0d 3d35  |} =5|
0066 353d 397d  |5=9}|
0068 0905 4d14  |  M |
006a b955 4d15  | UM |
006c 497d 0d21  |I} !|
006e 0548 dcc0  | H  |
0070 e598 5c00  |  \ |
0072 3d4d 5105  |=MQ |
0074 3911 0549  |9  I|
0076 10b9 4d51  |  MQ|
0078 4925 391d  |I%9 |
007a 8d84 2000  |    |
007c 0000 0000  |    |
007e 0000 0004  |    |
0080 2000 0000  |    |
0082 0000 0000  |    |
0084 0118 0000  |    |
0086 0002 6000  |  ` |
0088 0000 b000  |    |
008a 9905 417d  |  A}|
008c 0d3d 3535  | =55|
008e 3d39 7d09  |=9} |
0090 054d 14b9  | M  |
0092 0541 7d4d  | A}M|
0094 0d49 1515  | I  |
0096 397d 493d  |9}I=|
0098 5105 5115  |Q Q |
009a 7d3d 1919  |}=  |
009c 4d15 50f5  |M P |
009e ee50 0000  | P  |
00a0 0001 ec00  |    |
00a2 0001 2400  |  $ |
00a4 7505 417d  |u A}|
00a6 0d3d 3535  | =55|
00a8 3d39 7d09  |=9} |
00aa 054d 14b9  | M  |
00ac 0541 7d51  | A}Q|
00ae 1561 517d  | aQ}|
00b0 5165 4114  |QeA |
00b2 d0c0 f198  |    |
00b4 5c00 3d4d  |\ =M|
00b6 5105 3911  |Q 9 |
00b8 0549 10b9  | I  |
00ba 4d51 4925  |MQI%|
00bc 391d 8d84  |9   |
00be 2000 0000  |    |
00c0 0000 0000  |    |
00c2 0004 2000  |    |
00c4 0000 0000  |    |
00c6 0000 00a0  |    |
00c8 0000 0170  |   p|
00ca 0000 0118  |    |
00cc 0065 0541  | e A|
00ce 7d0d 3d35  |} =5|
00d0 353d 397d  |5=9}|
00d2 0905 4d14  |  M |
00d4 b955 4d15  | UM |
00d6 497d 0d21  |I} !|
00d8 0548 c4e5  | H  |
00da 985c 003d  | \ =|
00dc 4d51 0539  |MQ 9|
00de 1105 4910  |  I |
00e0 b94d 5149  | MQI|
00e2 2539 1d8d  |%9  |
00e4 8420       |    |
00e5 0000 0000  |    |		.BLANK	0000[0x4]
00e9 0420       |    |		.XXX[0x1]
00ea 0000 0000  |    |		.BLANK	0000[0x4]
00ee 0400 0000  |    |		.XXX[0xb3]
00f0 0284 0000  |    |
00f2 0380 0091  |    |
00f4 0541 7d0d  | A} |
00f6 3d35 353d  |=55=|
00f8 397d 0905  |9}  |
00fa 4d14 b905  |M   |
00fc 417d 313d  |A}1=|
00fe 0511 7d35  |  }5|
0100 1539 557d  | 9U}|
0102 4915 4d41  |I MA|
0104 3d39 4d14  |=9M |
0106 f5ee 51fe  |  Q |
0108 4090 0019  |@   |
010a 4d0d 4915  |M I |
010c 1538 5c00  | 8\ |
010e 8d05 417d  |  A}|
0110 0d3d 3535  | =55|
0112 3d39 7d09  |=9} |
0114 054d 14b9  | M  |
0116 0541 7d4d  | A}M|
0118 0d49 1515  | I  |
011a 397d 0549  |9} I|
011c 4905 657d  |I e}|
011e 5165 4114  |QeA |
0120 01fe 4090  |  @ |
0122 002d 4915  | -I |
0124 4d41 3d39  |MA=9|
0126 4d15 7d25  |M }%|
0128 385c 003d  |8\ =|
012a 4d51 0539  |MQ 9|
012c 1105 4910  |  I |
012e b94d 5149  | MQI|
0130 2539 1c01  |%9  |
0132 fe40 9000  | @  |
0134 1d4d 2569  | M%i|
0136 157d 2538  | }%8|
0138 5c00 414d  |\ AM|
013a 5105 3911  |Q 9 |
013c 0549 10b9  | I  |
013e 2539 5115  |%9Q |
0140 1d15 4801  |  H |
0142 fa40 8c00  | @  |
0144 2935 1539  |)5 9|
0146 557d 4d51  |U}MQ|
0148 0549 505c  | IP\|
014a 0041 4d51  | AMQ|
014c 0539 1105  | 9  |
014e 4910 b925  |I  %|
0150 3951 151d  |9Q  |
0152 1548 5800  | HX |
0154 7105 417d  |q A}|
0156 0d3d 3535  | =55|
0158 3d39 7d09  |=9} |
015a 054d 14b9  | M  |
015c 0541 7d35  | A}5|
015e 1539 557d  | 9U}|
0160 4d51 0549  |MQ I|
0162 5000 0000  |P   |
0164 01fc 0000  |    |
0166 00e8 0061  |   a|
0168 0541 7d0d  | A} |
016a 3d35 353d  |=55=|
016c 397d 0905  |9}  |
016e 4d14 b905  |M   |
0170 417d 1925  |A} %|
0172 3114 c8c4  |1   |
0174 e598 5c00  |  \ |
0176 414d 5105  |AMQ |
0178 3911 0549  |9  I|
017a 10b9 2539  |  %9|
017c 5115 1d15  |Q   |
017e 4800 2000  |H   |
0180 0000 0000  |    |
0182 0000 0054  |   T|
0184 0000 0174  |   t|
0186 0000 0118  |    |
0188 0065 0541  | e A|
018a 7d0d 3d35  |} =5|
018c 353d 397d  |5=9}|
018e 0905 4d14  |  M |
0190 b955 4d15  | UM |
0192 497d 0d21  |I} !|
0194 0548 c8e5  | H  |
0196 985c 003d  | \ =|
0198 4d51 0539  |MQ 9|
019a 1105 4910  |  I |
019c b94d 5149  | MQI|
019e 2539 1d8d  |%9  |
01a0 8420       |    |
01a1 0000 0000  |    |		.BLANK	0000[0x4]
01a5 0420       |    |		.XXX[0x1]
01a6 0000 0000  |    |		.BLANK	0000[0x4]
01aa 0800 0000  |    |		.XXX[0x56]
01ac 00f8 0000  |    |
01ae 00c8 0069  |   i|
01b0 0541 7d0d  | A} |
01b2 3d35 353d  |=55=|
01b4 397d 0905  |9}  |
01b6 4d14 b905  |M   |
01b8 417d 493d  |A}I=|
01ba 5d7d 5165  |]}Qe|
01bc 4114 f198  |A   |
01be 5c00 414d  |\ AM|
01c0 5105 3911  |Q 9 |
01c2 0549 10b9  | I  |
01c4 2539 5115  |%9Q |
01c6 1d15 4800  |  H |
01c8 0000 00a4  |    |
01ca 0000 0108  |    |
01cc 0085 0541  |   A|
01ce 7d0d 3d35  |} =5|
01d0 353d 397d  |5=9}|
01d2 0905 4d14  |  M |
01d4 b905 417d  |  A}|
01d6 4915 0d7d  |I  }|
01d8 4d51 0551  |MQ Q|
01da 554d 7d51  |UM}Q|
01dc 6541 14ee  |eA  |
01de 65b8 c400  |e   |
01e0 1955 3955  | U9U|
01e2 4d15 10c4  |M   |
01e4 0015 5905  |  Y |
01e6 3125 10c4  |1%  |
01e8 001d 1115  |    |
01ea 3115 5115  |1 Q |
01ec 1000 0000  |    |
01ee 0028 0000  | (  |
01f0 01c0 009d  |    |
01f2 0541 7d0d  | A} |
01f4 3d35 353d  |=55=|
01f6 397d 0905  |9}  |
01f8 4d14 b905  |M   |
01fa 417d 4915  |A}I |
01fc 0d15 2559  |  %Y|
01fe 2539 1d7d  |%9 }|