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

⟦320b0612e⟧

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

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 0098       |    |		.CONST	0x0098								; 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 0025       | %  |		.CONST	0x0025								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0017       |    |		.CONST	0x0017								; Number of locals
000b			INIT_0008:
000b 029a 002b  |   +|		Declare_Subprogram	INIT_0028,For_Outer_Call,Visible,Unelaborated
000d 029a 005b  |   [|		Declare_Subprogram	INIT_0058,For_Outer_Call,Visible,Unelaborated
000f 00bf       |    |		Action	Accept_Activation
0010 6043       |`C  |		Indirect_Literal	Discrete,0x54,{0x00000000, 0x00000400}
0011 00e4       |    |		Load_Encached	Positive_Cache
0012 03f1       |    |		Declare_Variable	Discrete,With_Value
0013 00e4       |    |		Load_Encached	Positive_Cache
0014 0266       | f  |		Execute	Discrete,Bounds
0015 e210       |    |		Load	0x1,0x10
0016 02a0       |    |		Declare_Subprogram	Null_Subprogram
0017 4801       |H   |		Short_Literal	0x1
0018 0350       | P  |		Declare_Type	Array,Defined,Bounds_With_Object
0019 00d8       |    |		Load_Top	At_Offset_0
001a 02a0       |    |		Declare_Subprogram	Null_Subprogram
001b 03ad       |    |		Declare_Type	Heap_Access,Defined
001c 4801       |H   |		Short_Literal	0x1
001d e214       |    |		Load	0x1,0x14
001e e216       |    |		Load	0x1,0x16
001f e211       |    |		Load	0x1,0x11
0020 039a       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Constraint
0021 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0022 00c7       |    |		Action	Elaborate_Subprogram
0023 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0024 00c7       |    |		Action	Elaborate_Subprogram
0025			BODY_0008:
0025 00bc       |    |		Action	Signal_Activated
0026 00bb       |    |		Action	Signal_Completion
0027 0000       |    |		.XXX[0x1]
0028 ; --------------------------------------------------------------------------------------
0028 ; SUBPROGRAM
0028 ; --------------------------------------------------------------------------------------
0028 002d       | -  |		.CONST	0x002d								; Address of begin
0029 0004       |    |		.CONST	0x0004								; Address of exception handler
002a 0002       |    |		.CONST	0x0002								; Number of locals
002b			INIT_0028:
002b 029f 0073  |   s|		Declare_Subprogram	INIT_0070,For_Call
002d			BODY_0028:
002d e5ff       |    |		Load	0x2,-0x1
002e e214       |    |		Load	0x1,0x14
002f 027d       | }  |		Execute	Discrete,Greater
0030 6801       |h   |		Jump_Zero	0x32
0031 8402       |    |		Call	0x2,0x2
0032 e5ff       |    |		Load	0x2,-0x1
0033 e217       |    |		Load	0x1,0x17
0034 0217       |    |		Execute	Heap_Access,All_Reference
0035 01d7       |    |		Execute	Vector,Field_Read
0036 7013       |p   |		Jump_Nonzero	0x4a
0037 e20f       |    |		Load	0x1,0xf
0038 0124       | $  |		Execute	Any,Is_Constrained
0039 7006       |p   |		Jump_Nonzero	0x40
003a e20f       |    |		Load	0x1,0xf
003b 1c09       |    |		Execute_Immediate	Run_Utility,0x9
003c e210       |    |		Load	0x1,0x10
003d e211       |    |		Load	0x1,0x11
003e 0398       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Subtype
003f 7803       |x   |		Jump	0x43
0040 e210       |    |		Load	0x1,0x10
0041 e211       |    |		Load	0x1,0x11
0042 039c       |    |		Declare_Variable	Heap_Access,By_Allocation
0043 00d8       |    |		Load_Top	At_Offset_0
0044 0217       |    |		Execute	Heap_Access,All_Reference
0045 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0046 e5ff       |    |		Load	0x2,-0x1
0047 e217       |    |		Load	0x1,0x17
0048 0217       |    |		Execute	Heap_Access,All_Reference
0049 01d6       |    |		Execute	Vector,Field_Write
004a e5ff       |    |		Load	0x2,-0x1
004b e217       |    |		Load	0x1,0x17
004c 0217       |    |		Execute	Heap_Access,All_Reference
004d 01d7       |    |		Execute	Vector,Field_Read
004e e210       |    |		Load	0x1,0x10
004f 0213       |    |		Execute	Heap_Access,Check_In_Type
0050 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0051 0000 0000  |    |		.XXX[0x3]
0053 0000       |    |
0054 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000400}
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 0061       | a  |		.CONST	0x0061								; Address of begin
0059 0004       |    |		.CONST	0x0004								; Address of exception handler
005a 0002       |    |		.CONST	0x0002								; Number of locals
005b			INIT_0058:
005b e210       |    |		Load	0x1,0x10
005c e5fe       |    |		Load	0x2,-0x2
005d e217       |    |		Load	0x1,0x17
005e 0217       |    |		Execute	Heap_Access,All_Reference
005f 01d7       |    |		Execute	Vector,Field_Read
0060 c402       |    |		Store	0x2,0x2
0061			BODY_0058:
0061 e5ff       |    |		Load	0x2,-0x1
0062 e217       |    |		Load	0x1,0x17
0063 0217       |    |		Execute	Heap_Access,All_Reference
0064 01d7       |    |		Execute	Vector,Field_Read
0065 e5fe       |    |		Load	0x2,-0x2
0066 e217       |    |		Load	0x1,0x17
0067 0217       |    |		Execute	Heap_Access,All_Reference
0068 01d6       |    |		Execute	Vector,Field_Write
0069 00d8       |    |		Load_Top	At_Offset_0
006a e5ff       |    |		Load	0x2,-0x1
006b e217       |    |		Load	0x1,0x17
006c 0217       |    |		Execute	Heap_Access,All_Reference
006d 01d6       |    |		Execute	Vector,Field_Write
006e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
006f 0000       |    |		.XXX[0x1]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0076       | v  |		.CONST	0x0076								; Address of begin
0071 0004       |    |		.CONST	0x0004								; Address of exception handler
0072 0003       |    |		.CONST	0x0003								; Number of locals
0073			INIT_0070:
0073 e214       |    |		Load	0x1,0x14
0074 0007       |    |		Action	Break_Optional
0075 e217       |    |		Load	0x1,0x17
0076			BODY_0070:
0076 00cf       |    |		Action	Mark_Auxiliary
0077 e214       |    |		Load	0x1,0x14
0078 0903       |    |		Execute_Immediate	Binary_Scale,0x3
0079 c214       |    |		Store	0x1,0x14
007a e5ff       |    |		Load	0x2,-0x1
007b e214       |    |		Load	0x1,0x14
007c 09ff       |    |		Execute_Immediate	Binary_Scale,-0x1
007d 027a       | z  |		Execute	Discrete,Less_Equal
007e 7002       |p   |		Jump_Nonzero	0x81
007f 00c9       |    |		Action	Pop_Auxiliary_Loop
0080 7ff6       |    |		Jump	0x77
0081 00ce       |    |		Action	Pop_Auxiliary
0082 4801       |H   |		Short_Literal	0x1
0083 e214       |    |		Load	0x1,0x14
0084 e216       |    |		Load	0x1,0x16
0085 e211       |    |		Load	0x1,0x11
0086 039a       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Constraint
0087 a217       |    |		Store_Unchecked	0x1,0x17
0088 4801       |H   |		Short_Literal	0x1
0089 e602       |    |		Load	0x3,0x2
008a e603       |    |		Load	0x3,0x3
008b 0217       |    |		Execute	Heap_Access,All_Reference
008c 01cf       |    |		Execute	Vector,Slice_Read
008d 4801       |H   |		Short_Literal	0x1
008e e602       |    |		Load	0x3,0x2
008f e217       |    |		Load	0x1,0x17
0090 0219       |    |		Execute	Heap_Access,All_Read
0091 01ce       |    |		Execute	Vector,Slice_Write
0092 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0093 0000 0000  |    |		.BLANK	0000[0x5]
0098 ; --------------------------------------------------------------------------------------
0098 ; Debug Table
0098 ; --------------------------------------------------------------------------------------
0098 0004 000f  |    |		.DEBUG4	0x0004,0x000f,0x4307,0x0000,0x0001,0x0000
009e 2e57 6f72  |.Wor|		.XXX[0x162]
00a0 6b5f 4f72  |k_Or|
00a2 6465 722e  |der.|
00a4 4469 7370  |Disp|
00a6 6c61 795f  |lay_|
00a8 5665 6e74  |Vent|
00aa 7572 6500  |ure |
00ac 0000 7b00  |  { |
00ae 0000 2121  |  !!|
00b0 436f 6d6d  |Comm|
00b2 616e 6473  |ands|
00b4 2e57 6f72  |.Wor|
00b6 6b5f 4f72  |k_Or|
00b8 6465 722e  |der.|
00ba 4469 7370  |Disp|
00bc 6c61 795f  |lay_|
00be 4c69 7374  |List|
00c0 0000 0049  |   I|
00c2 0000 001c  |    |
00c4 2143 6f6d  |!Com|
00c6 6d61 6e64  |mand|
00c8 732e 576f  |s.Wo|
00ca 726b 5f4f  |rk_O|
00cc 7264 6572  |rder|
00ce 2e44 6973  |.Dis|
00d0 706c 6179  |play|
00d2 0000 0051  |   Q|
00d4 0000 0021  |   !|
00d6 2143 6f6d  |!Com|
00d8 6d61 6e64  |mand|
00da 732e 576f  |s.Wo|
00dc 726b 5f4f  |rk_O|
00de 7264 6572  |rder|
00e0 2e44 656c  |.Del|
00e2 6574 655f  |ete_|
00e4 4669 656c  |Fiel|
00e6 6400 0000  |d   |
00e8 5200 0000  |R   |
00ea 2421 436f  |$!Co|
00ec 6d6d 616e  |mman|
00ee 6473 2e57  |ds.W|
00f0 6f72 6b5f  |ork_|
00f2 4f72 6465  |Orde|
00f4 722e 4465  |r.De|
00f6 6661 756c  |faul|
00f8 745f 5665  |t_Ve|
00fa 6e74 7572  |ntur|
00fc 6500 0000  |e   |
00fe 8000 0000  |    |
0100 2121 436f  |!!Co|
0102 6d6d 616e  |mman|
0104 6473 2e57  |ds.W|
0106 6f72 6b5f  |ork_|
0108 4f72 6465  |Orde|
010a 722e 4465  |r.De|
010c 6661 756c  |faul|
010e 745f 4c69  |t_Li|
0110 7374 0000  |st  |
0112 0047 0000  | G  |
0114 001c 2143  |  !C|
0116 6f6d 6d61  |omma|
0118 6e64 732e  |nds.|
011a 576f 726b  |Work|
011c 5f4f 7264  |_Ord|
011e 6572 2e44  |er.D|
0120 6566 6175  |efau|
0122 6c74 0000  |lt  |
0124 005c 0000  | \  |
0126 0023 2143  | #!C|
0128 6f6d 6d61  |omma|
012a 6e64 732e  |nds.|
012c 576f 726b  |Work|
012e 5f4f 7264  |_Ord|
0130 6572 2e43  |er.C|
0132 7265 6174  |reat|
0134 655f 5665  |e_Ve|
0136 6e74 7572  |ntur|
0138 6500 0000  |e   |
013a 3000 0000  |0   |
013c 2021 436f  | !Co|
013e 6d6d 616e  |mman|
0140 6473 2e57  |ds.W|
0142 6f72 6b5f  |ork_|
0144 4f72 6465  |Orde|
0146 722e 4372  |r.Cr|
0148 6561 7465  |eate|
014a 5f4c 6973  |_Lis|
014c 7400 0000  |t   |
014e 2b00 0000  |+   |
0150 2121 436f  |!!Co|
0152 6d6d 616e  |mman|
0154 6473 2e57  |ds.W|
0156 6f72 6b5f  |ork_|
0158 4f72 6465  |Orde|
015a 722e 4372  |r.Cr|
015c 6561 7465  |eate|
015e 5f46 6965  |_Fie|
0160 6c64 0000  |ld  |
0162 0034 0000  | 4  |
0164 001b 2143  |  !C|
0166 6f6d 6d61  |omma|
0168 6e64 732e  |nds.|
016a 576f 726b  |Work|
016c 5f4f 7264  |_Ord|
016e 6572 2e43  |er.C|
0170 7265 6174  |reat|
0172 6500 0000  |e   |
0174 2600 0000  |&   |
0176 1a21 436f  | !Co|
0178 6d6d 616e  |mman|
017a 6473 2e57  |ds.W|
017c 6f72 6b5f  |ork_|
017e 4f72 6465  |Orde|
0180 722e 436c  |r.Cl|
0182 6f73 6500  |ose |
0184 0000 0d00  |    |
0186 0000 2021  |   !|
0188 436f 6d6d  |Comm|
018a 616e 6473  |ands|
018c 2e57 6f72  |.Wor|
018e 6b5f 4f72  |k_Or|
0190 6465 722e  |der.|
0192 4164 645f  |Add_|
0194 546f 5f4c  |To_L|
0196 6973 7400  |ist |
0198 0000 7600  |  v |
019a 0000 1421  |   !|
019c 436f 6d6d  |Comm|
019e 616e 6473  |ands|
01a0 2e57 6f72  |.Wor|
01a2 6b5f 4f72  |k_Or|
01a4 6465 7200  |der |
01a6 0000 1b00  |    |
01a8 0000 1621  |   !|
01aa 436f 6d6d  |Comm|
01ac 616e 6473  |ands|
01ae 2e57 6861  |.Wha|
01b0 742e 5665  |t.Ve|
01b2 7273 696f  |rsio|
01b4 6e00 0000  |n   |
01b6 4f00 0000  |O   |
01b8 1421 436f  | !Co|
01ba 6d6d 616e  |mman|
01bc 6473 2e57  |ds.W|
01be 6861 742e  |hat.|
01c0 5573 6572  |User|
01c2 7300 0000  |s   |
01c4 1a00 0000  |    |
01c6 1321 436f  | !Co|
01c8 6d6d 616e  |mman|
01ca 6473 2e57  |ds.W|
01cc 6861 742e  |hat.|
01ce 5469 6d65  |Time|
01d0 0000 0014  |    |
01d2 0000 0013  |    |
01d4 2143 6f6d  |!Com|
01d6 6d61 6e64  |mand|
01d8 732e 5768  |s.Wh|
01da 6174 2e54  |at.T|
01dc 6162 7300  |abs |
01de 0000 5b00  |  [ |
01e0 0000 2521  |  %!|
01e2 436f 6d6d  |Comm|
01e4 616e 6473  |ands|
01e6 2e57 6861  |.Wha|
01e8 742e 5365  |t.Se|
01ea 6172 6368  |arch|
01ec 5f4c 6973  |_Lis|
01ee 745f 5265  |t_Re|
01f0 736f 6c75  |solu|
01f2 7469 6f6e  |tion|
01f4 0000 004c  |   L|
01f6 0000 0015  |    |
01f8 2143 6f6d  |!Com|
01fa 6d61 6e64  |mand|
01fc 732e 5768  |s.Wh|
01fe 6174 2e4f  |at.O|