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

⟦7df9d10ac⟧

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

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 0088       |    |		.CONST	0x0088								; 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 002a       | *  |		.CONST	0x002a								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 000e       |    |		.CONST	0x000e								; Number of locals
000b			INIT_0008:
000b e214       |    |		Load	0x1,0x14
000c 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
000d e214       |    |		Load	0x1,0x14
000e 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
000f e214       |    |		Load	0x1,0x14
0010 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0011 00e1       |    |		Load_Encached	Boolean_Cache
0012 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0013 0007       |    |		Action	Break_Optional
0014 0007       |    |		Action	Break_Optional
0015 029f 0053  |   S|		Declare_Subprogram	INIT_0050,For_Call
0017 029f 005b  |   [|		Declare_Subprogram	INIT_0058,For_Call
0019 e013       |    |		Load	0x0,0x13
001a 1916       |    |		Execute	Package,Field_Reference,Field_Number 0x16
001b 00c6       |    |		Action	Check_Subprogram_Elaborated
001c 4806       |H   |		Short_Literal	0x6
001d 4802       |H   |		Short_Literal	0x2
001e 0099       |    |		Action	Reference_Dynamic
001f 4807       |H   |		Short_Literal	0x7
0020 4802       |H   |		Short_Literal	0x2
0021 0099       |    |		Action	Reference_Dynamic
0022 e019       |    |		Load	0x0,0x19
0023 e01a       |    |		Load	0x0,0x1a
0024 480c       |H   |		Short_Literal	0xc
0025 0007       |    |		Action	Break_Optional
0026 e01b       |    |		Load	0x0,0x1b
0027 02ab       |    |		Declare_Subprogram	For_Call,With_Address
0028 e01c       |    |		Load	0x0,0x1c
0029 02ab       |    |		Declare_Subprogram	For_Call,With_Address
002a			BODY_0008:
002a e214       |    |		Load	0x1,0x14
002b 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
002c 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
002d e011       |    |		Load	0x0,0x11
002e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
002f e018       |    |		Load	0x0,0x18
0030 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0031 e214       |    |		Load	0x1,0x14
0032 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0033 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0034 c402       |    |		Store	0x2,0x2
0035 e214       |    |		Load	0x1,0x14
0036 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
0037 e214       |    |		Load	0x1,0x14
0038 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
0039 c403       |    |		Store	0x2,0x3
003a e5ff       |    |		Load	0x2,-0x1
003b 840d       |    |		Call	0x2,0xd
003c e214       |    |		Load	0x1,0x14
003d 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
003e e403       |    |		Load	0x2,0x3
003f e214       |    |		Load	0x1,0x14
0040 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
0041 c404       |    |		Store	0x2,0x4
0042 e5fb       |    |		Load	0x2,-0x5
0043 e5fc       |    |		Load	0x2,-0x4
0044 e5fd       |    |		Load	0x2,-0x3
0045 e5fe       |    |		Load	0x2,-0x2
0046 e404       |    |		Load	0x2,0x4
0047 840e       |    |		Call	0x2,0xe
0048 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0049 0000 0000  |    |		.BLANK	0000[0x7]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0053       | S  |		.CONST	0x0053								; Address of begin
0051 0004       |    |		.CONST	0x0004								; Address of exception handler
0052 0001       |    |		.CONST	0x0001								; Number of locals
0053			BODY_0050:
0053			INIT_0050:
0053 00da       |    |		Load_Top	At_Offset_2
0054 e402       |    |		Load	0x2,0x2
0055 e214       |    |		Load	0x1,0x14
0056 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0057 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
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 00da       |    |		Load_Top	At_Offset_2
005c 8213       |    |		Call	0x1,0x13
005d e405       |    |		Load	0x2,0x5
005e 6811       |h   |		Jump_Zero	0x70
005f e00e       |    |		Load	0x0,0xe
0060 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0061 4800       |H   |		Short_Literal	0x0
0062 e7fe       |    |		Load	0x3,-0x2
0063 e008       |    |		Load	0x0,0x8
0064 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0065 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
0066 0092 007b  |   {|		Action	Push_String_Extended,0x7b					; " depends upon "
0068 01cc       |    |		Execute	Vector,Catenate
0069 e7ff       |    |		Load	0x3,-0x1
006a e008       |    |		Load	0x0,0x8
006b 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
006c 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
006d 01cc       |    |		Execute	Vector,Catenate
006e e00f       |    |		Load	0x0,0xf
006f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0070 00db       |    |		Load_Top	At_Offset_3
0071 00db       |    |		Load_Top	At_Offset_3
0072 e403       |    |		Load	0x2,0x3
0073 e214       |    |		Load	0x1,0x14
0074 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
0075 e402       |    |		Load	0x2,0x2
0076 00db       |    |		Load_Top	At_Offset_3
0077 e214       |    |		Load	0x1,0x14
0078 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0079 c402       |    |		Store	0x2,0x2
007a 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
007b ; --------------------------------------------------------------------------------------
007b ; STRING TABLE
007b ; --------------------------------------------------------------------------------------
007b 0004       |    |		.STRTAB	0x0004->0x007d							; " depends upon "
007c 0010       |    |		.STREND 0x0010->0x0084
007d 2064 6570  | dep|		.STRTAB_STRINGS
0084 0000 0000  |    |		.BLANK	0000[0x4]
0088 ; --------------------------------------------------------------------------------------
0088 ; Debug Table
0088 ; --------------------------------------------------------------------------------------
0088 0004 0004  |    |		.DEBUG4	0x0004,0x0004,0x706b,0x0000,0x0001,0x0000
008e d17d 5da5  | }] |		.XXX[0x172]
0090 b991 bddd  |    |
0092 7d05 d1d1  |}   |
0094 c9a5 89d5  |    |
0096 d195 cd7d  |   }|
0098 4995 c5d5  |I   |
009a 95cd d09d  |    |
009c 4da5 e994  |M   |
009e 80bc f480  |    |
00a0 ccc8 80a8  |    |
00a2 80c8 81d1  |    |
00a4 a195 b880  |    |
00a6 8028 8080  | (  |
00a8 8080 8080  |    |
00aa 8081 c985  |    |
00ac a5cd 9481  |    |
00ae 617d 31a5  |a}1 |
00b0 89c9 85c9  |    |
00b2 e57d 0dbd  | }  |
00b4 b999 d5cd  |    |
00b6 a5bd b8ec  |    |
00b8 8080 2880  |  ( |
00ba 8080 8195  |    |
00bc b990 81a5  |    |
00be 98ec 8080  |    |
00c0 2880 8080  |(   |
00c2 81a5 9881  |    |
00c4 61b1 89d1  |a   |
00c6 7d49 95c5  |}I  |
00c8 d595 cdd0  |    |
00ca ccb9 617d  |  a}|
00cc 1dc9 8589  |    |
00ce 7d09 d5d1  |}   |
00d0 d1bd b97d  |   }|
00d2 4995 c5d5  |I   |
00d4 95cd d09d  |    |
00d6 4da5 e994  |M   |
00d8 80bc f480  |    |
00da ccc8 80a8  |    |
00dc 80d8 81d1  |    |
00de a195 b880  |    |
00e0 8028 8080  | (  |
00e2 8080 8080  |    |
00e4 8081 c985  |    |
00e6 a5cd 9481  |    |
00e8 617d 31a5  |a}1 |
00ea 89c9 85c9  |    |
00ec e57d 0dbd  | }  |
00ee b999 d5cd  |    |
00f0 a5bd b8ec  |    |
00f2 8080 2880  |  ( |
00f4 8080 8195  |    |
00f6 b990 81a5  |    |
00f8 98ec 8080  |    |
00fa 2880 8080  |(   |
00fc 81a5 9881  |    |
00fe 61b1 89d1  |a   |
0100 7d49 95c5  |}I  |
0102 d595 cdd0  |    |
0104 ccb9 617d  |  a}|
0106 1dc9 8589  |    |
0108 7d2d 95e5  |}-  |
010a 7d49 95c5  |}I  |
010c d595 cdd0  |    |
010e 9d4d a5e9  | M  |
0110 9480 bcf4  |    |
0112 80cc c880  |    |
0114 a880 d081  |    |
0116 d1a1 95b8  |    |
0118 8080 2880  |  ( |
011a 8080 8080  |    |
011c 8080 81c9  |    |
011e 85a5 cd94  |    |
0120 8161 7d31  | a}1|
0122 a589 c985  |    |
0124 c9e5 7d0d  |  } |
0126 bdb9 99d5  |    |
0128 cda5 bdb8  |    |
012a ec80 8028  |   (|
012c 8080 8081  |    |
012e 95b9 9081  |    |
0130 a598 ec80  |    |
0132 8028 8080  | (  |
0134 8081 a598  |    |
0136 8161 b189  | a  |
0138 d17d 4995  | }I |
013a c5d5 95cd  |    |
013c d0cc b961  |   a|
013e 7d1d c985  |}   |
0140 897d 2d95  | }- |
0142 e589 bd85  |    |
0144 c991 7d49  |  }I|
0146 95c5 d595  |    |
0148 cdd0 9d4d  |   M|
014a a5e9 9480  |    |
014c bcf4 80cc  |    |
014e c880 a880  |    |
0150 d081 d1a1  |    |
0152 95b8 8080  |    |
0154 2880 8080  |(   |
0156 8080 8080  |    |
0158 81c9 85a5  |    |
015a cd94 8161  |   a|
015c 7d31 a589  |}1  |
015e c985 c9e5  |    |
0160 7d0d bdb9  |}   |
0162 99d5 cda5  |    |
0164 bdb8 ec80  |    |
0166 8028 8080  | (  |
0168 8081 95b9  |    |
016a 9081 a598  |    |
016c ec80 8028  |   (|
016e 8080 8081  |    |
0170 a598 8161  |   a|
0172 b189 d17d  |   }|
0174 4995 c5d5  |I   |
0176 95cd d0cc  |    |
0178 b961 7d1d  | a} |
017a c985 897d  |   }|
017c 41bd a5b9  |A   |
017e d195 c97d  |   }|
0180 4995 c5d5  |I   |
0182 95cd d09d  |    |
0184 4da5 e994  |M   |
0186 80bc f480  |    |
0188 ccc8 80a8  |    |
018a 80d8 81d1  |    |
018c a195 b880  |    |
018e 8028 8080  | (  |
0190 8080 8080  |    |
0192 8081 c985  |    |
0194 a5cd 9481  |    |
0196 617d 31a5  |a}1 |
0198 89c9 85c9  |    |
019a e57d 0dbd  | }  |
019c b999 d5cd  |    |
019e a5bd b8ec  |    |
01a0 8080 2880  |  ( |
01a2 8080 8195  |    |
01a4 b990 81a5  |    |
01a6 98ec 8080  |    |
01a8 2880 8080  |(   |
01aa 81a5 9881  |    |
01ac 61b1 89d1  |a   |
01ae 7d49 95c5  |}I  |
01b0 d595 cdd0  |    |
01b2 ccb9 617d  |  a}|
01b4 1dc9 8589  |    |
01b6 7d4d 95c9  |}M  |
01b8 d995 c97d  |   }|
01ba 4995 c5d5  |I   |
01bc 95cd d09d  |    |
01be 4da5 e994  |M   |
01c0 80bc f480  |    |
01c2 ccc8 80a8  |    |
01c4 80c4 81d1  |    |
01c6 a195 b880  |    |
01c8 8028 8080  | (  |
01ca 8080 8080  |    |
01cc 8081 c985  |    |
01ce a5cd 9481  |    |
01d0 617d 31a5  |a}1 |
01d2 89c9 85c9  |    |
01d4 e57d 0dbd  | }  |
01d6 b999 d5cd  |    |
01d8 a5bd b8ec  |    |
01da 8080 2880  |  ( |
01dc 8080 8195  |    |
01de b990 81a5  |    |
01e0 98ec 8080  |    |
01e2 2880 8080  |(   |
01e4 81a5 9881  |    |
01e6 61b1 89d1  |a   |
01e8 7d49 95c5  |}I  |
01ea d595 cdd0  |    |
01ec ccb9 617d  |  a}|
01ee 25b5 859d  |%   |
01f0 957d 5195  | }Q |
01f2 e1d0 c4d9  |    |
01f4 7d49 95c5  |}I  |
01f6 d595 cdd0  |    |
01f8 9d4d a5e9  | M  |
01fa 9480 bcf4  |    |
01fc 80cc c880  |    |
01fe a880 d081  |    |