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

⟦947535ee9⟧

    Length: 1024 (0x400)
    Notes: 00_class, 5811_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0ea8df

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5811       |X   |		.CONST	0x5811								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 00a8       |    |		.CONST	0x00a8								; 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 0000       |    |		.CONST	0x0000								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0047       | G  |		.CONST	0x0047								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 001b       |    |		.CONST	0x001b								; Number of locals
000b			INIT_0008:
000b 0007       |    |		Action	Break_Optional							; Debug Table 0x0 = .DEBUG	0x000b,0x00e2,0x8000,0x0000,0x0037,0x4d34,0x0000,0x000b
													; Debug Table 0x0.0x0 = 0xb,0xffff
000c 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x1 = 0xc,0xfffe
000d 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x2 = 0xd,0xfffd
000e e001       |    |		Load	0x0,0x1								; Debug Table 0x0.0x3 = 0xe,0xfffc
000f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0010 0129       | )  |		Execute	Any,Make_Visible
0011 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x0.0x4 = 0x11,0xfffb
0012 0400       |    |		Execute_Immediate	Set_Value_Visible_Unchecked,0x0
0013 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x5 = 0x13,0xfffa
0014 e001       |    |		Load	0x0,0x1								; Debug Table 0x0.0x6 = 0x14,0xfff9
0015 1915       |    |		Execute	Package,Field_Reference,Field_Number 0x15
0016 0129       | )  |		Execute	Any,Make_Visible
0017 e001       |    |		Load	0x0,0x1								; Debug Table 0x0.0x7 = 0x17,0xfff8
0018 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0019 0129       | )  |		Execute	Any,Make_Visible
001a 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x8 = 0x1a,0xfff7
001b 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x9 = 0x1b,0xfff6
001c 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0xa = 0x1c,0xfff5
001d 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0xb = 0x1d,0xfff4
001e 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0xc = 0x1e,0xfff3
001f e001       |    |		Load	0x0,0x1								; Debug Table 0x0.0xd = 0x1f,0xfff2
0020 1914       |    |		Execute	Package,Field_Reference,Field_Number 0x14
0021 0129       | )  |		Execute	Any,Make_Visible
0022 e001       |    |		Load	0x0,0x1								; Debug Table 0x0.0xe = 0x22,0xfff1
0023 1910       |    |		Execute	Package,Field_Reference,Field_Number 0x10
0024 0129       | )  |		Execute	Any,Make_Visible
0025 e001       |    |		Load	0x0,0x1								; Debug Table 0x0.0xf = 0x25,0xfff0
0026 1923       | #  |		Execute	Package,Field_Reference,Field_Number 0x23
0027 0129       | )  |		Execute	Any,Make_Visible
0028 e001       |    |		Load	0x0,0x1								; Debug Table 0x0.0x10 = 0x28,0xffef
0029 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
002a 0129       | )  |		Execute	Any,Make_Visible
002b 029a 0053  |   S|		Declare_Subprogram	INIT_0050,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x11 = 0x2b,0xffee
002d 029a 0063  |   c|		Declare_Subprogram	INIT_0060,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x12 = 0x2d,0xffed
002f 029a 0073  |   s|		Declare_Subprogram	INIT_0070,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x13 = 0x2f,0xffec
0031 029a 008b  |    |		Declare_Subprogram	INIT_0088,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x14 = 0x31,0xffeb
0033 029a 009b  |    |		Declare_Subprogram	INIT_0098,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x15 = 0x33,0xffea
0035 e001       |    |		Load	0x0,0x1								; Debug Table 0x0.0x16 = 0x35,0xffe9
0036 1919       |    |		Execute	Package,Field_Reference,Field_Number 0x19
0037 0129       | )  |		Execute	Any,Make_Visible
0038 00bf       |    |		Action	Accept_Activation						; Debug Table 0x0.0x17 = 0x38,0xffe8
0039 e001       |    |		Load	0x0,0x1								; Debug Table 0x1 = .DEBUG	0x0039,0x0114,0x8000,0x0000,0x0037,0x5084,0x0000,0x0009
													; Debug Table 0x1.0x0 = 0x39,0xffff
003a 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
003b e20d       |    |		Load	0x1,0xd
003c 03f1       |    |		Declare_Variable	Discrete,With_Value
003d 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15				; Debug Table 0x1.0x1 = 0x3d,0xfffe
003e 00c7       |    |		Action	Elaborate_Subprogram
003f 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16				; Debug Table 0x1.0x2 = 0x3f,0xfffd
0040 00c7       |    |		Action	Elaborate_Subprogram
0041 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17				; Debug Table 0x1.0x3 = 0x41,0xfffc
0042 00c7       |    |		Action	Elaborate_Subprogram
0043 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18				; Debug Table 0x1.0x4 = 0x43,0xfffb
0044 00c7       |    |		Action	Elaborate_Subprogram
0045 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19				; Debug Table 0x1.0x5 = 0x45,0xfffa
0046 00c7       |    |		Action	Elaborate_Subprogram
0047			BODY_0008:
0047 00bc       |    |		Action	Signal_Activated
0048 00bb       |    |		Action	Signal_Completion
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						; Debug Table 0x2 = .DEBUG	0x0053,0x0122,0x0002,0x0000,0x0037,0x4d34,0x0000,0x00b5
													; Debug Table 0x2.0x0 = 0x53,0x1
0054 7004       |p   |		Jump_Nonzero	0x59
0055 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x2.0x1 = 0x55,0x2
0056 e001       |    |		Load	0x0,0x1
0057 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0058 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0059 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x2.0x2 = 0x59,0x3
005a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
005b 0000 0000  |    |		.BLANK	0000[0x5]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0063       | c  |		.CONST	0x0063								; Address of begin
0061 0004       |    |		.CONST	0x0004								; Address of exception handler
0062 0001       |    |		.CONST	0x0001								; Number of locals
0063			BODY_0060:
0063			INIT_0060:
0063 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x3 = .DEBUG	0x0063,0x012a,0x0002,0x0000,0x0037,0x4d34,0x0000,0x00c9
													; Debug Table 0x3.0x0 = 0x63,0x1
0064 7008       |p   |		Jump_Nonzero	0x6d
0065 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x3.0x1 = 0x65,0x2
0066 7002       |p   |		Jump_Nonzero	0x69
0067 e21b       |    |		Load	0x1,0x1b							; Debug Table 0x3.0x2 = 0x67,0x3
0068 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0069 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x3.0x3 = 0x69,0x4
006a e001       |    |		Load	0x0,0x1
006b 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
006c 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
006d 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x3.0x4 = 0x6d,0x5
006e 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
006f 0000       |    |		.XXX[0x1]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0073       | s  |		.CONST	0x0073								; Address of begin
0071 0004       |    |		.CONST	0x0004								; Address of exception handler
0072 0001       |    |		.CONST	0x0001								; Number of locals
0073			BODY_0070:
0073			INIT_0070:
0073 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x4 = .DEBUG	0x0073,0x0136,0x0002,0x0000,0x0037,0x4d34,0x0000,0x00df
													; Debug Table 0x4.0x0 = 0x73,0x1
0074 700a       |p   |		Jump_Nonzero	0x7f
0075 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x4.0x1 = 0x75,0x2
0076 7004       |p   |		Jump_Nonzero	0x7b
0077 e5fd       |    |		Load	0x2,-0x3
0078 7002       |p   |		Jump_Nonzero	0x7b
0079 e21b       |    |		Load	0x1,0x1b							; Debug Table 0x4.0x2 = 0x79,0x3
007a 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
007b e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x4.0x3 = 0x7b,0x4
007c e001       |    |		Load	0x0,0x1
007d 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
007e 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
007f 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x4.0x4 = 0x7f,0x5
0080 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0081 0000 0000  |    |		.BLANK	0000[0x7]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008b       |    |		.CONST	0x008b								; Address of begin
0089 0004       |    |		.CONST	0x0004								; Address of exception handler
008a 0001       |    |		.CONST	0x0001								; Number of locals
008b			BODY_0088:
008b			INIT_0088:
008b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x5 = .DEBUG	0x008b,0x0142,0x0001,0x0000,0x0037,0x4d34,0x0000,0x00f9
													; Debug Table 0x5.0x0 = 0x8b,0x1
008c 6805       |h   |		Jump_Zero	0x92
008d 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x5.0x1 = 0x8d,0x2
008e e5fd       |    |		Load	0x2,-0x3
008f e001       |    |		Load	0x0,0x1
0090 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0091 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0092 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x5.0x2 = 0x92,0x3
0093 e5fd       |    |		Load	0x2,-0x3
0094 e001       |    |		Load	0x0,0x1
0095 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0096 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0097 0000       |    |		.XXX[0x1]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b       |    |		.CONST	0x009b								; Address of begin
0099 0004       |    |		.CONST	0x0004								; Address of exception handler
009a 0001       |    |		.CONST	0x0001								; Number of locals
009b			BODY_0098:
009b			INIT_0098:
009b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x6 = .DEBUG	0x009b,0x014a,0x0001,0x0000,0x0037,0x4d34,0x0000,0x010c
													; Debug Table 0x6.0x0 = 0x9b,0x1
009c 7005       |p   |		Jump_Nonzero	0xa2
009d e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x6.0x1 = 0x9d,0x2
009e e5fd       |    |		Load	0x2,-0x3
009f e5fe       |    |		Load	0x2,-0x2
00a0 8218       |    |		Call	0x1,0x18
00a1 c5fc       |    |		Store	0x2,-0x4
00a2 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
00a3 0000 0000  |    |		.BLANK	0000[0x5]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; Debug Table
00a8 ; --------------------------------------------------------------------------------------
00a8 0003 0007  |    |		.CONST	0x0003,0x0007
00aa 000b 00e2  |    |		.DEBUG	0x000b,0x00e2,0x8000,0x0000,0x0037,0x4d34,0x0000,0x000b
00b2 0039 0114  | 9  |		.DEBUG	0x0039,0x0114,0x8000,0x0000,0x0037,0x5084,0x0000,0x0009
00ba 0053 0122  | S "|		.DEBUG	0x0053,0x0122,0x0002,0x0000,0x0037,0x4d34,0x0000,0x00b5
00c2 0063 012a  | c *|		.DEBUG	0x0063,0x012a,0x0002,0x0000,0x0037,0x4d34,0x0000,0x00c9
00ca 0073 0136  | s 6|		.DEBUG	0x0073,0x0136,0x0002,0x0000,0x0037,0x4d34,0x0000,0x00df
00d2 008b 0142  |   B|		.DEBUG	0x008b,0x0142,0x0001,0x0000,0x0037,0x4d34,0x0000,0x00f9
00da 009b 014a  |   J|		.DEBUG	0x009b,0x014a,0x0001,0x0000,0x0037,0x4d34,0x0000,0x010c
00e2 ; --------------------------------------------------------------------------------------
00e2 ; Debug3 Subtable 0x0
00e2 ; --------------------------------------------------------------------------------------
00e2 0018 0000  |    |		.DBG3TAB	0x0018,0x0000
00e4 000b ffff  |    |		.CONST	0x000b,0xffff
00e6 000c fffe  |    |		.CONST	0x000c,0xfffe
00e8 000d fffd  |    |		.CONST	0x000d,0xfffd
00ea 000e fffc  |    |		.CONST	0x000e,0xfffc
00ec 0011 fffb  |    |		.CONST	0x0011,0xfffb
00ee 0013 fffa  |    |		.CONST	0x0013,0xfffa
00f0 0014 fff9  |    |		.CONST	0x0014,0xfff9
00f2 0017 fff8  |    |		.CONST	0x0017,0xfff8
00f4 001a fff7  |    |		.CONST	0x001a,0xfff7
00f6 001b fff6  |    |		.CONST	0x001b,0xfff6
00f8 001c fff5  |    |		.CONST	0x001c,0xfff5
00fa 001d fff4  |    |		.CONST	0x001d,0xfff4
00fc 001e fff3  |    |		.CONST	0x001e,0xfff3
00fe 001f fff2  |    |		.CONST	0x001f,0xfff2
0100 0022 fff1  | "  |		.CONST	0x0022,0xfff1
0102 0025 fff0  | %  |		.CONST	0x0025,0xfff0
0104 0028 ffef  | (  |		.CONST	0x0028,0xffef
0106 002b ffee  | +  |		.CONST	0x002b,0xffee
0108 002d ffed  | -  |		.CONST	0x002d,0xffed
010a 002f ffec  | /  |		.CONST	0x002f,0xffec
010c 0031 ffeb  | 1  |		.CONST	0x0031,0xffeb
010e 0033 ffea  | 3  |		.CONST	0x0033,0xffea
0110 0035 ffe9  | 5  |		.CONST	0x0035,0xffe9
0112 0038 ffe8  | 8  |		.CONST	0x0038,0xffe8
0114 ; --------------------------------------------------------------------------------------
0114 ; Debug3 Subtable 0x1
0114 ; --------------------------------------------------------------------------------------
0114 0006 0000  |    |		.DBG3TAB	0x0006,0x0000
0116 0039 ffff  | 9  |		.CONST	0x0039,0xffff
0118 003d fffe  | =  |		.CONST	0x003d,0xfffe
011a 003f fffd  | ?  |		.CONST	0x003f,0xfffd
011c 0041 fffc  | A  |		.CONST	0x0041,0xfffc
011e 0043 fffb  | C  |		.CONST	0x0043,0xfffb
0120 0045 fffa  | E  |		.CONST	0x0045,0xfffa
0122 ; --------------------------------------------------------------------------------------
0122 ; Debug3 Subtable 0x2
0122 ; --------------------------------------------------------------------------------------
0122 0000 0003  |    |		.DBG3TAB	0x0000,0x0003
0124 0053 0001  | S  |		.CONST	0x0053,0x0001
0126 0055 0002  | U  |		.CONST	0x0055,0x0002
0128 0059 0003  | Y  |		.CONST	0x0059,0x0003
012a ; --------------------------------------------------------------------------------------
012a ; Debug3 Subtable 0x3
012a ; --------------------------------------------------------------------------------------
012a 0000 0005  |    |		.DBG3TAB	0x0000,0x0005
012c 0063 0001  | c  |		.CONST	0x0063,0x0001
012e 0065 0002  | e  |		.CONST	0x0065,0x0002
0130 0067 0003  | g  |		.CONST	0x0067,0x0003
0132 0069 0004  | i  |		.CONST	0x0069,0x0004
0134 006d 0005  | m  |		.CONST	0x006d,0x0005
0136 ; --------------------------------------------------------------------------------------
0136 ; Debug3 Subtable 0x4
0136 ; --------------------------------------------------------------------------------------
0136 0000 0005  |    |		.DBG3TAB	0x0000,0x0005
0138 0073 0001  | s  |		.CONST	0x0073,0x0001
013a 0075 0002  | u  |		.CONST	0x0075,0x0002
013c 0079 0003  | y  |		.CONST	0x0079,0x0003
013e 007b 0004  | {  |		.CONST	0x007b,0x0004
0140 007f 0005  |    |		.CONST	0x007f,0x0005
0142 ; --------------------------------------------------------------------------------------
0142 ; Debug3 Subtable 0x5
0142 ; --------------------------------------------------------------------------------------
0142 0000 0003  |    |		.DBG3TAB	0x0000,0x0003
0144 008b 0001  |    |		.CONST	0x008b,0x0001
0146 008d 0002  |    |		.CONST	0x008d,0x0002
0148 0092 0003  |    |		.CONST	0x0092,0x0003
014a ; --------------------------------------------------------------------------------------
014a ; Debug3 Subtable 0x6
014a ; --------------------------------------------------------------------------------------
014a 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
014c 009b 0001  |    |		.CONST	0x009b,0x0001
014e 009d 0002  |    |		.CONST	0x009d,0x0002
0150 0000 0000  |    |		.BLANK	0000[0xb0]