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

⟦dd79c5a57⟧

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

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 0090       |    |		.CONST	0x0090								; 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 0010       |    |		.CONST	0x0010								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0001       |    |		.CONST	0x0001								; Number of locals
000b			INIT_0008:
000b 029a 001b  |    |		Declare_Subprogram	INIT_0018,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0 = .DEBUG	0x000b,0x00b2,0x8000,0x0000,0x0035,0x25a4,0x0000,0x0007
000d 00bf       |    |		Action	Accept_Activation
000e 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
000f 00c7       |    |		Action	Elaborate_Subprogram
0010			BODY_0008:
0010 00bc       |    |		Action	Signal_Activated
0011 00bb       |    |		Action	Signal_Completion
0012 0000 0000  |    |		.BLANK	0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 0027       | '  |		.CONST	0x0027								; Address of begin
0019 004c       | L  |		.CONST	0x004c								; Address of exception handler
001a 0005       |    |		.CONST	0x0005								; Number of locals
001b			INIT_0018:
001b e001       |    |		Load	0x0,0x1								; Debug Table 0x1 = .DEBUG	0x001b,0x00b4,0xa801,0x0002,0x0035,0x25a4,0x0000,0x0007
													; Debug Table 0x1.0x0 = 0x1b,0xffff
001c 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
001d 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x1 = 0x1d,0xfffe
001e 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x2 = 0x1e,0xfffd
001f 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x3 = 0x1f,0xfffc
0020 606b       |`k  |		Indirect_Literal	Discrete,0x8c,{0x00000000, 0x00000ccd}		; Debug Table 0x1.0x4 = 0x20,0xfffb
0021 00e7       |    |		Load_Encached	Duration_Cache
0022 03f1       |    |		Declare_Variable	Discrete,With_Value
0023 029f 005b  |   [|		Declare_Subprogram	INIT_0058,For_Call				; Debug Table 0x1.0x5 = 0x23,0xfffa
0025 029f 006b  |   k|		Declare_Subprogram	INIT_0068,For_Call				; Debug Table 0x1.0x6 = 0x25,0xfff9
0027			BODY_0018:
0027 00cf       |    |		Action	Mark_Auxiliary
0028 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x7 = 0x28,0x1
0029 e001       |    |		Load	0x0,0x1								; Debug Table 0x1.0x8 = 0x29,0x2
002a 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
002b e5f9       |    |		Load	0x2,-0x7
002c e5fb       |    |		Load	0x2,-0x5
002d e5fc       |    |		Load	0x2,-0x4
002e e002       |    |		Load	0x0,0x2
002f 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0030 00d1       |    |		Pop_Control	Pop_Count_1
0031 c402       |    |		Store	0x2,0x2
0032 8405       |    |		Call	0x2,0x5								; Debug Table 0x1.0x9 = 0x32,0x3
0033 6813       |h   |		Jump_Zero	0x47
0034 e001       |    |		Load	0x0,0x1								; Debug Table 0x1.0xa = 0x34,0x4
0035 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
0036 00e7       |    |		Load_Encached	Duration_Cache
0037 0269       | i  |		Execute	Discrete,Last
0038 e5f9       |    |		Load	0x2,-0x7
0039 e002       |    |		Load	0x0,0x2
003a 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
003b c402       |    |		Store	0x2,0x2
003c 8405       |    |		Call	0x2,0x5								; Debug Table 0x1.0xb = 0x3c,0x5
003d 6806       |h   |		Jump_Zero	0x44
003e e5fa       |    |		Load	0x2,-0x6							; Debug Table 0x1.0xc = 0x3e,0x6
003f e5f9       |    |		Load	0x2,-0x7
0040 85fe       |    |		Call	0x2,-0x2
0041 c5fa       |    |		Store	0x2,-0x6
0042 6049       |`I  |		Indirect_Literal	Discrete,0x8c,{0x00000000, 0x00000ccd}		; Debug Table 0x1.0xd = 0x42,0x7
0043 a403       |    |		Store_Unchecked	0x2,0x3
0044 e5f9       |    |		Load	0x2,-0x7							; Debug Table 0x1.0xe = 0x44,0x8
0045 e002       |    |		Load	0x0,0x2
0046 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0047 e5f9       |    |		Load	0x2,-0x7							; Debug Table 0x1.0xf = 0x47,0x9
0048 e002       |    |		Load	0x0,0x2
0049 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
004a 00c9       |    |		Action	Pop_Auxiliary_Loop
004b 7fdd       |    |		Jump	0x29
004c			TRAP_0018:
004c 603b       |`;  |		Indirect_Literal	Discrete,0x88,{0x00000000, 0x35263401}
004d 010f       |    |		Execute	Exception,Equal
004e 6804       |h   |		Jump_Zero	0x53
004f e5f9       |    |		Load	0x2,-0x7							; Debug Table 0x1.0x10 = 0x4f,0xa
0050 e002       |    |		Load	0x0,0x2
0051 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0052 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0053 e5f9       |    |		Load	0x2,-0x7							; Debug Table 0x1.0x11 = 0x53,0xb
0054 e002       |    |		Load	0x0,0x2
0055 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0056 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x1.0x12 = 0x56,0xc
0057 0101       |    |		Execute	Exception,Reraise
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						; Debug Table 0x2 = .DEBUG	0x005b,0x00dc,0x0801,0x0002,0x0035,0x2634,0x0000,0x003c
													; Debug Table 0x2.0x0 = 0x5b,0x1
005c 00ba       |    |		Action	Initiate_Delay
005d 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x2.0x1 = 0x5d,0x2
005e 0901       |    |		Execute_Immediate	Binary_Scale,0x1
005f 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0060 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x2.0x2 = 0x60,0x3
0061 6022       |`"  |		Indirect_Literal	Discrete,0x84,{0x00000000, 0x00960000}
0062 027d       | }  |		Execute	Discrete,Greater
0063 6802       |h   |		Jump_Zero	0x66
0064 601f       |`   |		Indirect_Literal	Discrete,0x84,{0x00000000, 0x00960000}		; Debug Table 0x2.0x3 = 0x64,0x4
0065 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0066 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0067 0000       |    |		.XXX[0x1]
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 e402       |    |		Load	0x2,0x2								; Debug Table 0x3 = .DEBUG	0x006b,0x00e6,0x0802,0x0002,0x0035,0x2634,0x0000,0x005c
													; Debug Table 0x3.0x0 = 0x6b,0x1
006c 0b00       |    |		Execute_Immediate	Case_Compare,0x0
006d 700f       |p   |		Jump_Nonzero	0x7d
006e 0b06       |    |		Execute_Immediate	Case_Compare,0x6
006f 700f       |p   |		Jump_Nonzero	0x7f
0070 0b0c       |    |		Execute_Immediate	Case_Compare,0xc
0071 700d       |p   |		Jump_Nonzero	0x7f
0072 0b0d       |    |		Execute_Immediate	Case_Compare,0xd
0073 700b       |p   |		Jump_Nonzero	0x7f
0074 0b10       |    |		Execute_Immediate	Case_Compare,0x10
0075 7009       |p   |		Jump_Nonzero	0x7f
0076 0b11       |    |		Execute_Immediate	Case_Compare,0x11
0077 7007       |p   |		Jump_Nonzero	0x7f
0078 e403       |    |		Load	0x2,0x3								; Debug Table 0x3.0x1 = 0x78,0x4
0079 8404       |    |		Call	0x2,0x4
007a c403       |    |		Store	0x2,0x3
007b 4800       |H   |		Short_Literal	0x0							; Debug Table 0x3.0x2 = 0x7b,0x5
007c 00ca       |    |		Action	Exit_Nullary_Function
007d 4801       |H   |		Short_Literal	0x1							; Debug Table 0x3.0x3 = 0x7d,0x2
007e 00ca       |    |		Action	Exit_Nullary_Function
007f 6008       |`   |		Indirect_Literal	Discrete,0x88,{0x00000000, 0x35263401}		; Debug Table 0x3.0x4 = 0x7f,0x3
0080 0257       | W  |		Execute	Discrete,Raise
0081 0000 0000  |    |		.XXX[0x3]
0083 0000       |    |
0084 0000 0000  |    |		.LITERAL	{0x00000000, 0x00960000}
0088 0000 0000  |    |		.LITERAL	{0x00000000, 0x35263401}
008c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000ccd}
0090 ; --------------------------------------------------------------------------------------
0090 ; Debug Table
0090 ; --------------------------------------------------------------------------------------
0090 0003 0004  |    |		.CONST	0x0003,0x0004
0092 000b 00b2  |    |		.DEBUG	0x000b,0x00b2,0x8000,0x0000,0x0035,0x25a4,0x0000,0x0007
009a 001b 00b4  |    |		.DEBUG	0x001b,0x00b4,0xa801,0x0002,0x0035,0x25a4,0x0000,0x0007
00a2 005b 00dc  | [  |		.DEBUG	0x005b,0x00dc,0x0801,0x0002,0x0035,0x2634,0x0000,0x003c
00aa 006b 00e6  | k  |		.DEBUG	0x006b,0x00e6,0x0802,0x0002,0x0035,0x2634,0x0000,0x005c
00b2 ; --------------------------------------------------------------------------------------
00b2 ; Debug3 Subtable 0x0
00b2 ; --------------------------------------------------------------------------------------
00b2 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
00b4 ; --------------------------------------------------------------------------------------
00b4 ; Debug3 Subtable 0x1
00b4 ; --------------------------------------------------------------------------------------
00b4 0007 000c  |    |		.DBG3TAB	0x0007,0x000c
00b6 001b ffff  |    |		.CONST	0x001b,0xffff
00b8 001d fffe  |    |		.CONST	0x001d,0xfffe
00ba 001e fffd  |    |		.CONST	0x001e,0xfffd
00bc 001f fffc  |    |		.CONST	0x001f,0xfffc
00be 0020 fffb  |    |		.CONST	0x0020,0xfffb
00c0 0023 fffa  | #  |		.CONST	0x0023,0xfffa
00c2 0025 fff9  | %  |		.CONST	0x0025,0xfff9
00c4 0028 0001  | (  |		.CONST	0x0028,0x0001
00c6 0029 0002  | )  |		.CONST	0x0029,0x0002
00c8 0032 0003  | 2  |		.CONST	0x0032,0x0003
00ca 0034 0004  | 4  |		.CONST	0x0034,0x0004
00cc 003c 0005  | <  |		.CONST	0x003c,0x0005
00ce 003e 0006  | >  |		.CONST	0x003e,0x0006
00d0 0042 0007  | B  |		.CONST	0x0042,0x0007
00d2 0044 0008  | D  |		.CONST	0x0044,0x0008
00d4 0047 0009  | G  |		.CONST	0x0047,0x0009
00d6 004f 000a  | O  |		.CONST	0x004f,0x000a
00d8 0053 000b  | S  |		.CONST	0x0053,0x000b
00da 0056 000c  | V  |		.CONST	0x0056,0x000c
00dc ; --------------------------------------------------------------------------------------
00dc ; Debug3 Subtable 0x2
00dc ; --------------------------------------------------------------------------------------
00dc 0000 0004  |    |		.DBG3TAB	0x0000,0x0004
00de 005b 0001  | [  |		.CONST	0x005b,0x0001
00e0 005d 0002  | ]  |		.CONST	0x005d,0x0002
00e2 0060 0003  | `  |		.CONST	0x0060,0x0003
00e4 0064 0004  | d  |		.CONST	0x0064,0x0004
00e6 ; --------------------------------------------------------------------------------------
00e6 ; Debug3 Subtable 0x3
00e6 ; --------------------------------------------------------------------------------------
00e6 0000 0005  |    |		.DBG3TAB	0x0000,0x0005
00e8 006b 0001  | k  |		.CONST	0x006b,0x0001
00ea 0078 0004  | x  |		.CONST	0x0078,0x0004
00ec 007b 0005  | {  |		.CONST	0x007b,0x0005
00ee 007d 0002  | }  |		.CONST	0x007d,0x0002
00f0 007f 0003  |    |		.CONST	0x007f,0x0003
00f2 0000 0000  |    |		.BLANK	0000[0x10e]