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

⟦5741c5655⟧

    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 00d0       |    |		.CONST	0x00d0								; 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 0064       | d  |		.CONST	0x0064								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0011       |    |		.CONST	0x0011								; Number of locals
000b			INIT_0008:
000b 029a 006b  |   k|		Declare_Subprogram	INIT_0068,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0 = .DEBUG	0x000b,0x00fa,0x8000,0x0000,0x0035,0x19b4,0x0000,0x0005
													; Debug Table 0x0.0x0 = 0xb,0xffff
000d 029a 00a3  |    |		Declare_Subprogram	INIT_00a0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x1 = 0xd,0xfffe
000f 029a 00c3  |    |		Declare_Subprogram	INIT_00c0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x2 = 0xf,0xfffd
0011 00bf       |    |		Action	Accept_Activation
0012 4800       |H   |		Short_Literal	0x0							; Debug Table 0x1 = .DEBUG	0x0012,0x0102,0x8000,0x0000,0x0035,0x19c4,0x0000,0x0005
													; Debug Table 0x1.0x0 = 0x12,0xffff
0013 480f       |H   |		Short_Literal	0xf
0014 00e8       |    |		Load_Encached	Character_Cache
0015 02a0       |    |		Declare_Subprogram	Null_Subprogram
0016 4801       |H   |		Short_Literal	0x1
0017 035d       | ]  |		Declare_Type	Array,Defined
0018 00d8       |    |		Load_Top	At_Offset_0
0019 0337       | 7  |		Declare_Variable	Array
001a 00d8       |    |		Load_Top	At_Offset_0
001b 0337       | 7  |		Declare_Variable	Array
001c 4830       |H0  |		Short_Literal	0x30
001d 4800       |H   |		Short_Literal	0x0
001e 00da       |    |		Load_Top	At_Offset_2
001f 01d6       |    |		Execute	Vector,Field_Write
0020 4831       |H1  |		Short_Literal	0x31
0021 4801       |H   |		Short_Literal	0x1
0022 00da       |    |		Load_Top	At_Offset_2
0023 01d6       |    |		Execute	Vector,Field_Write
0024 4832       |H2  |		Short_Literal	0x32
0025 4802       |H   |		Short_Literal	0x2
0026 00da       |    |		Load_Top	At_Offset_2
0027 01d6       |    |		Execute	Vector,Field_Write
0028 4833       |H3  |		Short_Literal	0x33
0029 4803       |H   |		Short_Literal	0x3
002a 00da       |    |		Load_Top	At_Offset_2
002b 01d6       |    |		Execute	Vector,Field_Write
002c 4834       |H4  |		Short_Literal	0x34
002d 4804       |H   |		Short_Literal	0x4
002e 00da       |    |		Load_Top	At_Offset_2
002f 01d6       |    |		Execute	Vector,Field_Write
0030 4835       |H5  |		Short_Literal	0x35
0031 4805       |H   |		Short_Literal	0x5
0032 00da       |    |		Load_Top	At_Offset_2
0033 01d6       |    |		Execute	Vector,Field_Write
0034 4836       |H6  |		Short_Literal	0x36
0035 4806       |H   |		Short_Literal	0x6
0036 00da       |    |		Load_Top	At_Offset_2
0037 01d6       |    |		Execute	Vector,Field_Write
0038 4837       |H7  |		Short_Literal	0x37
0039 4807       |H   |		Short_Literal	0x7
003a 00da       |    |		Load_Top	At_Offset_2
003b 01d6       |    |		Execute	Vector,Field_Write
003c 4838       |H8  |		Short_Literal	0x38
003d 4808       |H   |		Short_Literal	0x8
003e 00da       |    |		Load_Top	At_Offset_2
003f 01d6       |    |		Execute	Vector,Field_Write
0040 4839       |H9  |		Short_Literal	0x39
0041 4809       |H   |		Short_Literal	0x9
0042 00da       |    |		Load_Top	At_Offset_2
0043 01d6       |    |		Execute	Vector,Field_Write
0044 4841       |HA  |		Short_Literal	0x41
0045 480a       |H   |		Short_Literal	0xa
0046 00da       |    |		Load_Top	At_Offset_2
0047 01d6       |    |		Execute	Vector,Field_Write
0048 4842       |HB  |		Short_Literal	0x42
0049 480b       |H   |		Short_Literal	0xb
004a 00da       |    |		Load_Top	At_Offset_2
004b 01d6       |    |		Execute	Vector,Field_Write
004c 4843       |HC  |		Short_Literal	0x43
004d 480c       |H   |		Short_Literal	0xc
004e 00da       |    |		Load_Top	At_Offset_2
004f 01d6       |    |		Execute	Vector,Field_Write
0050 4844       |HD  |		Short_Literal	0x44
0051 480d       |H   |		Short_Literal	0xd
0052 00da       |    |		Load_Top	At_Offset_2
0053 01d6       |    |		Execute	Vector,Field_Write
0054 4845       |HE  |		Short_Literal	0x45
0055 480e       |H   |		Short_Literal	0xe
0056 00da       |    |		Load_Top	At_Offset_2
0057 01d6       |    |		Execute	Vector,Field_Write
0058 4846       |HF  |		Short_Literal	0x46
0059 480f       |H   |		Short_Literal	0xf
005a 00da       |    |		Load_Top	At_Offset_2
005b 01d6       |    |		Execute	Vector,Field_Write
005c 00d9       |    |		Load_Top	At_Offset_1
005d 01d4       |    |		Execute	Vector,Structure_Write
005e 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd				; Debug Table 0x1.0x1 = 0x5e,0xfffe
005f 00c7       |    |		Action	Elaborate_Subprogram
0060 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe				; Debug Table 0x1.0x2 = 0x60,0xfffd
0061 00c7       |    |		Action	Elaborate_Subprogram
0062 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf				; Debug Table 0x1.0x3 = 0x62,0xfffc
0063 00c7       |    |		Action	Elaborate_Subprogram
0064			BODY_0008:
0064 00bc       |    |		Action	Signal_Activated
0065 00bb       |    |		Action	Signal_Completion
0066 0000 0000  |    |		.XXX[0x2]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 007f       |    |		.CONST	0x007f								; Address of begin
0069 0004       |    |		.CONST	0x0004								; Address of exception handler
006a 0002       |    |		.CONST	0x0002								; Number of locals
006b			INIT_0068:
006b 4801       |H   |		Short_Literal	0x1							; Debug Table 0x2 = .DEBUG	0x006b,0x010c,0x0002,0x0000,0x0035,0x19b4,0x0000,0x0006
													; Debug Table 0x2.0x0 = 0x6b,0xffff
006c e5fe       |    |		Load	0x2,-0x2
006d 00e9       |    |		Load_Encached	String_Cache
006e 0334       | 4  |		Declare_Variable	Array,With_Constraint
006f 00d8       |    |		Load_Top	At_Offset_0
0070 01da       |    |		Execute	Vector,Bounds
0071 00e9       |    |		Load_Encached	String_Cache
0072 035b       | [  |		Declare_Type	Array,Constrained
0073 0337       | 7  |		Declare_Variable	Array
0074 00d8       |    |		Load_Top	At_Offset_0
0075 01d9       |    |		Execute	Vector,Reverse_Bounds
0076 0263       | c  |		Execute	Discrete,Above_Bound
0077 7005       |p   |		Jump_Nonzero	0x7d
0078 4820       |H   |		Short_Literal	0x20
0079 00d9       |    |		Load_Top	At_Offset_1
007a e403       |    |		Load	0x2,0x3
007b 01d6       |    |		Execute	Vector,Field_Write
007c 3ffb       |?   |		Loop_Increasing	0x78
007d 00d9       |    |		Load_Top	At_Offset_1
007e 01d4       |    |		Execute	Vector,Structure_Write
007f			BODY_0068:
007f 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x2.0x1 = 0x7f,0x1
0080 01db       |    |		Execute	Vector,Length
0081 e5fe       |    |		Load	0x2,-0x2
0082 027b       | {  |		Execute	Discrete,Greater_Equal
0083 680c       |h   |		Jump_Zero	0x90
0084 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x2.0x2 = 0x84,0x2
0085 01dd       |    |		Execute	Vector,First
0086 e5ff       |    |		Load	0x2,-0x1
0087 01dd       |    |		Execute	Vector,First
0088 e5fe       |    |		Load	0x2,-0x2
0089 0273       | s  |		Execute	Discrete,Plus
008a 0aff       |    |		Execute_Immediate	Plus,-0x1
008b 0248       | H  |		Execute	Discrete,Check_In_Integer
008c e5ff       |    |		Load	0x2,-0x1
008d 01cf       |    |		Execute	Vector,Slice_Read
008e 0335       | 5  |		Declare_Variable	Array,Duplicate
008f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0090 4801       |H   |		Short_Literal	0x1							; Debug Table 0x2.0x3 = 0x90,0x3
0091 e5fe       |    |		Load	0x2,-0x2
0092 e5ff       |    |		Load	0x2,-0x1
0093 01db       |    |		Execute	Vector,Length
0094 0272       | r  |		Execute	Discrete,Minus
0095 0248       | H  |		Execute	Discrete,Check_In_Integer
0096 00da       |    |		Load_Top	At_Offset_2
0097 01cf       |    |		Execute	Vector,Slice_Read
0098 e5ff       |    |		Load	0x2,-0x1
0099 01cc       |    |		Execute	Vector,Catenate
009a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
009b 0000 0000  |    |		.BLANK	0000[0x5]
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						; Debug Table 0x3 = .DEBUG	0x00a3,0x0116,0x0002,0x0000,0x0035,0x19b4,0x0000,0x0013
													; Debug Table 0x3.0x0 = 0xa3,0x1
00a4 09fc       |    |		Execute_Immediate	Binary_Scale,-0x4
00a5 e211       |    |		Load	0x1,0x11
00a6 01d7       |    |		Execute	Vector,Field_Read
00a7 00db       |    |		Load_Top	At_Offset_3
00a8 480f       |H   |		Short_Literal	0xf
00a9 0279       | y  |		Execute	Discrete,And
00aa e211       |    |		Load	0x1,0x11
00ab 01d7       |    |		Execute	Vector,Field_Read
00ac 4801       |H   |		Short_Literal	0x1
00ad 4802       |H   |		Short_Literal	0x2
00ae 00e9       |    |		Load_Encached	String_Cache
00af 0334       | 4  |		Declare_Variable	Array,With_Constraint
00b0 00da       |    |		Load_Top	At_Offset_2
00b1 4801       |H   |		Short_Literal	0x1
00b2 00da       |    |		Load_Top	At_Offset_2
00b3 01d6       |    |		Execute	Vector,Field_Write
00b4 00d9       |    |		Load_Top	At_Offset_1
00b5 4802       |H   |		Short_Literal	0x2
00b6 00da       |    |		Load_Top	At_Offset_2
00b7 01d6       |    |		Execute	Vector,Field_Write
00b8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00b9 0000 0000  |    |		.BLANK	0000[0x7]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3       |    |		.CONST	0x00c3								; Address of begin
00c1 0004       |    |		.CONST	0x0004								; Address of exception handler
00c2 0001       |    |		.CONST	0x0001								; Number of locals
00c3			BODY_00c0:
00c3			INIT_00c0:
00c3 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x4 = .DEBUG	0x00c3,0x011a,0x0002,0x0000,0x0035,0x19b4,0x0000,0x001e
													; Debug Table 0x4.0x0 = 0xc3,0x1
00c4 e001       |    |		Load	0x0,0x1
00c5 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
00c6 025b       | [  |		Execute	Discrete,Check_In_Type
00c7 820e       |    |		Call	0x1,0xe
00c8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00c9 0000 0000  |    |		.BLANK	0000[0x7]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; Debug Table
00d0 ; --------------------------------------------------------------------------------------
00d0 0003 0005  |    |		.CONST	0x0003,0x0005
00d2 000b 00fa  |    |		.DEBUG	0x000b,0x00fa,0x8000,0x0000,0x0035,0x19b4,0x0000,0x0005
00da 0012 0102  |    |		.DEBUG	0x0012,0x0102,0x8000,0x0000,0x0035,0x19c4,0x0000,0x0005
00e2 006b 010c  | k  |		.DEBUG	0x006b,0x010c,0x0002,0x0000,0x0035,0x19b4,0x0000,0x0006
00ea 00a3 0116  |    |		.DEBUG	0x00a3,0x0116,0x0002,0x0000,0x0035,0x19b4,0x0000,0x0013
00f2 00c3 011a  |    |		.DEBUG	0x00c3,0x011a,0x0002,0x0000,0x0035,0x19b4,0x0000,0x001e
00fa ; --------------------------------------------------------------------------------------
00fa ; Debug3 Subtable 0x0
00fa ; --------------------------------------------------------------------------------------
00fa 0003 0000  |    |		.DBG3TAB	0x0003,0x0000
00fc 000b ffff  |    |		.CONST	0x000b,0xffff
00fe 000d fffe  |    |		.CONST	0x000d,0xfffe
0100 000f fffd  |    |		.CONST	0x000f,0xfffd
0102 ; --------------------------------------------------------------------------------------
0102 ; Debug3 Subtable 0x1
0102 ; --------------------------------------------------------------------------------------
0102 0004 0000  |    |		.DBG3TAB	0x0004,0x0000
0104 0012 ffff  |    |		.CONST	0x0012,0xffff
0106 005e fffe  | ^  |		.CONST	0x005e,0xfffe
0108 0060 fffd  | `  |		.CONST	0x0060,0xfffd
010a 0062 fffc  | b  |		.CONST	0x0062,0xfffc
010c ; --------------------------------------------------------------------------------------
010c ; Debug3 Subtable 0x2
010c ; --------------------------------------------------------------------------------------
010c 0001 0003  |    |		.DBG3TAB	0x0001,0x0003
010e 006b ffff  | k  |		.CONST	0x006b,0xffff
0110 007f 0001  |    |		.CONST	0x007f,0x0001
0112 0084 0002  |    |		.CONST	0x0084,0x0002
0114 0090 0003  |    |		.CONST	0x0090,0x0003
0116 ; --------------------------------------------------------------------------------------
0116 ; Debug3 Subtable 0x3
0116 ; --------------------------------------------------------------------------------------
0116 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0118 00a3 0001  |    |		.CONST	0x00a3,0x0001
011a ; --------------------------------------------------------------------------------------
011a ; Debug3 Subtable 0x4
011a ; --------------------------------------------------------------------------------------
011a 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
011c 00c3 0001  |    |		.CONST	0x00c3,0x0001
011e 0000 0000  |    |		.BLANK	0000[0xe2]