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

⟦c413a3e40⟧

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

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 5813       |X   |		.CONST	0x5813								; 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 0000       |    |		.CONST	0x0000								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 002c       | ,  |		.CONST	0x002c								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0013       |    |		.CONST	0x0013								; Number of locals
000b			INIT_0008:
000b 029a 0033  |   3|		Declare_Subprogram	INIT_0030,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0 = .DEBUG	0x000b,0x00e2,0x8000,0x0000,0x0056,0xbd05,0x0000,0x0007
													; Debug Table 0x0.0x0 = 0xb,0xffff
													; Debug Table 0x0.0x1 = 0xb,0xfffe
													; Debug Table 0x0.0x2 = 0xb,0xfffd
000d 00bf       |    |		Action	Accept_Activation
000e 4801       |H   |		Short_Literal	0x1							; Debug Table 0x1 = .DEBUG	0x000e,0x00ea,0x8000,0x0000,0x0056,0xbd25,0x0000,0x0005
													; Debug Table 0x1.0x0 = 0xe,0xffff
000f 49f4       |I   |		Short_Literal	0x1f4
0010 00e9       |    |		Load_Encached	String_Cache
0011 0334       | 4  |		Declare_Variable	Array,With_Constraint
0012 00e2       |    |		Load_Encached	Integer_Cache						; Debug Table 0x1.0x1 = 0x12,0xfffe
0013 029d 004b  |   K|		Declare_Subprogram	INIT_0048,For_Outer_Call			; Debug Table 0x1.0x2 = 0x13,0xfffd
0015 029d 005b  |   [|		Declare_Subprogram	INIT_0058,For_Outer_Call			; Debug Table 0x1.0x3 = 0x15,0xfffc
0017 604c       |`L  |		Indirect_Literal	Discrete,0x64,{0x00000000, 0x0056bd25}		; Debug Table 0x1.0x4 = 0x17,0xfffb
0018 4842       |HB  |		Short_Literal	0x42
0019 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
001a 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
001b e001       |    |		Load	0x0,0x1
001c 0387       |    |		Declare_Variable	Package
001d 00d8       |    |		Load_Top	At_Offset_0
001e 020f       |    |		Execute	Module,Activate
001f 4800       |H   |		Short_Literal	0x0							; Debug Table 0x1.0x5 = 0x1f,0xfffa
0020 603f       |`?  |		Indirect_Literal	Discrete,0x60,{0x0046480e, 0x000006b0}
0021 02a0       |    |		Declare_Subprogram	Null_Subprogram
0022 037d       | }  |		Declare_Type	Task,Defined
0023 036f       | o  |		Declare_Variable	Task
0024 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf				; Debug Table 0x1.0x6 = 0x24,0xfff9
0025 00da       |    |		Load_Top	At_Offset_2
0026 e20e       |    |		Load	0x1,0xe
0027 4803       |H   |		Short_Literal	0x3
0028 00dc       |    |		Load_Top	At_Offset_4
0029 020e       |    |		Execute	Module,Augment_Imports
002a 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd				; Debug Table 0x1.0x7 = 0x2a,0xfff8
002b 00c7       |    |		Action	Elaborate_Subprogram
002c			BODY_0008:
002c 00be       |    |		Action	Activate_Tasks
002d 00bc       |    |		Action	Signal_Activated
002e 00bb       |    |		Action	Signal_Completion
002f 0000       |    |		.XXX[0x1]
0030 ; --------------------------------------------------------------------------------------
0030 ; SUBPROGRAM
0030 ; --------------------------------------------------------------------------------------
0030 0038       | 8  |		.CONST	0x0038								; Address of begin
0031 0004       |    |		.CONST	0x0004								; Address of exception handler
0032 0003       |    |		.CONST	0x0003								; Number of locals
0033			INIT_0030:
0033 4801       |H   |		Short_Literal	0x1							; Debug Table 0x2 = .DEBUG	0x0033,0x00fc,0x0002,0x0000,0x0056,0xbd05,0x0000,0x0015
													; Debug Table 0x2.0x0 = 0x33,0xffff
0034 49f4       |I   |		Short_Literal	0x1f4
0035 00e9       |    |		Load_Encached	String_Cache
0036 0334       | 4  |		Declare_Variable	Array,With_Constraint
0037 00e2       |    |		Load_Encached	Integer_Cache						; Debug Table 0x2.0x1 = 0x37,0xfffe
0038			BODY_0030:
0038 00e2       |    |		Load_Encached	Integer_Cache						; Debug Table 0x2.0x2 = 0x38,0x1
0039 00da       |    |		Load_Top	At_Offset_2
003a 00de       |    |		Load_Top	At_Offset_6
003b 4803       |H   |		Short_Literal	0x3
003c e213       |    |		Load	0x1,0x13
003d 170d       |    |		Execute	Task,Entry_Call,Field_Number 0xd
003e 00d1       |    |		Pop_Control	Pop_Count_1
003f 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0040 4801       |H   |		Short_Literal	0x1							; Debug Table 0x2.0x3 = 0x40,0x2
0041 00d9       |    |		Load_Top	At_Offset_1
0042 00db       |    |		Load_Top	At_Offset_3
0043 01cf       |    |		Execute	Vector,Slice_Read
0044 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0045 0000 0000  |    |		.XXX[0x3]
0047 0000       |    |
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 e20f       |    |		Load	0x1,0xf								; Debug Table 0x3 = .DEBUG	0x004b,0x0106,0x0001,0x0000,0x0056,0xbd25,0x0000,0x0014
													; Debug Table 0x3.0x0 = 0x4b,0x1
004c 49f4       |I   |		Short_Literal	0x1f4
004d 027c       | |  |		Execute	Discrete,Less
004e 6808       |h   |		Jump_Zero	0x57
004f e20f       |    |		Load	0x1,0xf								; Debug Table 0x3.0x1 = 0x4f,0x2
0050 0a01       |    |		Execute_Immediate	Plus,0x1
0051 0248       | H  |		Execute	Discrete,Check_In_Integer
0052 a20f       |    |		Store_Unchecked	0x1,0xf
0053 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x3.0x2 = 0x53,0x3
0054 e20f       |    |		Load	0x1,0xf
0055 e20e       |    |		Load	0x1,0xe
0056 01d6       |    |		Execute	Vector,Field_Write
0057 4502       |E   |		Exit_Suprogram	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 e20f       |    |		Load	0x1,0xf								; Debug Table 0x4 = .DEBUG	0x005b,0x010e,0x0002,0x0000,0x0056,0xbd25,0x0000,0x0037
													; Debug Table 0x4.0x0 = 0x5b,0x1
005c 00ca       |    |		Action	Exit_Nullary_Function
005d 0000 0000  |    |		.XXX[0x3]
005f 0000       |    |
0060 0046 480e  | FH |		.LITERAL	{0x0046480e, 0x000006b0}
0064 0000 0000  |    |		.LITERAL	{0x00000000, 0x0056bd25}
0068 0071 0004  | q  |		.XXX[0x3]
006a 000e       |    |
006b 4803       |H   |		Short_Literal	0x3							; Debug Table 0x5 = .DEBUG	0x006b,0x0112,0x0000,0x0000,0x0056,0xbd25,0x0000,0x0049
006c 02cb       |    |		Declare_Variable	Entry
006d 00bf       |    |		Action	Accept_Activation
006e 029f 007b  |   {|		Declare_Subprogram	INIT_0078,For_Call				; Debug Table 0x6 = .DEBUG	0x006e,0x0114,0x0000,0x0000,0x0056,0xbd25,0x0000,0x005f
0070 00bc       |    |		Action	Signal_Activated
0071 820e       |    |		Call	0x1,0xe								; Debug Table 0x6.0x0 = 0x71,0x1
													; Debug Table 0x6.0x1 = 0x71,0x2
0072 7ffe       |    |		Jump	0x71
0073 0000 0000  |    |		.BLANK	0000[0x5]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 0082       |    |		.CONST	0x0082								; Address of begin
0079 0085       |    |		.CONST	0x0085								; Address of exception handler
007a 0002       |    |		.CONST	0x0002								; Number of locals
007b			INIT_0078:
007b 480d 4811  |H H |		Declare_Variable	Select	0x000, 0x001,				; Debug Table 0x7 = .DEBUG	0x007b,0x011a,0x0004,0x0000,0x0056,0xbd25,0x0000,0x008f
007d 4800 4800  |H H |				[0x000]: 0x000 = 0x0000,
007f 4800 4801  |H H |				[0x00d]: 0x011 = 0x0088
0081 02cf       |    |
0082			BODY_0078:
0082 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x7.0x0 = 0x82,0x1
0083 013f       | ?  |		Execute	Select,Rendezvous
0084 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0085			TRAP_0078:
0085 0007       |    |		Action	Break_Optional
0086 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; Debug Table 0x7.0x1 = 0x86,0x3
0087 0000       |    |		.XXX[0x1]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; See instruction 0x02cf at 0x7b, index=0xd
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 4800       |H   |		Short_Literal	0x0							; Debug Table 0x8 = .DEBUG	0x008b,0x0120,0x0003,0x0000,0x0056,0xbd25,0x0000,0x0082
													; Debug Table 0x8.0x0 = 0x8b,0x1
008c c001       |    |		Store	0x0,0x1
008d 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x8.0x1 = 0x8d,0x2
008e e002       |    |		Load	0x0,0x2
008f 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0090 e001       |    |		Load	0x0,0x1								; Debug Table 0x8.0x2 = 0x90,0x3
0091 0056       | V  |		Store_Top_Unchecked	Discrete,At_Offset_6
0092 e003       |    |		Load	0x0,0x3								; Debug Table 0x8.0x3 = 0x92,0x4
0093 00dd       |    |		Load_Top	At_Offset_5
0094 01d4       |    |		Execute	Vector,Structure_Write
0095 4102       |A   |		End_Rendezvous	0x2
0096 0000 0000  |    |		.XXX[0x2]
0098 ; --------------------------------------------------------------------------------------
0098 ; Debug Table
0098 ; --------------------------------------------------------------------------------------
0098 0003 0009  |    |		.CONST	0x0003,0x0009
009a 000b 00e2  |    |		.DEBUG	0x000b,0x00e2,0x8000,0x0000,0x0056,0xbd05,0x0000,0x0007
00a2 000e 00ea  |    |		.DEBUG	0x000e,0x00ea,0x8000,0x0000,0x0056,0xbd25,0x0000,0x0005
00aa 0033 00fc  | 3  |		.DEBUG	0x0033,0x00fc,0x0002,0x0000,0x0056,0xbd05,0x0000,0x0015
00b2 004b 0106  | K  |		.DEBUG	0x004b,0x0106,0x0001,0x0000,0x0056,0xbd25,0x0000,0x0014
00ba 005b 010e  | [  |		.DEBUG	0x005b,0x010e,0x0002,0x0000,0x0056,0xbd25,0x0000,0x0037
00c2 006b 0112  | k  |		.DEBUG	0x006b,0x0112,0x0000,0x0000,0x0056,0xbd25,0x0000,0x0049
00ca 006e 0114  | n  |		.DEBUG	0x006e,0x0114,0x0000,0x0000,0x0056,0xbd25,0x0000,0x005f
00d2 007b 011a  | {  |		.DEBUG	0x007b,0x011a,0x0004,0x0000,0x0056,0xbd25,0x0000,0x008f
00da 008b 0120  |    |		.DEBUG	0x008b,0x0120,0x0003,0x0000,0x0056,0xbd25,0x0000,0x0082
00e2 ; --------------------------------------------------------------------------------------
00e2 ; Debug3 Subtable 0x0
00e2 ; --------------------------------------------------------------------------------------
00e2 0003 0000  |    |		.DBG3TAB	0x0003,0x0000
00e4 000b ffff  |    |		.CONST	0x000b,0xffff
00e6 000b fffe  |    |		.CONST	0x000b,0xfffe
00e8 000b fffd  |    |		.CONST	0x000b,0xfffd
00ea ; --------------------------------------------------------------------------------------
00ea ; Debug3 Subtable 0x1
00ea ; --------------------------------------------------------------------------------------
00ea 0008 0000  |    |		.DBG3TAB	0x0008,0x0000
00ec 000e ffff  |    |		.CONST	0x000e,0xffff
00ee 0012 fffe  |    |		.CONST	0x0012,0xfffe
00f0 0013 fffd  |    |		.CONST	0x0013,0xfffd
00f2 0015 fffc  |    |		.CONST	0x0015,0xfffc
00f4 0017 fffb  |    |		.CONST	0x0017,0xfffb
00f6 001f fffa  |    |		.CONST	0x001f,0xfffa
00f8 0024 fff9  | $  |		.CONST	0x0024,0xfff9
00fa 002a fff8  | *  |		.CONST	0x002a,0xfff8
00fc ; --------------------------------------------------------------------------------------
00fc ; Debug3 Subtable 0x2
00fc ; --------------------------------------------------------------------------------------
00fc 0002 0002  |    |		.DBG3TAB	0x0002,0x0002
00fe 0033 ffff  | 3  |		.CONST	0x0033,0xffff
0100 0037 fffe  | 7  |		.CONST	0x0037,0xfffe
0102 0038 0001  | 8  |		.CONST	0x0038,0x0001
0104 0040 0002  | @  |		.CONST	0x0040,0x0002
0106 ; --------------------------------------------------------------------------------------
0106 ; Debug3 Subtable 0x3
0106 ; --------------------------------------------------------------------------------------
0106 0000 0003  |    |		.DBG3TAB	0x0000,0x0003
0108 004b 0001  | K  |		.CONST	0x004b,0x0001
010a 004f 0002  | O  |		.CONST	0x004f,0x0002
010c 0053 0003  | S  |		.CONST	0x0053,0x0003
010e ; --------------------------------------------------------------------------------------
010e ; Debug3 Subtable 0x4
010e ; --------------------------------------------------------------------------------------
010e 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0110 005b 0001  | [  |		.CONST	0x005b,0x0001
0112 ; --------------------------------------------------------------------------------------
0112 ; Debug3 Subtable 0x5
0112 ; --------------------------------------------------------------------------------------
0112 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
0114 ; --------------------------------------------------------------------------------------
0114 ; Debug3 Subtable 0x6
0114 ; --------------------------------------------------------------------------------------
0114 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
0116 0071 0001  | q  |		.CONST	0x0071,0x0001
0118 0071 0002  | q  |		.CONST	0x0071,0x0002
011a ; --------------------------------------------------------------------------------------
011a ; Debug3 Subtable 0x7
011a ; --------------------------------------------------------------------------------------
011a 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
011c 0082 0001  |    |		.CONST	0x0082,0x0001
011e 0086 0003  |    |		.CONST	0x0086,0x0003
0120 ; --------------------------------------------------------------------------------------
0120 ; Debug3 Subtable 0x8
0120 ; --------------------------------------------------------------------------------------
0120 0000 0004  |    |		.DBG3TAB	0x0000,0x0004
0122 008b 0001  |    |		.CONST	0x008b,0x0001
0124 008d 0002  |    |		.CONST	0x008d,0x0002
0126 0090 0003  |    |		.CONST	0x0090,0x0003
0128 0092 0004  |    |		.CONST	0x0092,0x0004
012a 0000 0000  |    |		.BLANK	0000[0xd6]