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

⟦ddd7b7fb4⟧

    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 0003  |    |		.DEBUG4	0x0004,0x0003,0x52ec,0x0000,0x0001,0x0000
008e 54c2 0195  |T   |		.XXX[0x70]
0090 6c22 8460  |l" `|
0092 1950 1000  | P  |
0094 0000 0108  |    |
0096 0000 6bbc  |  k |
0098 8065 5b00  | e[ |
009a 000c a428  |   (|
009c 0014 0000  |    |
009e 0000 ca42  |   B|
00a0 a112 0019  |    |
00a2 43b0 0000  |C   |
00a4 0001 94e6  |    |
00a6 cec5 c032  |   2|
00a8 8760 0000  | `  |
00aa 0001 9000  |    |
00ac 00d6 9d9a  |    |
00ae 8580 650e  |  e |
00b0 c000 0000  |    |
00b2 0240 1805  | @  |
00b4 f262 0001  | b  |
00b6 3ded 0000  |=   |
00b8 0004 69f8  |  i |
00ba 032e 8900  | .  |
00bc 0000 0032  |   2|
00be d190 0cb5  |    |
00c0 e003 2def  |  - |
00c2 4508 c032  |E  2|
00c4 d190 0000  |    |
00c6 0002 b00c  |    |
00c8 02f9 3100  |  1 |
00ca cb7b c000  | {  |
00cc 1961 0800  | a  |
00ce 1800 0000  |    |
00d0 0196 10c2  |    |
00d2 2400 32b8  |$ 2 |
00d4 d000 0000  |    |
00d6 032c e49d  | ,  |
00d8 8b80 6571  |  eq|
00da a000 0000  |    |
00dc 00b0 1805  |    |
00de eb8b 350b  |  5 |
00e0 00ca e340  |   @|
00e2 0000 0010  |    |
00e4 2030 0be4  | 0  |
00e6 c400 027c  |   ||
00e8 d243 2500  | C% |
00ea 327f c000  |2   |
00ec 0000 0328  |   (|
00ee 5b00 032f  |[  /|
00f0 1900 0000  |    |
00f2 0000 0100  |    |
00f4 0197 ac80  |    |
00f6 0000 0000  |    |
00f8 0000 0180  |    |
00fa 0197 fc80  |    |
00fc 0198 4b00  |  K |
00fe 0000 0000  |    |		.BLANK	0000[0x6]
0104 0198 2c80  |  , |		.XXX[0x4]
0106 0032 90a0  | 2  |
0108 0000 0000  |    |		.BLANK	0000[0x6]
010e 0cc3 d800  |    |		.XXX[0xf2]
0110 0196 1080  |    |
0112 0000 100c  |    |
0114 c5a0 0326  |   &|
0116 1300 69e2  |  i |
0118 f044 000e  | D  |
011a 9658 0332  | X 2|
011c e300 cc83  |    |
011e 4033 2840  |@3(@|
0120 003c ec5c  | < \|
0122 0331 8300  | 1  |
0124 0000 0037  |   7|
0126 0000 0000  |    |
0128 0844 9806  | D  |
012a 6306 0000  |c   |
012c 0000 0000  |    |
012e 1076 05a0  | v  |
0130 0000 0000  |    |
0132 220c 7a01  |" z |
0134 d2cb 0069  |   i|
0136 da80 199e  |    |
0138 5006 6a1e  |P j |
013a 01a6 ff00  |    |
013c 01a3 0580  |    |
013e 1999 3006  |  0 |
0140 6972 0288  |ir  |
0142 0001 9a87  |    |
0144 8000 34df  |  4 |
0146 e000 0000  |    |
0148 0000 00cc  |    |
014a f280 2740  |  '@|
014c 4007 0000  |@   |
014e 0000 0001  |    |
0150 a403 017b  |   {|
0152 00cc c980  |    |
0154 0000 000d  |    |
0156 2574 019c  |%t  |
0158 d046 9f80  | F  |
015a 3495 d000  |4   |
015c 0000 0337  |   7|
015e 1500 cddd  |    |
0160 0033 9064  | 3 d|
0162 508c 0337  |P  7|
0164 1500 0000  |    |
0166 0019 0000  |    |
0168 0d77 900c  | w  |
016a e418 0001  |    |
016c 9b0e 8005  |    |
016e 8000 0000  |    |
0170 19b0 ec22  |   "|
0172 4003 3589  |@ 5 |
0174 0000 0000  |    |
0176 336e 0998  |3n  |
0178 9006 6b12  |  k |
017a 0000 0000  |    |
017c 6703 0019  |g   |
017e c478 0000  | x  |
0180 0000 009d  |    |
0182 8b80 66ee  |  f |
0184 8000 0000  |    |
0186 0640 0001  | @  |
0188 a403 3b17  |  ; |
018a 00cd dd00  |    |
018c 0000 0006  |    |
018e 4000 035a  |@  Z|
0190 766a 1601  |vj  |
0192 9ac4 8000  |    |
0194 0000 28c0  |  ( |
0196 6017 c988  |`   |
0198 0004 fb94  |    |
019a 0067 deb1  | g  |
019c a7e0 0d25  |   %|
019e 7400 0000  |t   |
01a0 00ce d1c0  |    |
01a2 33ba 600c  |3 ` |
01a4 f4e1 1423  |   #|
01a6 00ce d1c0  |    |
01a8 0000 0008  |    |
01aa 6000 0582  |`   |
01ac 4403 3d38  |D =8|
01ae 0000 6749  |  gI|
01b0 e001 2000  |    |
01b2 0000 0674  |   t|
01b4 9f08 9000  |    |
01b6 ce6e c000  | n  |
01b8 0000 0cec  |    |
01ba 4a66 2401  |Jf$ |
01bc 9cdd 8000  |    |
01be 0000 19e2  |    |
01c0 5006 7982  |P y |
01c2 0000 0000  |    |
01c4 0027 62e0  | 'b |
01c6 19dd 3000  |  0 |
01c8 0000 0190  |    |
01ca 0000 6900  |  i |
01cc cec5 c033  |   3|
01ce ba60 0000  | `  |
01d0 0002 1800  |    |
01d2 015b a999  | [  |
01d4 8900 6737  |  g7|
01d6 6000 0000  |`   |
01d8 067b b801  | {  |
01da 9f29 8000  | )  |
01dc 1609 1009  |    |
01de d8b8 067a  |   z|
01e0 7000 0000  |p   |
01e2 0064 0000  | d  |
01e4 1a40 33a1  | @3 |
01e6 600c f4e0  |`   |
01e8 0000 0000  |    |
01ea ce00 0057  |   W|
01ec 4880 000b  |H   |
01ee 0488 0003  |    |
01f0 432f 8d3f  |C/ ?|
01f2 0069 2ba0  | i+ |
01f4 0000 0006  |    |
01f6 8138 01a0  | 8  |
01f8 7d80 682e  |} h.|
01fa 48a1 1806  |H   |
01fc 8138 0000  | 8  |
01fe 0000 8500  |    |