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

⟦948e16a4c⟧

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

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 0090       |    |		.CONST	0x0090								; 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 0022       | "  |		.CONST	0x0022								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 000b       |    |		.CONST	0x000b								; Number of locals
000b			INIT_0008:
000b 029f 0033  |   3|		Declare_Subprogram	INIT_0030,For_Call
000d e013       |    |		Load	0x0,0x13
000e 1917       |    |		Execute	Package,Field_Reference,Field_Number 0x17
000f 00c6       |    |		Action	Check_Subprogram_Elaborated
0010 4802       |H   |		Short_Literal	0x2
0011 4803       |H   |		Short_Literal	0x3
0012 0099       |    |		Action	Reference_Dynamic
0013 e023       | #  |		Load	0x0,0x23
0014 e024       | $  |		Load	0x0,0x24
0015 4806       |H   |		Short_Literal	0x6
0016 0007       |    |		Action	Break_Optional
0017 029f 005b  |   [|		Declare_Subprogram	INIT_0058,For_Call
0019 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
001a 00c6       |    |		Action	Check_Subprogram_Elaborated
001b 4807       |H   |		Short_Literal	0x7
001c 4803       |H   |		Short_Literal	0x3
001d 0099       |    |		Action	Reference_Dynamic
001e e025       | %  |		Load	0x0,0x25
001f e026       | &  |		Load	0x0,0x26
0020 480b       |H   |		Short_Literal	0xb
0021 0007       |    |		Action	Break_Optional
0022			BODY_0008:
0022 e7ff       |    |		Load	0x3,-0x1
0023 4808       |H   |		Short_Literal	0x8
0024 4803       |H   |		Short_Literal	0x3
0025 0099       |    |		Action	Reference_Dynamic
0026 4809       |H   |		Short_Literal	0x9
0027 4803       |H   |		Short_Literal	0x3
0028 0099       |    |		Action	Reference_Dynamic
0029 820f       |    |		Call	0x1,0xf
002a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
002b 0000 0000  |    |		.BLANK	0000[0x5]
0030 ; --------------------------------------------------------------------------------------
0030 ; SUBPROGRAM
0030 ; --------------------------------------------------------------------------------------
0030 0035       | 5  |		.CONST	0x0035								; Address of begin
0031 0004       |    |		.CONST	0x0004								; Address of exception handler
0032 0002       |    |		.CONST	0x0002								; Number of locals
0033			INIT_0030:
0033 029f 006b  |   k|		Declare_Subprogram	INIT_0068,For_Call
0035			BODY_0030:
0035 00db       |    |		Load_Top	At_Offset_3
0036 8802       |    |		Call	0x4,0x2
0037 701a       |p   |		Jump_Nonzero	0x52
0038 00db       |    |		Load_Top	At_Offset_3
0039 8219       |    |		Call	0x1,0x19
003a 6817       |h   |		Jump_Zero	0x52
003b e008       |    |		Load	0x0,0x8
003c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
003d e9ff       |    |		Load	0x4,-0x1
003e 8218       |    |		Call	0x1,0x18
003f e406       |    |		Load	0x2,0x6
0040 e214       |    |		Load	0x1,0x14
0041 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
0042 e9fe       |    |		Load	0x4,-0x2
0043 e013       |    |		Load	0x0,0x13
0044 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0045 e9ff       |    |		Load	0x4,-0x1
0046 8218       |    |		Call	0x1,0x18
0047 480b       |H   |		Short_Literal	0xb
0048 4802       |H   |		Short_Literal	0x2
0049 0099       |    |		Action	Reference_Dynamic
004a 480c       |H   |		Short_Literal	0xc
004b 4802       |H   |		Short_Literal	0x2
004c 0099       |    |		Action	Reference_Dynamic
004d 480d       |H   |		Short_Literal	0xd
004e 4802       |H   |		Short_Literal	0x2
004f 0099       |    |		Action	Reference_Dynamic
0050 e013       |    |		Load	0x0,0x13
0051 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0052 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0053 0000 0000  |    |		.BLANK	0000[0x5]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b       | [  |		.CONST	0x005b								; Address of begin
0059 0004       |    |		.CONST	0x0004								; Address of exception handler
005a 0001       |    |		.CONST	0x0001								; Number of locals
005b			BODY_0058:
005b			INIT_0058:
005b 00ea       |    |		Load_Encached	Null_String_Cache
005c e9fc       |    |		Load	0x4,-0x4
005d e9fd       |    |		Load	0x4,-0x3
005e 4803       |H   |		Short_Literal	0x3
005f 4803       |H   |		Short_Literal	0x3
0060 0099       |    |		Action	Reference_Dynamic
0061 4804       |H   |		Short_Literal	0x4
0062 4803       |H   |		Short_Literal	0x3
0063 0099       |    |		Action	Reference_Dynamic
0064 e013       |    |		Load	0x0,0x13
0065 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0066 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0067 0000       |    |		.XXX[0x1]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 0072       | r  |		.CONST	0x0072								; Address of begin
0069 0004       |    |		.CONST	0x0004								; Address of exception handler
006a 0003       |    |		.CONST	0x0003								; Number of locals
006b			INIT_0068:
006b e008       |    |		Load	0x0,0x8
006c 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
006d 02ff       |    |		Declare_Variable	Variant_Record
006e 00d8       |    |		Load_Top	At_Offset_0
006f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0070 e008       |    |		Load	0x0,0x8
0071 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0072			BODY_0068:
0072 e008       |    |		Load	0x0,0x8
0073 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0074 00da       |    |		Load_Top	At_Offset_2
0075 6012       |`   |		Indirect_Literal	Discrete,0x88,{0x00000000, 0x00004000}
0076 e010       |    |		Load	0x0,0x10
0077 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0078 4800       |H   |		Short_Literal	0x0
0079 e9ff       |    |		Load	0x4,-0x1
007a e008       |    |		Load	0x0,0x8
007b 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
007c 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
007d 00d1       |    |		Pop_Control	Pop_Count_1
007e 0059       | Y  |		Store_Top	Discrete,At_Offset_1
007f 00d9       |    |		Load_Top	At_Offset_1
0080 e008       |    |		Load	0x0,0x8
0081 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0082 7003       |p   |		Jump_Nonzero	0x86
0083 00d8       |    |		Load_Top	At_Offset_0
0084 0f08       |    |		Execute_Immediate	Equal,0x8
0085 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0086 4801       |H   |		Short_Literal	0x1
0087 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0088 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
008c 0000 0000  |    |		.BLANK	0000[0x4]
0090 ; --------------------------------------------------------------------------------------
0090 ; Debug Table
0090 ; --------------------------------------------------------------------------------------
0090 0004 000c  |    |		.DEBUG4	0x0004,0x000c,0x422d,0x0000,0x0001,0x0000
0096 0c00 1817  |    |		.XXX[0x102]
0098 1c00 1c17  |    |
009a 2c00 2000  |,   |
009c 0000 0417  |    |
009e 6c00 0400  |l   |
00a0 0000 0c17  |    |
00a2 8c00 0417  |    |
00a4 9400 0817  |    |
00a6 b400 0c00  |    |
00a8 0000 0417  |    |
00aa ec00 0400  |    |
00ac 0000 0418  |    |
00ae 0c00 0400  |    |
00b0 0c00 1818  |    |
00b2 2fff fc18  |/   |
00b4 33ff f818  |3   |
00b6 3bff f418  |;   |
00b8 4000 0418  |@   |
00ba 5000 0818  |P   |
00bc 5c00 0c18  |\   |
00be 6c00 1018  |l   |
00c0 7c00 1418  ||   |
00c2 8c00 1800  |    |
00c4 0000 0c18  |    |
00c6 ac00 0418  |    |
00c8 b400 0818  |    |
00ca bc00 0c00  |    |
00cc 0000 0418  |    |
00ce ec00 0400  |    |
00d0 0000 0419  |    |
00d2 0c00 0400  |    |
00d4 0000 0c19  |    |
00d6 2c00 0419  |,   |
00d8 3400 0819  |4   |
00da 5400 0c00  |T   |
00dc 0000 0419  |    |
00de 8c00 0400  |    |
00e0 0400 1419  |    |
00e2 afff fc19  |    |
00e4 b400 0419  |    |
00e6 c400 0819  |    |
00e8 c800 0c19  |    |
00ea d800 1019  |    |
00ec e800 1400  |    |
00ee 0000 0c1a  |    |
00f0 0c00 041a  |    |
00f2 1400 081a  |    |
00f4 1c00 0c00  |    |
00f6 0000 041a  |    |
00f8 4c00 0400  |L   |
00fa 0000 041a  |    |
00fc 6c00 0400  |l   |
00fe 0000 041a  |    |
0100 8c00 0400  |    |
0102 0000 041a  |    |
0104 ac00 0400  |    |
0106 0000 0c1a  |    |
0108 cc00 041a  |    |
010a d400 081a  |    |
010c dc00 0c00  |    |
010e 0000 041b  |    |
0110 0c00 0400  |    |
0112 0000 041b  |    |
0114 2c00 0400  |,   |
0116 0000 0c1b  |    |
0118 4c00 041b  |L   |
011a 5400 081b  |T   |
011c 5c00 0c00  |\   |
011e 0000 041b  |    |
0120 8c00 0400  |    |
0122 0000 041b  |    |
0124 ac00 0400  |    |
0126 0000 041b  |    |
0128 cc00 0400  |    |
012a 0000 041b  |    |
012c ec00 0400  |    |
012e 0000 0c1c  |    |
0130 0c00 041c  |    |
0132 1400 081c  |    |
0134 1c00 0c00  |    |
0136 0000 041c  |    |
0138 4c00 0400  |L   |
013a 0000 041c  |    |
013c 6c00 0400  |l   |
013e 0000 041c  |    |
0140 8c00 0400  |    |
0142 0000 041c  |    |
0144 ac00 0400  |    |
0146 0800 181c  |    |
0148 cfff fc1c  |    |
014a d3ff f81c  |    |
014c d800 041c  |    |
014e ec00 081c  |    |
0150 f800 0c1d  |    |
0152 0800 101d  |    |
0154 1800 141d  |    |
0156 2800 1800  |(   |
0158 0400 301d  |  0 |
015a 4fff fc1d  |O   |
015c 5400 041d  |T   |
015e 5c00 081d  |\   |
0160 6400 0c1d  |d   |
0162 8800 101d  |    |
0164 8c00 141d  |    |
0166 a000 181d  |    |
0168 b000 1c1d  |    |
016a b400 201d  |    |
016c c400 241d  |  $ |
016e f000 281e  |  ( |
0170 0800 2c1e  |  , |
0172 1800 3000  |  0 |
0174 0000 0c1e  |    |
0176 4c00 041e  |L   |
0178 5400 081e  |T   |
017a 5c00 0c00  |\   |
017c 0000 041e  |    |
017e 8c00 0400  |    |
0180 0000 041e  |    |
0182 ac00 0400  |    |
0184 0800 041e  |    |
0186 cfff fc1e  |    |
0188 f3ff f81f  |    |
018a 1400 0400  |    |
018c 0000 0000  |    |
018e 0000 041f  |    |
0190 ec00 0400  |    |
0192 0000 0000  |    |
0194 0000 0420  |    |
0196 6c00 0400  |l   |
0198 0000 0000  |    |		.BLANK	0000[0x5]
019d 0421 6c00  | !l |		.XXX[0x63]
019f 0400 1000  |    |
01a1 1021 afff  | !  |
01a3 fc21 b7ff  | !  |
01a5 f821 cbff  | !  |
01a7 f421 d3ff  | !  |
01a9 f021 d800  | !  |
01ab 0421 f000  | !  |
01ad 0822 1000  | "  |
01af 0c22 2000  | "  |
01b1 1000 0000  |    |
01b3 0822 4c00  | "L |
01b5 0422 9400  | "  |
01b7 0800 0400  |    |
01b9 1022 efff  | "  |
01bb fc22 f000  | "  |
01bd 0422 fc00  | "  |
01bf 0823 1000  | #  |
01c1 0c23 3000  | #0 |
01c3 1000 0000  |    |
01c5 0423 4c00  | #L |
01c7 0400 0000  |    |
01c9 1023 cc00  | #  |
01cb 0423 d400  | #  |
01cd 0823 e400  | #  |
01cf 0c23 f000  | #  |
01d1 1000 0000  |    |
01d3 1424 0c00  | $  |
01d5 0424 1400  | $  |
01d7 0824 2400  | $$ |
01d9 0c24 2800  | $( |
01db 1024 3000  | $0 |
01dd 1400 0000  |    |
01df 1424 6c00  | $l |
01e1 0424 7400  | $t |
01e3 0824 8400  | $  |
01e5 0c24 9400  | $  |
01e7 1024 a400  | $  |
01e9 1400 0000  |    |
01eb 0424 cc00  | $  |
01ed 0400 0000  |    |
01ef 0425 0c00  | %  |
01f1 0400 0000  |    |
01f3 0425 2c00  | %, |
01f5 0400 0000  |    |
01f7 0425 4c00  | %L |
01f9 0400 0000  |    |
01fb 0425 ac00  | %  |
01fd 0400 0400  |    |
01ff 0c25       | %  |