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

⟦5754611d3⟧

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

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 001b       |    |		.CONST	0x001b								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 000d       |    |		.CONST	0x000d								; Number of locals
000b			INIT_0008:
000b 00c4       |    |		Action	Make_Default
000c e001       |    |		Load	0x0,0x1
000d e002       |    |		Load	0x0,0x2
000e e003       |    |		Load	0x0,0x3
000f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0010 e003       |    |		Load	0x0,0x3
0011 1911       |    |		Execute	Package,Field_Reference,Field_Number 0x11
0012 e003       |    |		Load	0x0,0x3
0013 1913       |    |		Execute	Package,Field_Reference,Field_Number 0x13
0014 e004       |    |		Load	0x0,0x4
0015 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0016 0386       |    |		Declare_Variable	Package,Visible
0017 00d8       |    |		Load_Top	At_Offset_0
0018 020f       |    |		Execute	Module,Activate
0019 c20d       |    |		Store	0x1,0xd
001a 00bf       |    |		Action	Accept_Activation
001b			BODY_0008:
001b 00bc       |    |		Action	Signal_Activated
001c 00bb       |    |		Action	Signal_Completion
001d 0000 0000  |    |		.XXX[0x3]
001f 0000       |    |
0020 ; --------------------------------------------------------------------------------------
0020 ; Debug Table
0020 ; --------------------------------------------------------------------------------------
0020 0004 0011  |    |		.DEBUG4	0x0004,0x0011,0x5e35,0x0000,0x0001,0x0000
0026 3d0d 5115  |= Q |		.XXX[0x1ba]
0028 5000 d844  |P  D|
002a 8555 4d15  | UM |
002c 494c b959  |IL Y|
002e 1549 1d15  | I  |
0030 48b9 68e0  |H h |
0032 c001 900d  |    |
0034 5149 6402  |QId |
0036 00cc 8555  |   U|
0038 4d15 494c  |M IL|
003a b941 0534  | A 4|
003c b915 6141  |  aA|
003e 1549 2535  | I%5|
0040 1539 50b9  | 9P |
0042 390d 3559  |9 5Y|
0044 0cb9 5115  |  Q |
0046 4d50 b949  |MP I|
0048 1558 c57d  | X }|
004a 5d3d 492d  |]=I-|
004c 2539 1cb9  |%9  |
004e 5539 2551  |U9%Q|
0050 4c02 0459  |L  Y|
0052 2915 7d51  |) }Q|
0054 154d 5115  | MQ |
0056 7d31 157d  |}1 }|
0058 4d15 4555  |M EU|
005a 1539 0d15  | 9  |
005c 5548 00e4  |UH  |
005e 3d51 154d  |=Q M|
0060 517d 4d15  |Q}M |
0062 4555 1539  |EU 9|
0064 0d15 5548  |  UH|
0066 00c0 5151  |  QQ|
0068 154d 517d  | MQ}|
006a 5539 093d  |U9 =|
006c 5539 1115  |U9  |
006e 117d 0549  | } I|
0070 4905 6401  |I d |
0072 18a0 8541  |   A|
0074 493d 2915  |I=) |
0076 0d51 4cb9  | QL |
0078 1905 1104  |    |
007a e4c8 b919  |    |
007c 0511 04b9  |    |
007e 4915 58c5  |I X |
0080 7d5d 3d49  |}]=I|
0082 2d25 391c  |-%9 |
0084 b955 3925  | U9%|
0086 514c 002c  |QL ,|
0088 194d 5149  | MQI|
008a 2539 1c01  |%9  |
008c 7039 393d  |p99=|
008e 357d 1115  |5}  |
0090 7d19 250d  |} % |
0092 2125 1548  |!% H|
0094 0208 1125  |   %|
0096 3925 5000  |9%P |
0098 5839 2539  |X9%9|
009a 2551 2505  |%Q% |
009c 3125 4d05  |1%M |
009e 5125 3d38  |Q%=8|
00a0 020c 2551  |  %Q|
00a2 1561 517d  | aQ}|
00a4 2539 2550  |%9%P|
00a6 0194 5d0d  |  ] |
00a8 4915 0551  |I  Q|
00aa 1511 7d19  |  } |
00ac 3d49 7d41  |=I}A|
00ae 493d 1d49  |I= I|
00b0 0535 7d49  | 5}I|
00b2 5538 0210  |U8  |
00b4 ac85 3505  |  5 |
00b6 0d21 2539  | !%9|
00b8 14b9 4915  |  I |
00ba 3115 054d  |1  M|
00bc 14b9 1115  |    |
00be 0955 1d1d  | U  |
00c0 1549 4cb9  | IL |
00c2 0d3d 1114  | =  |
00c4 c4c5 7cc5  |  | |
00c6 7cd8 b955  ||  U|
00c8 3925 514c  |9%QL|
00ca 0198 2949  |  )I|
00cc 5539 7d39  |U9}9|
00ce 0551 2559  | Q%Y|
00d0 1401 d4cc  |    |
00d2 8541 493d  | AI=|
00d4 2915 0d51  |)  Q|
00d6 4cb9 1115  |L   |
00d8 4d2d 513d  |M-Q=|
00da 40b9 3d09  |@ = |
00dc 2915 0d51  |)  Q|
00de 7d35 0539  |}5 9|
00e0 051d 1548  |   H|
00e2 b949 1558  | I X|
00e4 c57d 5d3d  | }]=|
00e6 492d 2539  |I-%9|
00e8 1cb9 5539  |  U9|
00ea 2551 4c00  |%QL |
00ec 8825 0d21  | % !|
00ee 0549 050d  | I  |
00f0 5115 4802  |Q H |
00f2 1424 858d  | $  |
00f4 bdb5 b585  |    |
00f6 b991 cc01  |    |
00f8 c40d 313d  |  1=|
00fa 1c02 1829  |   )|
00fc 413d 417d  |A=A}|
00fe 3d55 5141  |=UQA|
0100 5550 021c  |UP  |
0102 5d11 1509  |]   |
0104 551d 1d15  |U   |
0106 497d 2539  |I}%9|
0108 2551 2505  |%Q% |
010a 3125 6905  |1%i |
010c 5125 3d38  |Q%=8|
010e 0220 2111  |  ! |
0110 5549 0551  |UI Q|
0112 253d 3800  |%=8 |
0114 a011 3105  |  1 |
0116 4d50 0104  |MP  |
0118 458d bdb5  |E   |
011a b585 b991  |    |
011c 7dc1 c9bd  |}   |
011e 8d95 91d5  |    |
0120 c994 0224  |   $|
0122 1d55 3909  | U9 |
0124 3d55 3910  |=U9 |
0126 0228 0d1d  | (  |
0128 1550 0098  | P  |
012a 3d55 3909  |=U9 |
012c 3d55 3911  |=U9 |
012e 1511 7d05  |  } |
0130 4949 0564  |II d|
0132 00f8 0cc4  |    |
0134 d0c4 01e8  |    |
0136 08d4 cc00  |    |
0138 bc0c c4d4  |    |
013a d002 2c0c  |  , |
013c c8c0 d400  |    |
013e 1004 c002  |    |
0140 30c0 8541  |0  A|
0142 493d 2915  |I=) |
0144 0d51 4cb9  | QL |
0146 1905 1104  |    |
0148 e4c8 b919  |    |
014a 0511 04b9  |    |
014c 4915 58c5  |I X |
014e 7d5d 3d49  |}]=I|
0150 2d25 391c  |-%9 |
0152 b955 3925  | U9%|
0154 514c b939  |QL 9|
0156 3d51 2125  |=Q!%|
0158 391c 0180  |9   |
015a d085 4149  |  AI|
015c 3d29 150d  |=)  |
015e 514c b919  |QL  |
0160 0511 04e4  |    |
0162 c8b9 1905  |    |
0164 1104 b949  |   I|
0166 1558 c57d  | X }|
0168 5d3d 492d  |]=I-|
016a 2539 1cb9  |%9  |
016c 5539 2551  |U9%Q|
016e 4cb9 5115  |L Q |
0170 4d50 b941  |MP A|
0172 1549 3525  | I5%|
0174 4c00 1cd0  |L   |
0176 8541 493d  | AI=|
0178 2915 0d51  |)  Q|
017a 4cb9 1905  |L   |
017c 1104 e4c8  |    |
017e b919 0511  |    |
0180 04b9 4915  |  I |
0182 58c5 7d5d  |X }]|
0184 3d49 2d25  |=I-%|
0186 391c b955  |9  U|
0188 3925 514c  |9%QL|
018a b951 154d  | Q M|
018c 50b9 4125  |P A%|
018e 313d 5114  |1=Q |
0190 0054 2105  | T! |
0192 1549 3d41  | I=A|
0194 3d49 5001  |=IP |
0196 58b4 8541  |X  A|
0198 493d 2915  |I=) |
019a 0d51 4cb9  | QL |
019c 1905 1104  |    |
019e e4c8 b919  |    |
01a0 0511 04b9  |    |
01a2 4915 58c5  |I X |
01a4 7d5d 3d49  |}]=I|
01a6 2d25 391c  |-%9 |
01a8 b955 3925  | U9%|
01aa 514c b951  |QL Q|
01ac 154d 5002  | MP |
01ae 3451 5115  |4QQ |
01b0 4d51 7d0d  |MQ} |
01b2 3d39 4d51  |=9MQ|
01b4 0539 517d  | 9Q}|
01b6 4d51 4925  |MQI%|
01b8 391c 0238  |9  8|
01ba a485 4149  |  AI|
01bc 3d29 150d  |=)  |
01be 514c b919  |QL  |
01c0 0511 04e4  |    |
01c2 c8b9 3915  |  9 |
01c4 6905 34b9  |i 4 |
01c6 4915 58c5  |I X |
01c8 7d5d 3d49  |}]=I|
01ca 2d25 391c  |-%9 |
01cc b955 3925  | U9%|
01ce 514c 023c  |QL <|
01d0 1d11 3d7d  |  =}|
01d2 4d51 1540  |MQ @|
01d4 01d3 b005  |    |
01d6 0555 5121  | UQ!|
01d8 3d49 2569  |=I%i|
01da 0551 253d  | Q%=|
01dc 397d 0d21  |9} !|
01de 150d 2cb0  |  , |
01e0 8080 8080  |    |		.BLANK	8080[0xd]
01ed 8149 1531  | I 1|		.XXX[0x9]
01ef 1505 4d15  |  M |
01f1 7d49 154d  |}I M|
01f3 513d 4914  |Q=I |
01f5 b080       |    |
01f6 8080 8080  |    |		.BLANK	8080[0xa]