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

⟦32e3628df⟧

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

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 5800       |X   |		.CONST	0x5800								; 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 8000       |    |		.CONST	0x8000								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0022       | "  |		.CONST	0x0022								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0014       |    |		.CONST	0x0014								; Number of locals
000b			INIT_0008:
000b 029a 002b  |   +|		Declare_Subprogram	INIT_0028,For_Outer_Call,Visible,Unelaborated
000d 029a 003b  |   ;|		Declare_Subprogram	INIT_0038,For_Outer_Call,Visible,Unelaborated
000f 029a 004b  |   K|		Declare_Subprogram	INIT_0048,For_Outer_Call,Visible,Unelaborated
0011 00bf       |    |		Action	Accept_Activation
0012 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0013 00c7       |    |		Action	Elaborate_Subprogram
0014 a001       |    |		Store_Unchecked	0x0,0x1
0015 00c6       |    |		Action	Check_Subprogram_Elaborated
0016 e002       |    |		Load	0x0,0x2
0017 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0018 e002       |    |		Load	0x0,0x2
0019 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
001a e003       |    |		Load	0x0,0x3
001b e004       |    |		Load	0x0,0x4
001c 4800       |H   |		Short_Literal	0x0
001d 0007       |    |		Action	Break_Optional
001e 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
001f 00c7       |    |		Action	Elaborate_Subprogram
0020 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0021 00c7       |    |		Action	Elaborate_Subprogram
0022			BODY_0008:
0022 00bc       |    |		Action	Signal_Activated
0023 00bb       |    |		Action	Signal_Completion
0024 0000 0000  |    |		.BLANK	0000[0x4]
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 00da       |    |		Load_Top	At_Offset_2
002c e002       |    |		Load	0x0,0x2
002d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
002e 1c08       |    |		Execute_Immediate	Run_Utility,0x8
002f e002       |    |		Load	0x0,0x2
0030 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0031 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0032 00d8       |    |		Load_Top	At_Offset_0
0033 0227       | '  |		Execute	Access,All_Reference
0034 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0035 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0036 0000 0000  |    |		.XXX[0x2]
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 003b       | ;  |		.CONST	0x003b								; Address of begin
0039 0004       |    |		.CONST	0x0004								; Address of exception handler
003a 0001       |    |		.CONST	0x0001								; Number of locals
003b			BODY_0038:
003b			INIT_0038:
003b 00da       |    |		Load_Top	At_Offset_2
003c e210       |    |		Load	0x1,0x10
003d e211       |    |		Load	0x1,0x11
003e 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
003f 8001       |    |		Call	0x0,0x1
0040 003b       | ;  |		Store_Top	Access,At_Offset_3
0041 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0042 0000 0000  |    |		.BLANK	0000[0x6]
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 004d       | M  |		.CONST	0x004d								; Address of begin
0049 0004       |    |		.CONST	0x0004								; Address of exception handler
004a 0002       |    |		.CONST	0x0002								; Number of locals
004b			INIT_0048:
004b e002       |    |		Load	0x0,0x2
004c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
004d			BODY_0048:
004d e5fe       |    |		Load	0x2,-0x2
004e 0227       | '  |		Execute	Access,All_Reference
004f 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0050 e5ff       |    |		Load	0x2,-0x1
0051 027f       |    |		Execute	Discrete,Equal
0052 6801       |h   |		Jump_Zero	0x54
0053 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0054 00db       |    |		Load_Top	At_Offset_3
0055 e002       |    |		Load	0x0,0x2
0056 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0057 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0058 e002       |    |		Load	0x0,0x2
0059 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
005a 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
005b 00d8       |    |		Load_Top	At_Offset_0
005c 0227       | '  |		Execute	Access,All_Reference
005d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
005e 0039       | 9  |		Store_Top	Access,At_Offset_1
005f e5fe       |    |		Load	0x2,-0x2
0060 0227       | '  |		Execute	Access,All_Reference
0061 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0062 e5ff       |    |		Load	0x2,-0x1
0063 027a       | z  |		Execute	Discrete,Less_Equal
0064 6817       |h   |		Jump_Zero	0x7c
0065 e5fe       |    |		Load	0x2,-0x2
0066 0227       | '  |		Execute	Access,All_Reference
0067 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0068 00d9       |    |		Load_Top	At_Offset_1
0069 0227       | '  |		Execute	Access,All_Reference
006a 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
006b 4801       |H   |		Short_Literal	0x1
006c e5fe       |    |		Load	0x2,-0x2
006d 0227       | '  |		Execute	Access,All_Reference
006e 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
006f e5fe       |    |		Load	0x2,-0x2
0070 0227       | '  |		Execute	Access,All_Reference
0071 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0072 01cf       |    |		Execute	Vector,Slice_Read
0073 4801       |H   |		Short_Literal	0x1
0074 e5fe       |    |		Load	0x2,-0x2
0075 0227       | '  |		Execute	Access,All_Reference
0076 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0077 00db       |    |		Load_Top	At_Offset_3
0078 0229       | )  |		Execute	Access,All_Read
0079 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
007a 01ce       |    |		Execute	Vector,Slice_Write
007b 7810       |x   |		Jump	0x8c
007c 00db       |    |		Load_Top	At_Offset_3
007d 00d9       |    |		Load_Top	At_Offset_1
007e 0227       | '  |		Execute	Access,All_Reference
007f 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0080 4801       |H   |		Short_Literal	0x1
0081 e5ff       |    |		Load	0x2,-0x1
0082 e5fe       |    |		Load	0x2,-0x2
0083 0227       | '  |		Execute	Access,All_Reference
0084 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0085 01cf       |    |		Execute	Vector,Slice_Read
0086 4801       |H   |		Short_Literal	0x1
0087 e5ff       |    |		Load	0x2,-0x1
0088 00db       |    |		Load_Top	At_Offset_3
0089 0229       | )  |		Execute	Access,All_Read
008a 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
008b 01ce       |    |		Execute	Vector,Slice_Write
008c e5fe       |    |		Load	0x2,-0x2
008d e210       |    |		Load	0x1,0x10
008e e211       |    |		Load	0x1,0x11
008f 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0090 8001       |    |		Call	0x0,0x1
0091 c5fe       |    |		Store	0x2,-0x2
0092 00d8       |    |		Load_Top	At_Offset_0
0093 a5fe       |    |		Store_Unchecked	0x2,-0x2
0094 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0095 0000 0000  |    |		.XXX[0x3]
0097 0000       |    |
0098 ; --------------------------------------------------------------------------------------
0098 ; Debug Table
0098 ; --------------------------------------------------------------------------------------
0098 0004 0004  |    |		.DEBUG4	0x0004,0x0004,0xa8ea,0x0000,0x0001,0x0000
009e 3003 00c5  |0   |		.XXX[0x162]
00a0 3005 00c6  |0   |
00a2 3007 7c01  |0 | |
00a4 300e 00c6  |0   |
00a6 3010 00c7  |0   |
00a8 3012 7c01  |0 | |
00aa 3019 00c7  |0   |
00ac 301b 00ca  |0   |
00ae 301c 7c01  |0 | |
00b0 301f 00ca  |0   |
00b2 3021 00cb  |0!  |
00b4 3023 7c01  |0#| |
00b6 302a 00cb  |0*  |
00b8 302c 00cc  |0,  |
00ba 302d 7c01  |0-| |
00bc 3030 00cc  |00  |
00be 3032 00cd  |02  |
00c0 3033 7c01  |03| |
00c2 3036 00cd  |06  |
00c4 3038 00ce  |08  |
00c6 3039 7c01  |09| |
00c8 304c 7c07  |0L| |
00ca 304e 7c02  |0N| |
00cc 3053 7c03  |0S| |
00ce 3058 7c04  |0X| |
00d0 305d 7c05  |0]| |
00d2 3062 7c06  |0b| |
00d4 3067 00ce  |0g  |
00d6 306a 00d2  |0j  |
00d8 306c 00d3  |0l  |
00da 306e 7c01  |0n| |
00dc 3070 7c02  |0p| |
00de 3071 7c03  |0q| |
00e0 3072 7c04  |0r| |
00e2 3073 00d3  |0s  |
00e4 0002 001b  |    |
00e6 308b ffff  |0   |
00e8 308c fffe  |0   |
00ea 308d 0001  |0   |
00ec 3090 0003  |0   |
00ee 3092 0401  |0   |
00f0 3094 0402  |0   |
00f2 3096 0403  |0   |
00f4 309a 0404  |0   |
00f6 309e 0405  |0   |
00f8 30a0 0801  |0   |
00fa 30a2 0802  |0   |
00fc 30a3 0803  |0   |
00fe 30a4 0804  |0   |
0100 30a6 0405  |0   |
0102 30b0 0c01  |0   |
0104 30b2 0c02  |0   |
0106 30b3 0c03  |0   |
0108 30b4 0c04  |0   |
010a 30b6 0804  |0   |
010c 30c4 0003  |0   |
010e 30c5 0004  |0   |
0110 30c6 1001  |0   |
0112 30c8 1002  |0   |
0114 30ca 1003  |0   |
0116 30cd 0004  |0   |
0118 30ce 0005  |0   |
011a 30d0 0002  |0   |
011c 30d1 1401  |0   |
011e 30d3 0002  |0   |
0120 0001 001a  |    |
0122 30db ffff  |0   |
0124 30dc 0001  |0   |
0126 30df 0002  |0   |
0128 30e2 0003  |0   |
012a 30e8 0004  |0   |
012c 30ec 0005  |0   |
012e 30ee 0401  |0   |
0130 30f0 0402  |0   |
0132 30f2 0403  |0   |
0134 30f6 0404  |0   |
0136 30fa 0405  |0   |
0138 30fc 0801  |0   |
013a 30fe 0802  |0   |
013c 30ff 0803  |0   |
013e 3100 0804  |1   |
0140 3102 0405  |1   |
0142 310c 0c01  |1   |
0144 310e 0c02  |1   |
0146 310f 0c03  |1   |
0148 3110 0c04  |1   |
014a 3112 0804  |1   |
014c 3120 0005  |1   |
014e 3121 0006  |1!  |
0150 3122 1001  |1"  |
0152 3124 1002  |1$  |
0154 3126 1003  |1&  |
0156 3129 0006  |1)  |
0158 0001 001a  |    |
015a 3133 ffff  |13  |
015c 3134 0001  |14  |
015e 3137 0002  |17  |
0160 313b 0003  |1;  |
0162 3141 0004  |1A  |
0164 3145 0005  |1E  |
0166 3148 0401  |1H  |
0168 314a 0402  |1J  |
016a 314c 0403  |1L  |
016c 3150 0404  |1P  |
016e 3154 0405  |1T  |
0170 3156 0801  |1V  |
0172 3158 0802  |1X  |
0174 3159 0803  |1Y  |
0176 315a 0804  |1Z  |
0178 315c 0405  |1\  |
017a 3166 0c01  |1f  |
017c 3168 0c02  |1h  |
017e 3169 0c03  |1i  |
0180 316a 0c04  |1j  |
0182 316c 0804  |1l  |
0184 317a 0005  |1z  |
0186 317b 0006  |1{  |
0188 317c 1001  |1|  |
018a 317e 1002  |1~  |
018c 3180 1003  |1   |
018e 3183 0006  |1   |
0190 0002 0018  |    |
0192 318b ffff  |1   |
0194 318c fffe  |1   |
0196 318d 0001  |1   |
0198 318e 0401  |1   |
019a 3190 0402  |1   |
019c 3191 0403  |1   |
019e 3192 0404  |1   |
01a0 3193 0001  |1   |
01a2 3195 0002  |1   |
01a4 3197 0003  |1   |
01a6 3199 0004  |1   |
01a8 319a 0801  |1   |
01aa 319b 0004  |1   |
01ac 319c 0005  |1   |
01ae 319d 0006  |1   |
01b0 319e 0c01  |1   |
01b2 31a0 0c02  |1   |
01b4 31a1 0c03  |1   |
01b6 31a2 0c04  |1   |
01b8 31a3 0006  |1   |
01ba 3252 0007  |2R  |
01bc 3254 0008  |2T  |
01be 3256 0009  |2V  |
01c0 3258 000a  |2X  |
01c2 325a 1001  |2Z  |
01c4 3261 000a  |2a  |
01c6 0002 0010  |    |
01c8 326b ffff  |2k  |
01ca 326c fffe  |2l  |
01cc 326d 0001  |2m  |
01ce 326f 0002  |2o  |
01d0 3271 0003  |2q  |
01d2 3272 0004  |2r  |
01d4 3273 0401  |2s  |
01d6 3275 0402  |2u  |
01d8 3276 0403  |2v  |
01da 3277 0404  |2w  |
01dc 3278 0004  |2x  |
01de 3280 0009  |2   |
01e0 3282 0005  |2   |
01e2 3284 0006  |2   |
01e4 3286 0007  |2   |
01e6 3288 0008  |2   |
01e8 328a 0801  |2   |
01ea 3291 0008  |2   |
01ec 0006 000d  |    |
01ee 329b ffff  |2   |
01f0 32a0 fffe  |2   |
01f2 32a3 fffd  |2   |
01f4 32a5 0401  |2   |
01f6 32ac fffd  |2   |
01f8 32ad 0801  |2   |
01fa 32b2 fffd  |2   |
01fc 32b3 0001  |2   |
01fe 32c9 0002  |2   |