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

⟦e32b53837⟧

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

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦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 0050       | P  |		.CONST	0x0050								; 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 0021       | !  |		.CONST	0x0021								; Address of begin
0019 0031       | 1  |		.CONST	0x0031								; Address of exception handler
001a 0002       |    |		.CONST	0x0002								; Number of locals
001b			INIT_0018:
001b e001       |    |		Load	0x0,0x1
001c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
001d 02c7       |    |		Declare_Variable	Any
001e e001       |    |		Load	0x0,0x1
001f 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0020 a402       |    |		Store_Unchecked	0x2,0x2
0021			BODY_0018:
0021 e5fa       |    |		Load	0x2,-0x6
0022 e001       |    |		Load	0x0,0x1
0023 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0024 e001       |    |		Load	0x0,0x1
0025 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0026 e5fb       |    |		Load	0x2,-0x5
0027 e5fc       |    |		Load	0x2,-0x4
0028 e5fd       |    |		Load	0x2,-0x3
0029 e5fe       |    |		Load	0x2,-0x2
002a e5ff       |    |		Load	0x2,-0x1
002b e002       |    |		Load	0x0,0x2
002c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
002d 00d8       |    |		Load_Top	At_Offset_0
002e e001       |    |		Load	0x0,0x1
002f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0030 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
0031			TRAP_0018:
0031 0007       |    |		Action	Break_Optional
0032 e001       |    |		Load	0x0,0x1
0033 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0034 4808       |H   |		Short_Literal	0x8
0035 4801       |H   |		Short_Literal	0x1
0036 4801       |H   |		Short_Literal	0x1
0037 e003       |    |		Load	0x0,0x3
0038 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0039 e004       |    |		Load	0x0,0x4
003a 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
003b e001       |    |		Load	0x0,0x1
003c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
003d e001       |    |		Load	0x0,0x1
003e 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
003f 6805       |h   |		Jump_Zero	0x45
0040 00d9       |    |		Load_Top	At_Offset_1
0041 e001       |    |		Load	0x0,0x1
0042 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0043 00d8       |    |		Load_Top	At_Offset_0
0044 0101       |    |		Execute	Exception,Reraise
0045 00d9       |    |		Load_Top	At_Offset_1
0046 e001       |    |		Load	0x0,0x1
0047 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0048 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
0049 0000 0000  |    |		.BLANK	0000[0x7]
0050 ; --------------------------------------------------------------------------------------
0050 ; Debug Table
0050 ; --------------------------------------------------------------------------------------
0050 0004 0001  |    |		.DEBUG4	0x0004,0x0001,0x37a1,0x0000,0x0001,0x0000
0056 1505 4d14  |  M |		.XXX[0x2e]
0058 b915 3959  |  9Y|
005a 2549 3d39  |%I=9|
005c 3515 3950  |5 9P|
005e b911 7cc4  |  | |
0060 c97c d97c  | | ||
0062 d4b9 313d  |  1=|
0064 0511 7d41  |  }A|
0066 493d 0d4c  |I= L|
0068 b925 394d  | %9M|
006a 5105 3131  |Q 11|
006c 7d55 3925  |}U9%|
006e 5915 494d  |Y IM|
0070 149d 4d41  |  MA|
0072 150c 0000  |    |
0074 0074 0000  | t  |
0076 0049 3915  | I9 |
0078 515d 3d49  |Q]=I|
007a 2d7d 4155  |-}AU|
007c 0931 250c  | 1% |
007e f4f9 495c  |  I\|
0080 0000 0000  |    |
0082 0094 a380  |    |
0084 0000 0000  |    |		.BLANK	0000[0x4]
0088 ffff ffff  |    |		.XXX[0x2]
008a 0000 0000  |    |		.BLANK	0000[0x4]
008e 0025 4559  | %EY|		.XXX[0x16]
0090 0000 0000  |    |
0092 0000 0002  |    |
0094 0000 0000  |    |
0096 0012 94f0  |    |
0098 8000 0001  |    |
009a 0012 9560  |   `|
009c 8012 9520  |    |
009e 8000 0001  |    |
00a0 8000 0000  |    |
00a2 0000 0001  |    |
00a4 0000 0000  |    |		.BLANK	0000[0x4]
00a8 0012 94b0  |    |		.XXX[0x158]
00aa 8012 a1bc  |    |
00ac 8012 95a0  |    |
00ae 8000 0001  |    |
00b0 0012 96cc  |    |
00b2 8012 94b0  |    |
00b4 8000 0001  |    |
00b6 8000 0021  |   !|
00b8 902a 3434  | *44|
00ba b990 3839  |  89|
00bc 37b1 b2b2  |7   |
00be 3ab9 3290  |: 2 |
00c0 34b9 903a  |4  :|
00c2 b9b2 b210  |    |
00c4 3a37 903a  |:7 :|
00c6 b832 30ba  | 20 |
00c8 3290 3a34  |2 :4|
00ca 3290 3ab7  |2 : |
00cc 34ba 3990  |4 9 |
00ce 3634 b9ba  |64  |
00d0 32b2 1034  |2  4|
00d2 b710 2ab7  |  * |
00d4 34ba 39af  |4 9 |
00d6 a634 b9ba  | 4  |
00d8 103a 3780  | :7 |
00da 1297 0c80  |    |
00dc 0000 0100  |    |
00de 1298 1880  |    |
00e0 1295 6080  |  ` |
00e2 0000 0180  |    |
00e4 0000 1d90  |    |
00e6 3a34 32b4  |:42 |
00e8 b910 3932  |  92|
00ea b839 32b9  | 92 |
00ec b2b7 3a30  |  :0|
00ee ba34 b7b7  | 4  |
00f0 1034 b710  | 4  |
00f2 3a34 3290  |:42 |
00f4 30b9 31b4  |0 1 |
00f6 34bb 3290  |4 2 |
00f8 3334 b632  |34 2|
00fa 9038 30b9  | 80 |
00fc b9b2 b210  |    |
00fe 3a37 9022  |:7 "|
0100 32bb 34b1  |2 4 |
0102 b297 0012  |    |
0104 9858 8000  | X  |
0106 0001 0012  |    |
0108 9888 8012  |    |
010a 96cc 8000  |    |
010c 0001 8000  |    |
010e 0000 0000  |    |
0110 0001 0012  |    |
0112 98c8 8000  |    |
0114 0001 0012  |    |
0116 99cc 8012  |    |
0118 9818 8000  |    |
011a 0001 8000  |    |
011c 001c 902b  |   +|
011e a0a9 2724  |  '$|
0120 a723 9d10  | #  |
0122 2a34 3290  |*42 |
0124 3ab7 34ba  |: 4 |
0126 3990 30b7  |9 0 |
0128 3210 3a34  |2 :4|
012a 32b4 b910  |2   |
012c 3232 b832  |22 2|
012e b732 32b7  | 22 |
0130 3a39 903b  |:9 ;|
0132 b4b6 3610  |  6 |
0134 3132 9032  |12 2|
0136 32b6 b7ba  |2   |
0138 32b2 1700  |2   |
013a 129a 0c80  |    |
013c 0000 0100  |    |
013e 129a 3c80  |  < |
0140 1298 8880  |    |
0142 0000 0180  |    |
0144 0000 0000  |    |
0146 0000 0100  |    |
0148 129a 7c80  |  | |
014a 0000 0100  |    |
014c 129b a880  |    |
014e 1299 cc80  |    |
0150 0000 0180  |    |
0152 0000 2190  |  ! |
0154 2a34 34b9  |*44 |
0156 9038 3937  | 897|
0158 b1b2 b23a  |   :|
015a b932 9031  | 2 1|
015c b0b7 1032  |   2|
015e 32b6 b7ba  |2   |
0160 3290 3090  |2 0 |
0162 3630 b933  |60 3|
0164 b290 373a  |  7:|
0166 b6b1 32b9  |  2 |
0168 1037 b310  | 7  |
016a 3ab7 34ba  |: 4 |
016c 3990 3232  |9 22|
016e b832 b732  | 2 2|
0170 34b7 3390  |4 3 |
0172 37b7 103a  |7  :|
0174 3432 8012  |42  |
0176 9be8 8000  |    |
0178 0001 0012  |    |
017a 9cf4 8012  |    |
017c 9a3c 8000  | <  |
017e 0001 8000  |    |
0180 001d 902a  |   *|
0182 b734 ba39  | 4 9|
0184 afa6 34b9  |  4 |
0186 ba17 1010  |    |
0188 24ba 1034  |$  4|
018a b990 3090  |  0 |
018c 33b7 b7b2  |3   |
018e 1034 b232  | 4 2|
0190 b090 3a37  |  :7|
0192 9039 3ab7  | 9: |
0194 1021 b7b6  | !  |
0196 b83a ba32  | : 2|
0198 afa9 32b1  |  2 |
019a b7b2 34b7  |  4 |
019c 3390 30b7  |3 0 |
019e 3200 129d  |2   |
01a0 3480 0000  |4   |
01a2 0100 129e  |    |
01a4 5c80 129b  |\   |
01a6 a880 0000  |    |
01a8 0180 0000  |    |
01aa 2110 21b4  |! ! |
01ac 32b1 b5af  |2   |
01ae a232 b832  | 2 2|
01b0 b732 32b7  | 22 |
01b2 3a39 9031  |:9 1|
01b4 32b3 37b9  |2 7 |
01b6 3290 393a  |2 9:|
01b8 b737 34b7  | 74 |
01ba 3390 3a34  |3 :4|
01bc 34b9 9038  |4  8|
01be 3937 b1b2  |97  |
01c0 b23a b932  | : 2|
01c2 9710 1024  |   $|
01c4 ba10 30b6  |  0 |
01c6 39b7 9036  |9  6|
01c8 b4b3 b43a  |   :|
01ca 1031 3280  | 12 |
01cc 129e 9c80  |    |
01ce 0000 0100  |    |
01d0 129f dc80  |    |
01d2 129c f480  |    |
01d4 0000 0180  |    |
01d6 0000 2410  |  $ |
01d8 3837 b9b9  |87  |
01da b4b1 3632  |  62|
01dc 903a 3790  | :7 |
01de 3ab8 3230  |: 20|
01e0 ba32 903a  | 2 :|
01e2 3432 903a  |42 :|
01e4 b734 ba39  | 4 9|
01e6 9034 b731  | 4 1|
01e8 b932 b6b2  | 2  |
01ea b73a 30b6  | :0 |
01ec 363c 9610  |6<  |
01ee 3bb4 34b1  |; 4 |
01f0 b410 3bb7  |  ; |
01f2 bab6 3210  |  2 |
01f4 3132 9036  |12 6|
01f6 bab1 b410  |    |
01f8 3330 b9ba  |30  |
01fa 32b9 1700  |2   |
01fc 12a0 1c80  |    |
01fe 0000 0100  |    |