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

⟦fb7fa199f⟧

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

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0148       | H  |		.CONST	0x0148								; 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 8000       |    |		.CONST	0x8000								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 005e       | ^  |		.CONST	0x005e								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 001d       |    |		.CONST	0x001d								; Number of locals
000b			INIT_0008:
000b 029a 0063  |   c|		Declare_Subprogram	INIT_0060,For_Outer_Call,Visible,Unelaborated
000d 029a 0073  |   s|		Declare_Subprogram	INIT_0070,For_Outer_Call,Visible,Unelaborated
000f 029a 00a3  |    |		Declare_Subprogram	INIT_00a0,For_Outer_Call,Visible,Unelaborated
0011 029a 00b3  |    |		Declare_Subprogram	INIT_00b0,For_Outer_Call,Visible,Unelaborated
0013 029a 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Outer_Call,Visible,Unelaborated
0015 029a 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Outer_Call,Visible,Unelaborated
0017 029a 00db  |    |		Declare_Subprogram	INIT_00d8,For_Outer_Call,Visible,Unelaborated
0019 029a 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Outer_Call,Visible,Unelaborated
001b 029a 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Outer_Call,Visible,Unelaborated
001d 029a 010b  |    |		Declare_Subprogram	INIT_0108,For_Outer_Call,Visible,Unelaborated
001f 029a 011b  |    |		Declare_Subprogram	INIT_0118,For_Outer_Call,Visible,Unelaborated
0021 029a 012b  |   +|		Declare_Subprogram	INIT_0128,For_Outer_Call,Visible,Unelaborated
0023 029a 013b  |   ;|		Declare_Subprogram	INIT_0138,For_Outer_Call,Visible,Unelaborated
0025 029a 0143  |   C|		Declare_Subprogram	INIT_0140,For_Outer_Call,Visible,Unelaborated
0027 0093 0000  |    |		push_full_address	0x0
0029 603e       |`>  |		Indirect_Literal	Discrete,0x68,{0x80000000, 0x00010000}
002a 0273       | s  |		Execute	Discrete,Plus
002b e002       |    |		Load	0x0,0x2
002c 0273       | s  |		Execute	Discrete,Plus
002d e003       |    |		Load	0x0,0x3
002e 0273       | s  |		Execute	Discrete,Plus
002f e004       |    |		Load	0x0,0x4
0030 a005       |    |		Store_Unchecked	0x0,0x5
0031 a006       |    |		Store_Unchecked	0x0,0x6
0032 a007       |    |		Store_Unchecked	0x0,0x7
0033 00e0       |    |		Load_Encached	Standard_Cache
0034 1921       | !  |		Execute	Package,Field_Reference,Field_Number 0x21
0035 e008       |    |		Load	0x0,0x8
0036 0386       |    |		Declare_Variable	Package,Visible
0037 00d8       |    |		Load_Top	At_Offset_0
0038 020f       |    |		Execute	Module,Activate
0039 e009       |    |		Load	0x0,0x9
003a 00d9       |    |		Load_Top	At_Offset_1
003b 0098       |    |		Execute	Package,Field_Read_Dynamic
003c 0129       | )  |		Execute	Any,Make_Visible
003d e00a       |    |		Load	0x0,0xa
003e 00da       |    |		Load_Top	At_Offset_2
003f 0098       |    |		Execute	Package,Field_Read_Dynamic
0040 0129       | )  |		Execute	Any,Make_Visible
0041 00bf       |    |		Action	Accept_Activation
0042 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0043 00c7       |    |		Action	Elaborate_Subprogram
0044 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0045 00c7       |    |		Action	Elaborate_Subprogram
0046 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0047 00c7       |    |		Action	Elaborate_Subprogram
0048 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0049 00c7       |    |		Action	Elaborate_Subprogram
004a 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
004b 00c7       |    |		Action	Elaborate_Subprogram
004c 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
004d 00c7       |    |		Action	Elaborate_Subprogram
004e 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
004f 00c7       |    |		Action	Elaborate_Subprogram
0050 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0051 00c7       |    |		Action	Elaborate_Subprogram
0052 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0053 00c7       |    |		Action	Elaborate_Subprogram
0054 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0055 00c7       |    |		Action	Elaborate_Subprogram
0056 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0057 00c7       |    |		Action	Elaborate_Subprogram
0058 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0059 00c7       |    |		Action	Elaborate_Subprogram
005a 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
005b 00c7       |    |		Action	Elaborate_Subprogram
005c 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
005d 00c7       |    |		Action	Elaborate_Subprogram
005e			BODY_0008:
005e 00bc       |    |		Action	Signal_Activated
005f 00bb       |    |		Action	Signal_Completion
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
0064 e00b       |    |		Load	0x0,0xb
0065 e21b       |    |		Load	0x1,0x1b
0066 0096       |    |		Execute	Package,Entry
0067 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0068 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
006c 0000 0000  |    |		.BLANK	0000[0x4]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0082       |    |		.CONST	0x0082								; Address of begin
0071 0004       |    |		.CONST	0x0004								; Address of exception handler
0072 0003       |    |		.CONST	0x0003								; Number of locals
0073			INIT_0070:
0073 e00c       |    |		Load	0x0,0xc
0074 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0075 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0076 02c7       |    |		Declare_Variable	Any
0077 4801       |H   |		Short_Literal	0x1
0078 e00c       |    |		Load	0x0,0xc
0079 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
007a 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
007b e5ff       |    |		Load	0x2,-0x1
007c e00c       |    |		Load	0x0,0xc
007d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
007e 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
007f a402       |    |		Store_Unchecked	0x2,0x2
0080 e21c       |    |		Load	0x1,0x1c
0081 0007       |    |		Action	Break_Optional
0082			BODY_0070:
0082 e5fe       |    |		Load	0x2,-0x2
0083 820d       |    |		Call	0x1,0xd
0084 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0085 00cf       |    |		Action	Mark_Auxiliary
0086 00da       |    |		Load_Top	At_Offset_2
0087 e00c       |    |		Load	0x0,0xc
0088 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0089 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
008a 7011       |p   |		Jump_Nonzero	0x9c
008b 00d9       |    |		Load_Top	At_Offset_1
008c e00d       |    |		Load	0x0,0xd
008d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
008e e402       |    |		Load	0x2,0x2
008f e00c       |    |		Load	0x0,0xc
0090 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0091 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0092 800e       |    |		Call	0x0,0xe
0093 8214       |    |		Call	0x1,0x14
0094 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
0095 00da       |    |		Load_Top	At_Offset_2
0096 e00c       |    |		Load	0x0,0xc
0097 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0098 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0099 c402       |    |		Store	0x2,0x2
009a 00c9       |    |		Action	Pop_Auxiliary_Loop
009b 7fea       |    |		Jump	0x86
009c 00ce       |    |		Action	Pop_Auxiliary
009d 00d8       |    |		Load_Top	At_Offset_0
009e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
009f 0000       |    |		.XXX[0x1]
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 00da       |    |		Load_Top	At_Offset_2
00a4 e009       |    |		Load	0x0,0x9
00a5 e21b       |    |		Load	0x1,0x1b
00a6 0098       |    |		Execute	Package,Field_Read_Dynamic
00a7 0216       |    |		Execute	Heap_Access,Convert
00a8 e00f       |    |		Load	0x0,0xf
00a9 e21b       |    |		Load	0x1,0x1b
00aa 0096       |    |		Execute	Package,Entry
00ab 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
00ac 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00ad 0000 0000  |    |		.XXX[0x3]
00af 0000       |    |
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3       |    |		.CONST	0x00b3								; Address of begin
00b1 0004       |    |		.CONST	0x0004								; Address of exception handler
00b2 0001       |    |		.CONST	0x0001								; Number of locals
00b3			BODY_00b0:
00b3			INIT_00b0:
00b3 00da       |    |		Load_Top	At_Offset_2
00b4 e010       |    |		Load	0x0,0x10
00b5 e21b       |    |		Load	0x1,0x1b
00b6 0096       |    |		Execute	Package,Entry
00b7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb       |    |		.CONST	0x00bb								; Address of begin
00b9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ba 0001       |    |		.CONST	0x0001								; Number of locals
00bb			BODY_00b8:
00bb			INIT_00b8:
00bb 00da       |    |		Load_Top	At_Offset_2
00bc e009       |    |		Load	0x0,0x9
00bd e21b       |    |		Load	0x1,0x1b
00be 0098       |    |		Execute	Package,Field_Read_Dynamic
00bf 0216       |    |		Execute	Heap_Access,Convert
00c0 e011       |    |		Load	0x0,0x11
00c1 e21b       |    |		Load	0x1,0x1b
00c2 0096       |    |		Execute	Package,Entry
00c3 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
00c4 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00c5 0000 0000  |    |		.XXX[0x3]
00c7 0000       |    |
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb       |    |		.CONST	0x00cb								; Address of begin
00c9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ca 0001       |    |		.CONST	0x0001								; Number of locals
00cb			BODY_00c8:
00cb			INIT_00c8:
00cb e5fd       |    |		Load	0x2,-0x3
00cc e009       |    |		Load	0x0,0x9
00cd e21b       |    |		Load	0x1,0x1b
00ce 0098       |    |		Execute	Package,Field_Read_Dynamic
00cf 0216       |    |		Execute	Heap_Access,Convert
00d0 e5fe       |    |		Load	0x2,-0x2
00d1 e5ff       |    |		Load	0x2,-0x1
00d2 e012       |    |		Load	0x0,0x12
00d3 e21b       |    |		Load	0x1,0x1b
00d4 0096       |    |		Execute	Package,Entry
00d5 c5fd       |    |		Store	0x2,-0x3
00d6 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00d7 0000       |    |		.XXX[0x1]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db       |    |		.CONST	0x00db								; Address of begin
00d9 0004       |    |		.CONST	0x0004								; Address of exception handler
00da 0001       |    |		.CONST	0x0001								; Number of locals
00db			BODY_00d8:
00db			INIT_00d8:
00db 00db       |    |		Load_Top	At_Offset_3
00dc 00db       |    |		Load_Top	At_Offset_3
00dd e013       |    |		Load	0x0,0x13
00de e21b       |    |		Load	0x1,0x1b
00df 0096       |    |		Execute	Package,Entry
00e0 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00e1 0000 0000  |    |		.BLANK	0000[0x7]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb       |    |		.CONST	0x00eb								; Address of begin
00e9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ea 0001       |    |		.CONST	0x0001								; Number of locals
00eb			BODY_00e8:
00eb			INIT_00e8:
00eb 00db       |    |		Load_Top	At_Offset_3
00ec e009       |    |		Load	0x0,0x9
00ed e21b       |    |		Load	0x1,0x1b
00ee 0098       |    |		Execute	Package,Field_Read_Dynamic
00ef 0216       |    |		Execute	Heap_Access,Convert
00f0 00db       |    |		Load_Top	At_Offset_3
00f1 e014       |    |		Load	0x0,0x14
00f2 e21b       |    |		Load	0x1,0x1b
00f3 0096       |    |		Execute	Package,Entry
00f4 c5fe       |    |		Store	0x2,-0x2
00f5 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00f6 0000 0000  |    |		.XXX[0x2]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb       |    |		.CONST	0x00fb								; Address of begin
00f9 0004       |    |		.CONST	0x0004								; Address of exception handler
00fa 0001       |    |		.CONST	0x0001								; Number of locals
00fb			BODY_00f8:
00fb			INIT_00f8:
00fb 00db       |    |		Load_Top	At_Offset_3
00fc e009       |    |		Load	0x0,0x9
00fd e21b       |    |		Load	0x1,0x1b
00fe 0098       |    |		Execute	Package,Field_Read_Dynamic
00ff 0216       |    |		Execute	Heap_Access,Convert
0100 00db       |    |		Load_Top	At_Offset_3
0101 e015       |    |		Load	0x0,0x15
0102 e21b       |    |		Load	0x1,0x1b
0103 0096       |    |		Execute	Package,Entry
0104 c5fe       |    |		Store	0x2,-0x2
0105 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0106 0000 0000  |    |		.XXX[0x2]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b       |    |		.CONST	0x010b								; Address of begin
0109 0004       |    |		.CONST	0x0004								; Address of exception handler
010a 0001       |    |		.CONST	0x0001								; Number of locals
010b			BODY_0108:
010b			INIT_0108:
010b 00db       |    |		Load_Top	At_Offset_3
010c e009       |    |		Load	0x0,0x9
010d e21b       |    |		Load	0x1,0x1b
010e 0098       |    |		Execute	Package,Field_Read_Dynamic
010f 0216       |    |		Execute	Heap_Access,Convert
0110 00db       |    |		Load_Top	At_Offset_3
0111 e016       |    |		Load	0x0,0x16
0112 e21b       |    |		Load	0x1,0x1b
0113 0096       |    |		Execute	Package,Entry
0114 c5fe       |    |		Store	0x2,-0x2
0115 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0116 0000 0000  |    |		.XXX[0x2]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b       |    |		.CONST	0x011b								; Address of begin
0119 0004       |    |		.CONST	0x0004								; Address of exception handler
011a 0001       |    |		.CONST	0x0001								; Number of locals
011b			BODY_0118:
011b			INIT_0118:
011b e00a       |    |		Load	0x0,0xa
011c e21b       |    |		Load	0x1,0x1b
011d 0098       |    |		Execute	Package,Field_Read_Dynamic
011e 00db       |    |		Load_Top	At_Offset_3
011f e017       |    |		Load	0x0,0x17
0120 e21b       |    |		Load	0x1,0x1b
0121 0096       |    |		Execute	Package,Entry
0122 c5fe       |    |		Store	0x2,-0x2
0123 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0124 0000 0000  |    |		.BLANK	0000[0x4]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b       | +  |		.CONST	0x012b								; Address of begin
0129 0004       |    |		.CONST	0x0004								; Address of exception handler
012a 0001       |    |		.CONST	0x0001								; Number of locals
012b			BODY_0128:
012b			INIT_0128:
012b 00da       |    |		Load_Top	At_Offset_2
012c e00a       |    |		Load	0x0,0xa
012d e21b       |    |		Load	0x1,0x1b
012e 0098       |    |		Execute	Package,Field_Read_Dynamic
012f 0216       |    |		Execute	Heap_Access,Convert
0130 e018       |    |		Load	0x0,0x18
0131 e21b       |    |		Load	0x1,0x1b
0132 0096       |    |		Execute	Package,Entry
0133 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
0134 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0135 0000 0000  |    |		.XXX[0x3]
0137 0000       |    |
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b       | ;  |		.CONST	0x013b								; Address of begin
0139 0004       |    |		.CONST	0x0004								; Address of exception handler
013a 0001       |    |		.CONST	0x0001								; Number of locals
013b			BODY_0138:
013b			INIT_0138:
013b 00da       |    |		Load_Top	At_Offset_2
013c e019       |    |		Load	0x0,0x19
013d e21b       |    |		Load	0x1,0x1b
013e 0096       |    |		Execute	Package,Entry
013f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143       | C  |		.CONST	0x0143								; Address of begin
0141 0004       |    |		.CONST	0x0004								; Address of exception handler
0142 0001       |    |		.CONST	0x0001								; Number of locals
0143			BODY_0140:
0143			INIT_0140:
0143 00da       |    |		Load_Top	At_Offset_2
0144 e01a       |    |		Load	0x0,0x1a
0145 e21b       |    |		Load	0x1,0x1b
0146 0096       |    |		Execute	Package,Entry
0147 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0148 ; --------------------------------------------------------------------------------------
0148 ; Debug Table
0148 ; --------------------------------------------------------------------------------------
0148 0004 0009  |    |		.DEBUG4	0x0004,0x0009,0x5d6f,0x0000,0x0001,0x0000
014e 0000 0000  |    |		.BLANK	0000[0xb2]