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

⟦2382a67a8⟧

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

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 e002       |    |		Load	0x0,0x2
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 e002       |    |		Load	0x0,0x2
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 0002  |    |		.DEBUG4	0x0004,0x0002,0x0b8c,0x0000,0x0001,0x0000
005e 4c63 5680  |LcV |		.XXX[0x1a2]
0060 104c 4f76  | LOv|
0062 b043 76b0  | Cv |
0064 3376 b023  |3v #|
0066 76b0 1342  |v  B|
0068 8011 43ec  |  C |
006a 1180 1000  |    |
006c 0308 517b  |  Q{|
006e 52b7 d352  |R  R|
0070 b7c3 d806  |    |
0072 b7bf 7eb7  |  ~ |
0074 e37e b7f3  | ~  |
0076 42b0 2143  |B !C|
0078 2e3f f3ff  |.?  |
007a fffe 8011  |    |
007c fb42 b021  | B !|
007e 426a 8051  |Bj Q|
0080 fb76 f023  | v #|
0082 ec17 bea0  |    |
0084 7400 0342  |t  B|
0086 b011 4341  |  CA|
0088 4147 4a84  |AGJ |
008a 5147 2d46  |QG-F|
008c 8041 4342  | ACB|
008e b011 474a  |  GJ|
0090 8451 472d  | QG-|
0092 46b7 e147  |F  G|
0094 4541 4448  |EADH|
0096 9b42 b011  | B  |
0098 4356 8020  |CV  |
009a 4c5f 7eb7  |L_~ |
009c c37e b7d3  | ~  |
009e 76b0 2376  |v #v|
00a0 b013 ec13  |    |
00a2 bcab f3ff  |    |
00a4 ffd9 42b7  |  B |
00a6 be56 b7bc  | V  |
00a8 4814 0751  |H  Q|
00aa 4010 0322  |@  "|
00ac f012 b7d3  |    |
00ae 42b0 1143  |B  C|
00b0 2280 12b7  |"   |
00b2 c34a b7c1  | J  |
00b4 432d 42b7  |C-B |
00b6 d143 42b0  | CB |
00b8 2147 2eb7  |!G. |
00ba f284 1147  |   G|
00bc 4ab7 c14b  |J  K|
00be 2949 4745  |)IGE|
00c0 4144 481f  |ADH |
00c2 4005 4044  |@ @D|
00c4 1000 0351  |   Q|
00c6 4261 4140  |BaA@|
00c8 1000 0000  |    |
00ca 3b42 b021  |;B !|
00cc 6f42 b011  |oB  |
00ce 4342 8031  |CB 1|
00d0 6b51 6445  |kQdE|
00d2 2000 0314  |    |
00d4 9165 4301  | eC |
00d6 6943 2e3e  |iC.>|
00d8 03ff fffe  |    |
00da ac41 4746  | AGF|
00dc 8031 4448  | 1DH|
00de bb14 9165  |   e|
00e0 4301 6943  |C iC|
00e2 5680 604c  |V `L|
00e4 8b75 6f14  | uo |
00e6 9165 4305  | eC |
00e8 6941 fb14  |iA  |
00ea 9165 4301  | eC |
00ec 6943 4280  |iCB |
00ee 6143 ec09  |aC  |
00f0 8355 404c  | U@L|
00f2 1b41 6540  | Ae@|
00f4 1000 0359  |   Y|
00f6 6742 b011  |gB  |
00f8 4345 6680  |CEf |
00fa 107e c338  | ~ 8|
00fc 0540 1000  | @  |
00fe 0308 817b  |   {|
0100 42f0 12b7  |B   |
0102 f376 b7f3  | v  |
0104 ec07 bdf3  |    |
0106 c7ff ff41  |   A|
0108 42b7 e352  |B  R|
010a b7a3 5540  |  U@|
010c 4814 c4db  |H   |
010e fc00 0356  |   V|
0110 8070 4887  | pH |
0112 7543 76b7  |uCv |
0114 f3ec 0bbf  |    |
0116 2c6c 0003  |,l  |
0118 76b7 e376  |v  v|
011a b7f3 ec0b  |    |
011c bcf8 6800  |  h |
011e 0342 b7e1  | B  |
0120 4741 4284  |GAB |
0122 70c6 0400  |p   |
0124 0000 0342  |   B|
0126 b011 4342  |  CB|
0128 b7f1 470f  |  G |
012a 0660 0280  | `  |
012c 5143 42b7  |QCB |
012e e147 1284  | G  |
0130 5143 06b7  |QC  |
0132 a142 b7b3  | B  |
0134 42b7 b141  |B  A|
0136 e009 4143  |  AC|
0138 0284 4143  |  AC|
013a 4182 b793  |A   |
013c 52b7 d342  |R  B|
013e b7e1 4314  |  C |
0140 32b7 d147  |2  G|
0142 0546 8072  | F r|
0144 b783 52b7  |  R |
0146 c044 8f42  | D B|
0148 b781 4306  |  C |
014a b7c2 8021  |   !|
014c 4342 b7e1  |CB  |
014e 45e0 0941  |E  A|
0150 4302 8461  |C  a|
0152 4345 82b7  |CE  |
0154 9048 1340  | H @|
0156 0540 135a  | @ Z|
0158 b7c3 42b7  |  B |
015a 8143 46b7  | CF |
015c c280 1067  |   g|
015e 4b5a b7d3  |KZ  |
0160 46b7 d020  |F   |
0162 66d7 5ab7  |f Z |
0164 a342 b7e1  | B  |
0166 4346 b7a2  |CF  |
0168 8050 600c  | P` |
016a c5d3 fcc5  |    |
016c e7f8 0000  |    |
016e 0342 b011  | B  |
0170 4346 8040  |CF @|
0172 184f 1346  | O F|
0174 8040 084c  | @ L|
0176 1b46 8040  | F @|
0178 0c48 3b76  | H;v|
017a b013 ec07  |    |
017c bffb fbff  |    |
017e ff55 404a  | U@J|
0180 a8c5 3ff8  |  ? |
0182 0000 0000  |    |
0184 3342 b011  |3B  |
0186 6f42 b021  |oB !|
0188 6b42 ac31  |kB 1|
018a ab52 a863  | R c|
018c 52a8 5352  |R SR|
018e a823 52a8  | #R |
0190 1341 aea8  | A  |
0192 4352 a833  |CR 3|
0194 52a8 7252  |R rR|
0196 a883 41ad  |  A |
0198 433d 4008  |C=@ |
019a 1848 0048  | H H|
019c 0078 0078  | x x|
019e 008c 00a8  |    |
01a0 00a8 0010  |    |
01a2 0000 0342  |   B|
01a4 acc2 a813  |    |
01a6 42ac d2a8  |B   |
01a8 5010 0342  |P  B|
01aa acd2 a853  |   S|
01ac 42ac c2a8  |B   |
01ae 1010 0342  |   B|
01b0 ad02 a810  |    |
01b2 1000 0000  |    |
01b4 2342 b021  |#B !|
01b6 6f41 ad43  |oA C|
01b8 3d40 080c  |=@  |
01ba 4c00 4c00  |L L |
01bc 4c00 4c03  |L L |
01be 42b0 1143  |B  C|
01c0 4280 3140  |B 1@|
01c2 1000 0342  |   B|
01c4 ac71 4010  | q@ |
01c6 0000 0000  |    |
01c8 3a7a bad1  |:z  |
01ca 7b42 b031  |{B 1|
01cc 6f42 f021  |oB !|
01ce 6b42 b021  |kB !|
01d0 4342 8022  |CB "|
01d2 b753 4280  | SB |
01d4 12b7 3342  |  3B|
01d6 a8c2 b723  |   #|
01d8 4142 b713  |AB  |
01da 45ac 1c4c  |E  L|
01dc 1745 ac20  | E  |
01de 4837 46ac  |H7F |
01e0 d008 4c17  |  L |
01e2 56ac c04c  |V  L|
01e4 0810 037e  |   ~|
01e6 b763 756f  | cuo|
01e8 ec0b bcc3  |    |
01ea ffff ff55  |   U|
01ec 6848 c374  |hH t|
01ee 0374 037f  | t  |
01f0 bdc0 8000  |    |
01f2 037f bd6c  |   l|
01f4 8000 037f  |    |
01f6 bd2c 8000  | ,  |
01f8 037f bcd0  |    |
01fa 8000 0376  |   v|
01fc b013 ec07  |    |
01fe be2b bfff  | +  |