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

⟦e82ffb6d2⟧

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

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 5900       |Y   |		.CONST	0x5900								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 00c0       |    |		.CONST	0x00c0								; 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 0021       | !  |		.CONST	0x0021								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0011       |    |		.CONST	0x0011								; Number of locals
000b			INIT_0008:
000b 029a 002b  |   +|		Declare_Subprogram	INIT_0028,For_Outer_Call,Visible,Unelaborated
000d 029a 0063  |   c|		Declare_Subprogram	INIT_0060,For_Outer_Call,Visible,Unelaborated
000f 029a 0083  |    |		Declare_Subprogram	INIT_0080,For_Outer_Call,Visible,Unelaborated
0011 029a 00a3  |    |		Declare_Subprogram	INIT_00a0,For_Outer_Call,Visible,Unelaborated
0013 0093 0000  |    |		push_full_address	0x0
0015 6046       |`F  |		Indirect_Literal	Discrete,0x5c,{0x80000000, 0x00010000}
0016 0273       | s  |		Execute	Discrete,Plus
0017 0129       | )  |		Execute	Any,Make_Visible
0018 00bf       |    |		Action	Accept_Activation
0019 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
001a 00c7       |    |		Action	Elaborate_Subprogram
001b 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
001c 00c7       |    |		Action	Elaborate_Subprogram
001d 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
001e 00c7       |    |		Action	Elaborate_Subprogram
001f 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0020 00c7       |    |		Action	Elaborate_Subprogram
0021			BODY_0008:
0021 00bc       |    |		Action	Signal_Activated
0022 00bb       |    |		Action	Signal_Completion
0023 0000 0000  |    |		.BLANK	0000[0x5]
0028 ; --------------------------------------------------------------------------------------
0028 ; SUBPROGRAM
0028 ; --------------------------------------------------------------------------------------
0028 002b       | +  |		.CONST	0x002b								; Address of begin
0029 0004       |    |		.CONST	0x0004								; Address of exception handler
002a 0001       |    |		.CONST	0x0001								; Number of locals
002b			BODY_0028:
002b			INIT_0028:
002b 00db       |    |		Load_Top	At_Offset_3
002c 01db       |    |		Execute	Vector,Length
002d 00db       |    |		Load_Top	At_Offset_3
002e 01db       |    |		Execute	Vector,Length
002f 027d       | }  |		Execute	Discrete,Greater
0030 6802       |h   |		Jump_Zero	0x33
0031 e211       |    |		Load	0x1,0x11
0032 0257       | W  |		Execute	Discrete,Raise
0033 00cf       |    |		Action	Mark_Auxiliary
0034 e5fe       |    |		Load	0x2,-0x2
0035 01db       |    |		Execute	Vector,Length
0036 0aff       |    |		Execute_Immediate	Plus,-0x1
0037 00d8       |    |		Load_Top	At_Offset_0
0038 00e3       |    |		Load_Encached	Natural_Cache
0039 0260       | `  |		Execute	Discrete,In_Type
003a 7001       |p   |		Jump_Nonzero	0x3c
003b 0801       |    |		Execute_Immediate	Raise,0x1
003c 4800       |H   |		Short_Literal	0x0
003d 0263       | c  |		Execute	Discrete,Above_Bound
003e 7012       |p   |		Jump_Nonzero	0x51
003f e5fe       |    |		Load	0x2,-0x2
0040 01dd       |    |		Execute	Vector,First
0041 00d9       |    |		Load_Top	At_Offset_1
0042 0273       | s  |		Execute	Discrete,Plus
0043 e5fe       |    |		Load	0x2,-0x2
0044 01d7       |    |		Execute	Vector,Field_Read
0045 e5ff       |    |		Load	0x2,-0x1
0046 01dd       |    |		Execute	Vector,First
0047 00da       |    |		Load_Top	At_Offset_2
0048 0273       | s  |		Execute	Discrete,Plus
0049 e5ff       |    |		Load	0x2,-0x1
004a 01d7       |    |		Execute	Vector,Field_Read
004b 027e       | ~  |		Execute	Discrete,Not_Equal
004c 6802       |h   |		Jump_Zero	0x4f
004d e211       |    |		Load	0x1,0x11
004e 0257       | W  |		Execute	Discrete,Raise
004f 00c8       |    |		Action	Pop_Auxiliary_Range
0050 3fee       |?   |		Loop_Increasing	0x3f
0051 00ce       |    |		Action	Pop_Auxiliary
0052 00da       |    |		Load_Top	At_Offset_2
0053 01dd       |    |		Execute	Vector,First
0054 e5fe       |    |		Load	0x2,-0x2
0055 01db       |    |		Execute	Vector,Length
0056 0273       | s  |		Execute	Discrete,Plus
0057 0aff       |    |		Execute_Immediate	Plus,-0x1
0058 c5fd       |    |		Store	0x2,-0x3
0059 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
005a 0000 0000  |    |		.XXX[0x2]
005c 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
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 00cf       |    |		Action	Mark_Auxiliary
0064 00db       |    |		Load_Top	At_Offset_3
0065 01d9       |    |		Execute	Vector,Reverse_Bounds
0066 0263       | c  |		Execute	Discrete,Above_Bound
0067 700c       |p   |		Jump_Nonzero	0x74
0068 00d8       |    |		Load_Top	At_Offset_0
0069 e5ff       |    |		Load	0x2,-0x1
006a 01d7       |    |		Execute	Vector,Field_Read
006b e5fe       |    |		Load	0x2,-0x2
006c 027f       |    |		Execute	Discrete,Equal
006d 6804       |h   |		Jump_Zero	0x72
006e 00d8       |    |		Load_Top	At_Offset_0
006f a5fd       |    |		Store_Unchecked	0x2,-0x3
0070 00d2       |    |		Pop_Control	Pop_Count_2
0071 7802       |x   |		Jump	0x74
0072 00c8       |    |		Action	Pop_Auxiliary_Range
0073 3ff4       |?   |		Loop_Increasing	0x68
0074 00ce       |    |		Action	Pop_Auxiliary
0075 e5fd       |    |		Load	0x2,-0x3
0076 00db       |    |		Load_Top	At_Offset_3
0077 01d7       |    |		Execute	Vector,Field_Read
0078 e5fe       |    |		Load	0x2,-0x2
0079 027e       | ~  |		Execute	Discrete,Not_Equal
007a 6802       |h   |		Jump_Zero	0x7d
007b e211       |    |		Load	0x1,0x11
007c 0257       | W  |		Execute	Discrete,Raise
007d 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
007e 0000 0000  |    |		.XXX[0x2]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083       |    |		.CONST	0x0083								; Address of begin
0081 0004       |    |		.CONST	0x0004								; Address of exception handler
0082 0001       |    |		.CONST	0x0001								; Number of locals
0083			BODY_0080:
0083			INIT_0080:
0083 00cf       |    |		Action	Mark_Auxiliary
0084 00db       |    |		Load_Top	At_Offset_3
0085 01da       |    |		Execute	Vector,Bounds
0086 0264       | d  |		Execute	Discrete,Below_Bound
0087 700f       |p   |		Jump_Nonzero	0x97
0088 00d8       |    |		Load_Top	At_Offset_0
0089 e5ff       |    |		Load	0x2,-0x1
008a 01d7       |    |		Execute	Vector,Field_Read
008b 0e20       |    |		Execute_Immediate	Not_Equal,0x20
008c 6808       |h   |		Jump_Zero	0x95
008d e5ff       |    |		Load	0x2,-0x1
008e 01dd       |    |		Execute	Vector,First
008f 00d9       |    |		Load_Top	At_Offset_1
0090 e5ff       |    |		Load	0x2,-0x1
0091 01cf       |    |		Execute	Vector,Slice_Read
0092 0335       | 5  |		Declare_Variable	Array,Duplicate
0093 00cd       |    |		Action	Spare6_Action
0094 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0095 00c8       |    |		Action	Pop_Auxiliary_Range
0096 37f1       |7   |		Loop_Decreasing	0x88
0097 00ce       |    |		Action	Pop_Auxiliary
0098 00da       |    |		Load_Top	At_Offset_2
0099 0335       | 5  |		Declare_Variable	Array,Duplicate
009a 00cd       |    |		Action	Spare6_Action
009b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
009c 0000 0000  |    |		.BLANK	0000[0x4]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3       |    |		.CONST	0x00a3								; Address of begin
00a1 0004       |    |		.CONST	0x0004								; Address of exception handler
00a2 0001       |    |		.CONST	0x0001								; Number of locals
00a3			BODY_00a0:
00a3			INIT_00a0:
00a3 00cf       |    |		Action	Mark_Auxiliary
00a4 00db       |    |		Load_Top	At_Offset_3
00a5 01d9       |    |		Execute	Vector,Reverse_Bounds
00a6 0263       | c  |		Execute	Discrete,Above_Bound
00a7 700f       |p   |		Jump_Nonzero	0xb7
00a8 00d8       |    |		Load_Top	At_Offset_0
00a9 e5ff       |    |		Load	0x2,-0x1
00aa 01d7       |    |		Execute	Vector,Field_Read
00ab 0e20       |    |		Execute_Immediate	Not_Equal,0x20
00ac 6808       |h   |		Jump_Zero	0xb5
00ad 00d8       |    |		Load_Top	At_Offset_0
00ae e5ff       |    |		Load	0x2,-0x1
00af 01dc       |    |		Execute	Vector,Last
00b0 e5ff       |    |		Load	0x2,-0x1
00b1 01cf       |    |		Execute	Vector,Slice_Read
00b2 0335       | 5  |		Declare_Variable	Array,Duplicate
00b3 00cd       |    |		Action	Spare6_Action
00b4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00b5 00c8       |    |		Action	Pop_Auxiliary_Range
00b6 3ff1       |?   |		Loop_Increasing	0xa8
00b7 00ce       |    |		Action	Pop_Auxiliary
00b8 0831       | 1  |		Execute_Immediate	Raise,0x31
00b9 0000 0000  |    |		.BLANK	0000[0x7]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; Debug Table
00c0 ; --------------------------------------------------------------------------------------
00c0 0004 0009  |    |		.DEBUG4	0x0004,0x0009,0x68ed,0x0000,0x0001,0x0006
00c6 000b 00de  |    |		.DBG4T	0x000b,0x00de,0x8000,0x0000
00ca 0019 00e5  |    |		.DBG4T	0x0019,0x00e5,0x8000,0x0000
00ce 002b 00eb  | +  |		.DBG4T	0x002b,0x00eb,0x0001,0x0000
00d2 0063 00f3  | c  |		.DBG4T	0x0063,0x00f3,0x0001,0x0000
00d6 0083 00fb  |    |		.DBG4T	0x0083,0x00fb,0x0002,0x0000
00da 00a3 0101  |    |		.DBG4T	0x00a3,0x0101,0x0002,0x0000
00de ; --------------------------------------------------------------------------------------
00de ; Debug chain
00de ; --------------------------------------------------------------------------------------
00de 0005 0000  |    |		.DBGLEN	0x0005,0x0000
00e0 000b 000d  |    |		.DBGLNO	0x000b,0x000d,0x000f,0x0011,0x0013
00e5 ; --------------------------------------------------------------------------------------
00e5 ; Debug chain
00e5 ; --------------------------------------------------------------------------------------
00e5 0004 0000  |    |		.DBGLEN	0x0004,0x0000
00e7 0019 001b  |    |		.DBGLNO	0x0019,0x001b,0x001d,0x001f
00eb ; --------------------------------------------------------------------------------------
00eb ; Debug chain
00eb ; --------------------------------------------------------------------------------------
00eb 0000 0006  |    |		.DBGLEN	0x0000,0x0006
00ed 002b 0031  | + 1|		.DBGLNO	0x002b,0x0031,0x0034,0x003f,0x004d,0x0052
00f3 ; --------------------------------------------------------------------------------------
00f3 ; Debug chain
00f3 ; --------------------------------------------------------------------------------------
00f3 0000 0006  |    |		.DBGLEN	0x0000,0x0006
00f5 0064 0068  | d h|		.DBGLNO	0x0064,0x0068,0x006e,0x0070,0x0075,0x007b
00fb ; --------------------------------------------------------------------------------------
00fb ; Debug chain
00fb ; --------------------------------------------------------------------------------------
00fb 0000 0004  |    |		.DBGLEN	0x0000,0x0004
00fd 0084 0088  |    |		.DBGLNO	0x0084,0x0088,0x008d,0x0098
0101 ; --------------------------------------------------------------------------------------
0101 ; Debug chain
0101 ; --------------------------------------------------------------------------------------
0101 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0103 00a4 00a8  |    |		.DBGLNO	0x00a4,0x00a8,0x00ad
0106 0000 0000  |    |		.BLANK	0000[0xfa]