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

⟦50fae5a19⟧

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

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 e001       |    |		Load	0x0,0x1
001c 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
001d e001       |    |		Load	0x0,0x1
001e 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
001f 00db       |    |		Load_Top	At_Offset_3
0020 680a       |h   |		Jump_Zero	0x2b
0021 4801       |H   |		Short_Literal	0x1
0022 e001       |    |		Load	0x0,0x1
0023 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
0024 0092 0038  |   8|		Action	Push_String_Extended,0x38					; "------- End of  step:   "
0026 00db       |    |		Load_Top	At_Offset_3
0027 01cc       |    |		Execute	Vector,Catenate
0028 e001       |    |		Load	0x0,0x1
0029 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
002a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
002b 4801       |H   |		Short_Literal	0x1
002c e001       |    |		Load	0x0,0x1
002d 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
002e 0092 0039  |   9|		Action	Push_String_Extended,0x39					; "------- Beginning step: "
0030 00db       |    |		Load_Top	At_Offset_3
0031 01cc       |    |		Execute	Vector,Catenate
0032 e001       |    |		Load	0x0,0x1
0033 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0034 4801       |H   |		Short_Literal	0x1
0035 e001       |    |		Load	0x0,0x1
0036 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
0037 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0038 ; --------------------------------------------------------------------------------------
0038 ; STRING TABLE
0038 ; --------------------------------------------------------------------------------------
0038 0006       |    |		.STRTAB	0x0006->0x003b							; "------- End of  step:   "
0039 001c       |    |		.STRTAB	0x001c->0x0047							; "------- Beginning step: "
003a 0032       | 2  |		.STREND 0x0032->0x0053
003b 2d2d 2d2d  |----|		.STRTAB_STRINGS
0053 0000 0000  |    |		.BLANK	0000[0x5]
0058 ; --------------------------------------------------------------------------------------
0058 ; Debug Table
0058 ; --------------------------------------------------------------------------------------
0058 0004 000d  |    |		.DEBUG4	0x0004,0x000d,0x7924,0x0000,0x0001,0x0000
005e 0cd1 2045  |   E|		.XXX[0x10b]
0060 2003 9811  |    |
0062 23fc 09e7  |#   |
0064 8018 6c44  |  lD|
0066 096c 0367  | l g|
0068 9824 0758  | $ X|
006a ffd8 0368  |   h|
006c 0753 980c  | S  |
006e 036b 9fff  | k  |
0070 8010 6064  |  `d|
0072 0347 980c  | G  |
0074 f004 3c0a  |  < |
0076 1017 980c  |    |
0078 f000 3c4a  |  <J|
007a 1017 980c  |    |
007c f00c 3c02  |  < |
007e 1017 980c  |    |
0080 f009 c02f  |   /|
0082 900d a013  |    |
0084 9813 9010  |    |
0086 09fd c017  |    |
0088 9810 2807  |  ( |
008a 1810 0325  |   %|
008c ff34 033b  | 4 ;|
008e 980f 9fff  |    |
0090 8010 6080  |  ` |
0092 0347 980c  | G  |
0094 f004 3c02  |  < |
0096 1017 980c  |    |
0098 f00c 3c02  |  < |
009a 1017 980c  |    |
009c f000 3c02  |  < |
009e 1017 900d  |    |
00a0 c00f 980c  |    |
00a2 f00a 1017  |    |
00a4 980f 9fff  |    |
00a6 8010 606c  |  `l|
00a8 0347 980c  | G  |
00aa f004 3c02  |  < |
00ac 1017 980c  |    |
00ae f000 3c02  |  < |
00b0 1017 980c  |    |
00b2 f00c 3c02  |  < |
00b4 1017 900d  |    |
00b6 c00f 980c  |    |
00b8 f00a 1017  |    |
00ba 980d 2003  |    |
00bc 9fff 8010  |    |
00be 6054 0347  |`T G|
00c0 980c f004  |    |
00c2 3c02 1017  |<   |
00c4 980c f000  |    |
00c6 3c02 1017  |<   |
00c8 980c f00c  |    |
00ca 3c02 1017  |<   |
00cc 980c f008  |    |
00ce 3c02 1017  |<   |
00d0 980f 8010  |    |
00d2 6071 204b  |`q K|
00d4 9fff 8010  |    |
00d6 6074 0347  |`t G|
00d8 980c f004  |    |
00da 3c06 1017  |<   |
00dc 980c f00c  |    |
00de 3c02 1017  |<   |
00e0 980c f000  |    |
00e2 3c02 1017  |<   |
00e4 980c f008  |    |
00e6 3c02 1014  |<   |
00e8 033c 001c  | <  |
00ea 0367 980f  | g  |
00ec 9fff 8010  |    |
00ee 605c 034b  |`\ K|
00f0 980c f004  |    |
00f2 3c06 1017  |<   |
00f4 980c f00c  |    |
00f6 2c01 c014  |,   |
00f8 2c15 c095  |,   |
00fa 2002 1015  |    |
00fc e0b7 980c  |    |
00fe f000 3849  |  8I|
0100 a00c 0248  |   H|
0102 370a 1018  |7   |
0104 0369 2001  | i  |
0106 2047 8018  | G  |
0108 6c48 0cd1  |lH  |
010a 2045 2003  | E  |
010c 9815 23fc  |  # |
010e 09e7 8018  |    |
0110 6c44 096c  |lD l|
0112 0367 982c  | g ,|
0114 0758 ffd8  | X  |
0116 0779 a00c  | y  |
0118 0248 370e  | H7 |
011a 101b 9814  |    |
011c 2807 1815  |(   |
011e e02f 980c  | /  |
0120 f000 3c02  |  < |
0122 1017 9817  |    |
0124 9810 2804  |  ( |
0126 09fe 1014  |    |
0128 0345 e00c  | E  |
012a 0344 0325  | D %|
012c fef4 033b  |   ;|
012e 900d c00f  |    |
0130 980c f00a  |    |
0132 1017 980f  |    |
0134 9fff 8010  |    |
0136 6078 0347  |`x G|
0138 980c f004  |    |
013a 3c02 1017  |<   |
013c 980c f00c  |    |
013e 3c02 1017  |<   |
0140 980c f000  |    |
0142 3c02 1017  |<   |
0144 900d c00f  |    |
0146 980c f00a  |    |
0148 1017 980d  |    |
014a 2003 9fff  |    |
014c 8010 6054  |  `T|
014e 0347 980c  | G  |
0150 f004 3c02  |  < |
0152 1017 980c  |    |
0154 f000 3c02  |  < |
0156 1017 980c  |    |
0158 f00c 3c02  |  < |
015a 1017 980c  |    |
015c f008 3c02  |  < |
015e 1017 8008  |    |
0160 6c43 9fff  |lC  |
0162 8010 6043  |  `C|
0164 180b 9808  |    |
0166 3c02 1015  |<   |
0168 1408       |    |
0169 0000 0000  |    |		.BLANK	0000[0x4]
016d 000a 0000  |    |		.XXX[0x93]
016f 0000 0001  |    |
0171 375f d804  |7_  |
0173 0000 0000  |    |
0175 0000 5b2c  |  [,|
0177 0000 0000  |    |
0179 0137 5fd8  | 7_ |
017b 02b2 5034  |  P4|
017d 0003 2ec0  |  . |
017f 0d3c 15f8  | <  |
0181 0023 8008  | #  |
0183 6c43 8008  |lC  |
0185 6c50 0c88  |lP  |
0187 038c 1800  |    |
0189 038c 1800  |    |
018b 038d 2001  |    |
018d 2047 8008  | G  |
018f 6c38 0fe1  |l8  |
0191 2001 2047  |   G|
0193 8018 6c48  |  lH|
0195 0cd1 2007  |    |
0197 9ffe 1020  |    |
0199 033d 2029  | = )|
019b 2004 001f  |    |
019d 980f 8010  |    |
019f 6071 204b  |`q K|
01a1 9fff 8010  |    |
01a3 607c 0347  |`| G|
01a5 980c f004  |    |
01a7 3c0a 1017  |<   |
01a9 980c f00c  |    |
01ab 3c02 1017  |<   |
01ad 980c f000  |    |
01af 3c02 1017  |<   |
01b1 980c f008  |    |
01b3 3c02 1014  |<   |
01b5 033d 2191  | =! |
01b7 2004 001d  |    |
01b9 2001 2047  |   G|
01bb 8018 6c48  |  lH|
01bd 0cd1 2045  |   E|
01bf 2000 036c  |   l|
01c1 0367 983c  | g <|
01c3 0758 ffef  | X  |
01c5 9820 0753  |   S|
01c7 980f 9823  |   #|
01c9 9fff 8010  |    |
01cb 6064 0347  |`d G|
01cd 980c f004  |    |
01cf 3c0a 1017  |<   |
01d1 980c f000  |    |
01d3 3c4a 1017  |<J  |
01d5 980c f00c  |    |
01d7 3c02 1017  |<   |
01d9 980c f008  |    |
01db 3c02 1014  |<   |
01dd 0320 ff68  |   h|
01df 033b 980f  | ;  |
01e1 9fff 8010  |    |
01e3 6080 0347  |`  G|
01e5 980c f004  |    |
01e7 3c02 1017  |<   |
01e9 980c f00c  |    |
01eb 3c02 1017  |<   |
01ed 980c f000  |    |
01ef 3c02 1017  |<   |
01f1 980c f008  |    |
01f3 3c02 1017  |<   |
01f5 980f 9fff  |    |
01f7 8010 606c  |  `l|
01f9 0347 980c  | G  |
01fb f004 3c02  |  < |
01fd 1017 980c  |    |
01ff f000       |    |