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

⟦4a6ac96a2⟧

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

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 5900       |Y   |		.CONST	0x5900								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0118       |    |		.CONST	0x0118								; 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 0010       |    |		.CONST	0x0010								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0002       |    |		.CONST	0x0002								; Number of locals
000b			INIT_0008:
000b 4801       |H   |		Short_Literal	0x1
000c 4804       |H   |		Short_Literal	0x4
000d 00e9       |    |		Load_Encached	String_Cache
000e 035b       | [  |		Declare_Type	Array,Constrained
000f 0337       | 7  |		Declare_Variable	Array
0010			BODY_0008:
0010 00db       |    |		Load_Top	At_Offset_3
0011 e001       |    |		Load	0x0,0x1
0012 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0013 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0014 00d8       |    |		Load_Top	At_Offset_0
0015 0c09       |    |		Execute_Immediate	Greater_Equal,0x9
0016 7022       |p"  |		Jump_Nonzero	0x39
0017 4608       |F   |		Jump_Case	0x9
0018 7821       |x!  |		Jump	0x3a								; case 0x0
0019 7838       |x8  |		Jump	0x52								; case 0x1
001a 784f       |xO  |		Jump	0x6a								; case 0x2
001b 7866       |xf  |		Jump	0x82								; case 0x3
001c 787d       |x}  |		Jump	0x9a								; case 0x4
001d 7894       |x   |		Jump	0xb2								; case 0x5
001e 78ab       |x   |		Jump	0xca								; case 0x6
001f 78c2       |x   |		Jump	0xe2								; case 0x7
0020 7800       |x   |		Jump	0x21								; case 0x8
0021 00d8       |    |		Load_Top	At_Offset_0
0022 00d8       |    |		Load_Top	At_Offset_0
0023 0335       | 5  |		Declare_Variable	Array,Duplicate
0024 00cd       |    |		Action	Spare6_Action
0025 4854       |HT  |		Short_Literal	0x54
0026 4801       |H   |		Short_Literal	0x1
0027 00da       |    |		Load_Top	At_Offset_2
0028 01d6       |    |		Execute	Vector,Field_Write
0029 4861       |Ha  |		Short_Literal	0x61
002a 4802       |H   |		Short_Literal	0x2
002b 00da       |    |		Load_Top	At_Offset_2
002c 01d6       |    |		Execute	Vector,Field_Write
002d 4870       |Hp  |		Short_Literal	0x70
002e 4803       |H   |		Short_Literal	0x3
002f 00da       |    |		Load_Top	At_Offset_2
0030 01d6       |    |		Execute	Vector,Field_Write
0031 4865       |He  |		Short_Literal	0x65
0032 4804       |H   |		Short_Literal	0x4
0033 00da       |    |		Load_Top	At_Offset_2
0034 01d6       |    |		Execute	Vector,Field_Write
0035 00cd       |    |		Action	Spare6_Action
0036 00d9       |    |		Load_Top	At_Offset_1
0037 01d4       |    |		Execute	Vector,Structure_Write
0038 78c0       |x   |		Jump	0xf9
0039 00d1       |    |		Pop_Control	Pop_Count_1
003a 00d8       |    |		Load_Top	At_Offset_0
003b 00d8       |    |		Load_Top	At_Offset_0
003c 0335       | 5  |		Declare_Variable	Array,Duplicate
003d 00cd       |    |		Action	Spare6_Action
003e 484f       |HO  |		Short_Literal	0x4f
003f 4801       |H   |		Short_Literal	0x1
0040 00da       |    |		Load_Top	At_Offset_2
0041 01d6       |    |		Execute	Vector,Field_Write
0042 4874       |Ht  |		Short_Literal	0x74
0043 4802       |H   |		Short_Literal	0x2
0044 00da       |    |		Load_Top	At_Offset_2
0045 01d6       |    |		Execute	Vector,Field_Write
0046 4868       |Hh  |		Short_Literal	0x68
0047 4803       |H   |		Short_Literal	0x3
0048 00da       |    |		Load_Top	At_Offset_2
0049 01d6       |    |		Execute	Vector,Field_Write
004a 4872       |Hr  |		Short_Literal	0x72
004b 4804       |H   |		Short_Literal	0x4
004c 00da       |    |		Load_Top	At_Offset_2
004d 01d6       |    |		Execute	Vector,Field_Write
004e 00cd       |    |		Action	Spare6_Action
004f 00d9       |    |		Load_Top	At_Offset_1
0050 01d4       |    |		Execute	Vector,Structure_Write
0051 78a7       |x   |		Jump	0xf9
0052 00d8       |    |		Load_Top	At_Offset_0
0053 00d8       |    |		Load_Top	At_Offset_0
0054 0335       | 5  |		Declare_Variable	Array,Duplicate
0055 00cd       |    |		Action	Spare6_Action
0056 484c       |HL  |		Short_Literal	0x4c
0057 4801       |H   |		Short_Literal	0x1
0058 00da       |    |		Load_Top	At_Offset_2
0059 01d6       |    |		Execute	Vector,Field_Write
005a 4869       |Hi  |		Short_Literal	0x69
005b 4802       |H   |		Short_Literal	0x2
005c 00da       |    |		Load_Top	At_Offset_2
005d 01d6       |    |		Execute	Vector,Field_Write
005e 4862       |Hb  |		Short_Literal	0x62
005f 4803       |H   |		Short_Literal	0x3
0060 00da       |    |		Load_Top	At_Offset_2
0061 01d6       |    |		Execute	Vector,Field_Write
0062 4872       |Hr  |		Short_Literal	0x72
0063 4804       |H   |		Short_Literal	0x4
0064 00da       |    |		Load_Top	At_Offset_2
0065 01d6       |    |		Execute	Vector,Field_Write
0066 00cd       |    |		Action	Spare6_Action
0067 00d9       |    |		Load_Top	At_Offset_1
0068 01d4       |    |		Execute	Vector,Structure_Write
0069 788f       |x   |		Jump	0xf9
006a 00d8       |    |		Load_Top	At_Offset_0
006b 00d8       |    |		Load_Top	At_Offset_0
006c 0335       | 5  |		Declare_Variable	Array,Duplicate
006d 00cd       |    |		Action	Spare6_Action
006e 4841       |HA  |		Short_Literal	0x41
006f 4801       |H   |		Short_Literal	0x1
0070 00da       |    |		Load_Top	At_Offset_2
0071 01d6       |    |		Execute	Vector,Field_Write
0072 4864       |Hd  |		Short_Literal	0x64
0073 4802       |H   |		Short_Literal	0x2
0074 00da       |    |		Load_Top	At_Offset_2
0075 01d6       |    |		Execute	Vector,Field_Write
0076 4861       |Ha  |		Short_Literal	0x61
0077 4803       |H   |		Short_Literal	0x3
0078 00da       |    |		Load_Top	At_Offset_2
0079 01d6       |    |		Execute	Vector,Field_Write
007a 4820       |H   |		Short_Literal	0x20
007b 4804       |H   |		Short_Literal	0x4
007c 00da       |    |		Load_Top	At_Offset_2
007d 01d6       |    |		Execute	Vector,Field_Write
007e 00cd       |    |		Action	Spare6_Action
007f 00d9       |    |		Load_Top	At_Offset_1
0080 01d4       |    |		Execute	Vector,Structure_Write
0081 7877       |xw  |		Jump	0xf9
0082 00d8       |    |		Load_Top	At_Offset_0
0083 00d8       |    |		Load_Top	At_Offset_0
0084 0335       | 5  |		Declare_Variable	Array,Duplicate
0085 00cd       |    |		Action	Spare6_Action
0086 4846       |HF  |		Short_Literal	0x46
0087 4801       |H   |		Short_Literal	0x1
0088 00da       |    |		Load_Top	At_Offset_2
0089 01d6       |    |		Execute	Vector,Field_Write
008a 4869       |Hi  |		Short_Literal	0x69
008b 4802       |H   |		Short_Literal	0x2
008c 00da       |    |		Load_Top	At_Offset_2
008d 01d6       |    |		Execute	Vector,Field_Write
008e 486c       |Hl  |		Short_Literal	0x6c
008f 4803       |H   |		Short_Literal	0x3
0090 00da       |    |		Load_Top	At_Offset_2
0091 01d6       |    |		Execute	Vector,Field_Write
0092 4865       |He  |		Short_Literal	0x65
0093 4804       |H   |		Short_Literal	0x4
0094 00da       |    |		Load_Top	At_Offset_2
0095 01d6       |    |		Execute	Vector,Field_Write
0096 00cd       |    |		Action	Spare6_Action
0097 00d9       |    |		Load_Top	At_Offset_1
0098 01d4       |    |		Execute	Vector,Structure_Write
0099 785f       |x_  |		Jump	0xf9
009a 00d8       |    |		Load_Top	At_Offset_0
009b 00d8       |    |		Load_Top	At_Offset_0
009c 0335       | 5  |		Declare_Variable	Array,Duplicate
009d 00cd       |    |		Action	Spare6_Action
009e 4855       |HU  |		Short_Literal	0x55
009f 4801       |H   |		Short_Literal	0x1
00a0 00da       |    |		Load_Top	At_Offset_2
00a1 01d6       |    |		Execute	Vector,Field_Write
00a2 4873       |Hs  |		Short_Literal	0x73
00a3 4802       |H   |		Short_Literal	0x2
00a4 00da       |    |		Load_Top	At_Offset_2
00a5 01d6       |    |		Execute	Vector,Field_Write
00a6 4865       |He  |		Short_Literal	0x65
00a7 4803       |H   |		Short_Literal	0x3
00a8 00da       |    |		Load_Top	At_Offset_2
00a9 01d6       |    |		Execute	Vector,Field_Write
00aa 4872       |Hr  |		Short_Literal	0x72
00ab 4804       |H   |		Short_Literal	0x4
00ac 00da       |    |		Load_Top	At_Offset_2
00ad 01d6       |    |		Execute	Vector,Field_Write
00ae 00cd       |    |		Action	Spare6_Action
00af 00d9       |    |		Load_Top	At_Offset_1
00b0 01d4       |    |		Execute	Vector,Structure_Write
00b1 7847       |xG  |		Jump	0xf9
00b2 00d8       |    |		Load_Top	At_Offset_0
00b3 00d8       |    |		Load_Top	At_Offset_0
00b4 0335       | 5  |		Declare_Variable	Array,Duplicate
00b5 00cd       |    |		Action	Spare6_Action
00b6 4853       |HS  |		Short_Literal	0x53
00b7 4801       |H   |		Short_Literal	0x1
00b8 00da       |    |		Load_Top	At_Offset_2
00b9 01d6       |    |		Execute	Vector,Field_Write
00ba 4865       |He  |		Short_Literal	0x65
00bb 4802       |H   |		Short_Literal	0x2
00bc 00da       |    |		Load_Top	At_Offset_2
00bd 01d6       |    |		Execute	Vector,Field_Write
00be 4873       |Hs  |		Short_Literal	0x73
00bf 4803       |H   |		Short_Literal	0x3
00c0 00da       |    |		Load_Top	At_Offset_2
00c1 01d6       |    |		Execute	Vector,Field_Write
00c2 4873       |Hs  |		Short_Literal	0x73
00c3 4804       |H   |		Short_Literal	0x4
00c4 00da       |    |		Load_Top	At_Offset_2
00c5 01d6       |    |		Execute	Vector,Field_Write
00c6 00cd       |    |		Action	Spare6_Action
00c7 00d9       |    |		Load_Top	At_Offset_1
00c8 01d4       |    |		Execute	Vector,Structure_Write
00c9 782f       |x/  |		Jump	0xf9
00ca 00d8       |    |		Load_Top	At_Offset_0
00cb 00d8       |    |		Load_Top	At_Offset_0
00cc 0335       | 5  |		Declare_Variable	Array,Duplicate
00cd 00cd       |    |		Action	Spare6_Action
00ce 4850       |HP  |		Short_Literal	0x50
00cf 4801       |H   |		Short_Literal	0x1
00d0 00da       |    |		Load_Top	At_Offset_2
00d1 01d6       |    |		Execute	Vector,Field_Write
00d2 4869       |Hi  |		Short_Literal	0x69
00d3 4802       |H   |		Short_Literal	0x2
00d4 00da       |    |		Load_Top	At_Offset_2
00d5 01d6       |    |		Execute	Vector,Field_Write
00d6 4870       |Hp  |		Short_Literal	0x70
00d7 4803       |H   |		Short_Literal	0x3
00d8 00da       |    |		Load_Top	At_Offset_2
00d9 01d6       |    |		Execute	Vector,Field_Write
00da 4865       |He  |		Short_Literal	0x65
00db 4804       |H   |		Short_Literal	0x4
00dc 00da       |    |		Load_Top	At_Offset_2
00dd 01d6       |    |		Execute	Vector,Field_Write
00de 00cd       |    |		Action	Spare6_Action
00df 00d9       |    |		Load_Top	At_Offset_1
00e0 01d4       |    |		Execute	Vector,Structure_Write
00e1 7817       |x   |		Jump	0xf9
00e2 00d8       |    |		Load_Top	At_Offset_0
00e3 00d8       |    |		Load_Top	At_Offset_0
00e4 0335       | 5  |		Declare_Variable	Array,Duplicate
00e5 00cd       |    |		Action	Spare6_Action
00e6 4854       |HT  |		Short_Literal	0x54
00e7 4801       |H   |		Short_Literal	0x1
00e8 00da       |    |		Load_Top	At_Offset_2
00e9 01d6       |    |		Execute	Vector,Field_Write
00ea 4865       |He  |		Short_Literal	0x65
00eb 4802       |H   |		Short_Literal	0x2
00ec 00da       |    |		Load_Top	At_Offset_2
00ed 01d6       |    |		Execute	Vector,Field_Write
00ee 4872       |Hr  |		Short_Literal	0x72
00ef 4803       |H   |		Short_Literal	0x3
00f0 00da       |    |		Load_Top	At_Offset_2
00f1 01d6       |    |		Execute	Vector,Field_Write
00f2 486d       |Hm  |		Short_Literal	0x6d
00f3 4804       |H   |		Short_Literal	0x4
00f4 00da       |    |		Load_Top	At_Offset_2
00f5 01d6       |    |		Execute	Vector,Field_Write
00f6 00cd       |    |		Action	Spare6_Action
00f7 00d9       |    |		Load_Top	At_Offset_1
00f8 01d4       |    |		Execute	Vector,Structure_Write
00f9 00d8       |    |		Load_Top	At_Offset_0
00fa 0092 010d  |    |		Action	Push_String_Extended,0x10d					; "("
00fc 01cc       |    |		Execute	Vector,Catenate
00fd e7ff       |    |		Load	0x3,-0x1
00fe e001       |    |		Load	0x0,0x1
00ff 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0100 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0101 e001       |    |		Load	0x0,0x1
0102 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0103 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0104 e010       |    |		Load	0x0,0x10
0105 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0106 01cc       |    |		Execute	Vector,Catenate
0107 0092 010e  |    |		Action	Push_String_Extended,0x10e					; ")"
0109 01cc       |    |		Execute	Vector,Catenate
010a 00e9       |    |		Load_Encached	String_Cache
010b 01c6       |    |		Execute	Vector,Convert_To_Formal
010c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
010d ; --------------------------------------------------------------------------------------
010d ; STRING TABLE
010d ; --------------------------------------------------------------------------------------
010d 0006       |    |		.STRTAB	0x0006->0x0110							; "("
010e 0005       |    |		.STRTAB	0x0005->0x0110							; ")"
010f 0004       |    |		.STREND 0x0004->0x0111
0110 2829       |()  |		.STRTAB_STRINGS
0111 0000 0000  |    |		.BLANK	0000[0x7]
0118 ; --------------------------------------------------------------------------------------
0118 ; Debug Table
0118 ; --------------------------------------------------------------------------------------
0118 0004 0004  |    |		.DEBUG4	0x0004,0x0004,0x2ebb,0x0000,0x0001,0x0001
011e 000b 0122  |   "|		.DBG4T	0x000b,0x0122,0x0002,0x4000
0122 ; --------------------------------------------------------------------------------------
0122 ; Debug chain
0122 ; --------------------------------------------------------------------------------------
0122 0001 000b  |    |		.DBGLEN	0x0001,0x000b
0124 000b 0010  |    |		.DBGLNO	0x000b,0x0010,0x0021,0x003a,0x0052,0x006a,0x0082,0x009a,0x00b2,0x00ca,0x00e2,0x00f9
0130 0001 0009  |    |		.XXX[0xb]
0132 000a 0002  |    |
0134 0003 0004  |    |
0136 0005 0006  |    |
0138 0007 0008  |    |
013a 000b       |    |
013b 0000 0000  |    |		.BLANK	0000[0xc5]