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

⟦f1204d841⟧

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

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 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 0000       |    |		.CONST	0x0000								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 003d       | =  |		.CONST	0x003d								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0019       |    |		.CONST	0x0019								; Number of locals
000b			INIT_0008:
000b 4818       |H   |		Short_Literal	0x18							; Debug Table 0x0 = .DEBUG	0x000b,0x00ba,0xc000,0x0000,0x001b,0xa514,0x0000,0x0008
													; Debug Table 0x0.0x0 = 0xb,0xffff
000c 03cf       |    |		Declare_Type	Access,Incomplete,Visible
000d 00c4       |    |		Action	Make_Default							; Debug Table 0x0.0x1 = 0xd,0xfffe
000e 029a 004b  |   K|		Declare_Subprogram	INIT_0048,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x2 = 0xe,0xfffd
0010 029a 005b  |   [|		Declare_Subprogram	INIT_0058,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x3 = 0x10,0xfffc
0012 029a 006b  |   k|		Declare_Subprogram	INIT_0068,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x4 = 0x12,0xfffb
0014 029a 007b  |   {|		Declare_Subprogram	INIT_0078,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x5 = 0x14,0xfffa
0016 6069       |`i  |		Indirect_Literal	Discrete,0x80,{0x00000000, 0x001ba514}		; Debug Table 0x0.0x6 = 0x16,0xfff9
0017 4849       |HI  |		Short_Literal	0x49
0018 e20f       |    |		Load	0x1,0xf
0019 e210       |    |		Load	0x1,0x10
001a 00d8       |    |		Load_Top	At_Offset_0
001b 0120       |    |		Execute	Any,Is_Value
001c 7002       |p   |		Jump_Nonzero	0x1f
001d 00d8       |    |		Load_Top	At_Offset_0
001e 011e       |    |		Execute	Any,Convert
001f e20f       |    |		Load	0x1,0xf
0020 0119       |    |		Execute	Any,Check_In_Formal_Type
0021 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0022 00e0       |    |		Load_Encached	Standard_Cache
0023 1921       | !  |		Execute	Package,Field_Reference,Field_Number 0x21
0024 e001       |    |		Load	0x0,0x1
0025 0387       |    |		Declare_Variable	Package
0026 00d8       |    |		Load_Top	At_Offset_0
0027 020f       |    |		Execute	Module,Activate
0028 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x0.0x7 = 0x28,0xfff8
0029 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
002a e212       |    |		Load	0x1,0x12
002b 03c6       |    |		Complete_Type	Access,By_Renaming
002c e212       |    |		Load	0x1,0x12							; Debug Table 0x0.0x8 = 0x2c,0xfff7
002d 03be       |    |		Declare_Variable	Access,Visible
002e 00d9       |    |		Load_Top	At_Offset_1
002f 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0030 c219       |    |		Store	0x1,0x19
0031 c213       |    |		Store	0x1,0x13
0032 00bf       |    |		Action	Accept_Activation
0033 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x1 = .DEBUG	0x0033,0x00ce,0xc000,0x0000,0x001b,0xa524,0x0000,0x0003
													; Debug Table 0x1.0x0 = 0x33,0xffff
0034 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0035 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14				; Debug Table 0x1.0x1 = 0x35,0xfffe
0036 00c7       |    |		Action	Elaborate_Subprogram
0037 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15				; Debug Table 0x1.0x2 = 0x37,0xfffd
0038 00c7       |    |		Action	Elaborate_Subprogram
0039 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16				; Debug Table 0x1.0x3 = 0x39,0xfffc
003a 00c7       |    |		Action	Elaborate_Subprogram
003b 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17				; Debug Table 0x1.0x4 = 0x3b,0xfffb
003c 00c7       |    |		Action	Elaborate_Subprogram
003d			BODY_0008:
003d 487f       |H   |		Short_Literal	0x7f							; Debug Table 0x1.0x5 = 0x3d,0x1
003e 00da       |    |		Load_Top	At_Offset_2
003f 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0040 0039       | 9  |		Store_Top	Access,At_Offset_1
0041 00bc       |    |		Action	Signal_Activated
0042 00bb       |    |		Action	Signal_Completion
0043 0000 0000  |    |		.BLANK	0000[0x5]
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 004b       | K  |		.CONST	0x004b								; Address of begin
0049 0004       |    |		.CONST	0x0004								; Address of exception handler
004a 0001       |    |		.CONST	0x0001								; Number of locals
004b			BODY_0048:
004b			INIT_0048:
004b e219       |    |		Load	0x1,0x19							; Debug Table 0x2 = .DEBUG	0x004b,0x00dc,0x1002,0x0000,0x001b,0xa514,0x0000,0x0024
													; Debug Table 0x2.0x0 = 0x4b,0x1
004c 00db       |    |		Load_Top	At_Offset_3
004d e20f       |    |		Load	0x1,0xf
004e 0119       |    |		Execute	Any,Check_In_Formal_Type
004f e218       |    |		Load	0x1,0x18
0050 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0051 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0052 0000 0000  |    |		.BLANK	0000[0x6]
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 e219       |    |		Load	0x1,0x19							; Debug Table 0x3 = .DEBUG	0x005b,0x00e0,0x1002,0x0000,0x001b,0xa514,0x0000,0x002d
													; Debug Table 0x3.0x0 = 0x5b,0x1
005c 00db       |    |		Load_Top	At_Offset_3
005d e20f       |    |		Load	0x1,0xf
005e 0119       |    |		Execute	Any,Check_In_Formal_Type
005f e218       |    |		Load	0x1,0x18
0060 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0061 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0062 0000 0000  |    |		.BLANK	0000[0x6]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b       | k  |		.CONST	0x006b								; Address of begin
0069 0004       |    |		.CONST	0x0004								; Address of exception handler
006a 0001       |    |		.CONST	0x0001								; Number of locals
006b			BODY_0068:
006b			INIT_0068:
006b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x4 = .DEBUG	0x006b,0x00e4,0x1002,0x0000,0x001b,0xa514,0x0000,0x0036
													; Debug Table 0x4.0x0 = 0x6b,0x1
006c e218       |    |		Load	0x1,0x18
006d 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
006e e20f       |    |		Load	0x1,0xf
006f 0119       |    |		Execute	Any,Check_In_Formal_Type
0070 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0071 0000 0000  |    |		.BLANK	0000[0x7]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b       | {  |		.CONST	0x007b								; Address of begin
0079 0004       |    |		.CONST	0x0004								; Address of exception handler
007a 0001       |    |		.CONST	0x0001								; Number of locals
007b			BODY_0078:
007b			INIT_0078:
007b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x5 = .DEBUG	0x007b,0x00e8,0x1002,0x0000,0x001b,0xa514,0x0000,0x003f
													; Debug Table 0x5.0x0 = 0x7b,0x1
007c e218       |    |		Load	0x1,0x18
007d 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
007e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
007f 0000       |    |		.XXX[0x1]
0080 0000 0000  |    |		.LITERAL	{0x00000000, 0x001ba514}
0084 0000 0000  |    |		.BLANK	0000[0x4]
0088 ; --------------------------------------------------------------------------------------
0088 ; Debug Table
0088 ; --------------------------------------------------------------------------------------
0088 0003 0006  |    |		.CONST	0x0003,0x0006
008a 000b 00ba  |    |		.DEBUG	0x000b,0x00ba,0xc000,0x0000,0x001b,0xa514,0x0000,0x0008
0092 0033 00ce  | 3  |		.DEBUG	0x0033,0x00ce,0xc000,0x0000,0x001b,0xa524,0x0000,0x0003
009a 004b 00dc  | K  |		.DEBUG	0x004b,0x00dc,0x1002,0x0000,0x001b,0xa514,0x0000,0x0024
00a2 005b 00e0  | [  |		.DEBUG	0x005b,0x00e0,0x1002,0x0000,0x001b,0xa514,0x0000,0x002d
00aa 006b 00e4  | k  |		.DEBUG	0x006b,0x00e4,0x1002,0x0000,0x001b,0xa514,0x0000,0x0036
00b2 007b 00e8  | {  |		.DEBUG	0x007b,0x00e8,0x1002,0x0000,0x001b,0xa514,0x0000,0x003f
00ba ; --------------------------------------------------------------------------------------
00ba ; Debug3 Subtable 0x0
00ba ; --------------------------------------------------------------------------------------
00ba 0009 0000  |    |		.DBG3TAB	0x0009,0x0000
00bc 000b ffff  |    |		.CONST	0x000b,0xffff
00be 000d fffe  |    |		.CONST	0x000d,0xfffe
00c0 000e fffd  |    |		.CONST	0x000e,0xfffd
00c2 0010 fffc  |    |		.CONST	0x0010,0xfffc
00c4 0012 fffb  |    |		.CONST	0x0012,0xfffb
00c6 0014 fffa  |    |		.CONST	0x0014,0xfffa
00c8 0016 fff9  |    |		.CONST	0x0016,0xfff9
00ca 0028 fff8  | (  |		.CONST	0x0028,0xfff8
00cc 002c fff7  | ,  |		.CONST	0x002c,0xfff7
00ce ; --------------------------------------------------------------------------------------
00ce ; Debug3 Subtable 0x1
00ce ; --------------------------------------------------------------------------------------
00ce 0005 0001  |    |		.DBG3TAB	0x0005,0x0001
00d0 0033 ffff  | 3  |		.CONST	0x0033,0xffff
00d2 0035 fffe  | 5  |		.CONST	0x0035,0xfffe
00d4 0037 fffd  | 7  |		.CONST	0x0037,0xfffd
00d6 0039 fffc  | 9  |		.CONST	0x0039,0xfffc
00d8 003b fffb  | ;  |		.CONST	0x003b,0xfffb
00da 003d 0001  | =  |		.CONST	0x003d,0x0001
00dc ; --------------------------------------------------------------------------------------
00dc ; Debug3 Subtable 0x2
00dc ; --------------------------------------------------------------------------------------
00dc 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
00de 004b 0001  | K  |		.CONST	0x004b,0x0001
00e0 ; --------------------------------------------------------------------------------------
00e0 ; Debug3 Subtable 0x3
00e0 ; --------------------------------------------------------------------------------------
00e0 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
00e2 005b 0001  | [  |		.CONST	0x005b,0x0001
00e4 ; --------------------------------------------------------------------------------------
00e4 ; Debug3 Subtable 0x4
00e4 ; --------------------------------------------------------------------------------------
00e4 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
00e6 006b 0001  | k  |		.CONST	0x006b,0x0001
00e8 ; --------------------------------------------------------------------------------------
00e8 ; Debug3 Subtable 0x5
00e8 ; --------------------------------------------------------------------------------------
00e8 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
00ea 007b 0001  | {  |		.CONST	0x007b,0x0001
00ec 0000 0000  |    |		.BLANK	0000[0x114]