DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 DFS Tapes

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 DFS Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦16e79afe0⟧ SEG

    Length: 1024 (0x400)
    Types: SEG
    Notes: 5807_R1K_CODE
    Names: »12458001.SEG«

Derivation

└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
    └─ ⟦this⟧ »12458001.SEG« 
    └─ ⟦this⟧ »12458001.SEG« 
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
    └─ ⟦this⟧ »12458001.SEG« 
    └─ ⟦this⟧ »12458001.SEG« 
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
    └─ ⟦this⟧ »12458001.SEG« 
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
    └─ ⟦this⟧ »12458001.SEG« 
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
    └─ ⟦this⟧ »12458001.SEG« 

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5807       |X   |		.CONST	0x5807								; 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 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 0001       |    |		.CONST	0x0001								; Number of locals
000b			INIT_0008:
000b 029a 001b  |    |		Declare_Subprogram	INIT_0018,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0 = .DEBUG	0x000b,0x00b2,0x8000,0x0000,0x000e,0x8874,0x0000,0x0003
000d 00bf       |    |		Action	Accept_Activation
000e 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
000f 00c7       |    |		Action	Elaborate_Subprogram
0010			BODY_0008:
0010 00bc       |    |		Action	Signal_Activated
0011 00bb       |    |		Action	Signal_Completion
0012 0000 0000  |    |		.BLANK	0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 002e       | .  |		.CONST	0x002e								; Address of begin
0019 0004       |    |		.CONST	0x0004								; Address of exception handler
001a 0008       |    |		.CONST	0x0008								; Number of locals
001b			INIT_0018:
001b 0007       |    |		Action	Break_Optional							; Debug Table 0x1 = .DEBUG	0x001b,0x00b4,0xa801,0x0002,0x000e,0x8874,0x0000,0x0003
													; Debug Table 0x1.0x0 = 0x1b,0xffff
001c 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x1 = 0x1c,0xfffe
001d e5fa       |    |		Load	0x2,-0x6							; Debug Table 0x1.0x2 = 0x1d,0xfffd
001e 01dd       |    |		Execute	Vector,First
001f 00e2       |    |		Load_Encached	Integer_Cache
0020 03f1       |    |		Declare_Variable	Discrete,With_Value
0021 e5fa       |    |		Load	0x2,-0x6							; Debug Table 0x1.0x3 = 0x21,0xfffc
0022 01dc       |    |		Execute	Vector,Last
0023 00e2       |    |		Load_Encached	Integer_Cache
0024 03f1       |    |		Declare_Variable	Discrete,With_Value
0025 00e2       |    |		Load_Encached	Integer_Cache						; Debug Table 0x1.0x4 = 0x25,0xfffb
0026 00e2       |    |		Load_Encached	Integer_Cache						; Debug Table 0x1.0x5 = 0x26,0xfffa
0027 00e2       |    |		Load_Encached	Integer_Cache						; Debug Table 0x1.0x6 = 0x27,0xfff9
0028 e5fb       |    |		Load	0x2,-0x5							; Debug Table 0x1.0x7 = 0x28,0xfff8
0029 02c7       |    |		Declare_Variable	Any
002a e407       |    |		Load	0x2,0x7
002b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
002c 029f 006b  |   k|		Declare_Subprogram	INIT_0068,For_Call
002e			BODY_0018:
002e 4800       |H   |		Short_Literal	0x0							; Debug Table 0x1.0x8 = 0x2e,0x1
002f a5f9       |    |		Store_Unchecked	0x2,-0x7
0030 e403       |    |		Load	0x2,0x3								; Debug Table 0x1.0x9 = 0x30,0x2
0031 e402       |    |		Load	0x2,0x2
0032 0272       | r  |		Execute	Discrete,Minus
0033 0248       | H  |		Execute	Discrete,Check_In_Integer
0034 a406       |    |		Store_Unchecked	0x2,0x6
0035 7828       |x(  |		Jump	0x5e
0036 e5fa       |    |		Load	0x2,-0x6							; Debug Table 0x1.0xa = 0x36,0x4
0037 01dc       |    |		Execute	Vector,Last
0038 e406       |    |		Load	0x2,0x6
0039 e402       |    |		Load	0x2,0x2
003a 0273       | s  |		Execute	Discrete,Plus
003b 0248       | H  |		Execute	Discrete,Check_In_Integer
003c 00d8       |    |		Load_Top	At_Offset_0
003d e5fc       |    |		Load	0x2,-0x4
003e 0122       | "  |		Execute	Any,Make_Root_Type
003f 0260       | `  |		Execute	Discrete,In_Type
0040 7002       |p   |		Jump_Nonzero	0x43
0041 48e0       |H   |		Short_Literal	0xe0
0042 0257       | W  |		Execute	Discrete,Raise
0043 0263       | c  |		Execute	Discrete,Above_Bound
0044 7016       |p   |		Jump_Nonzero	0x5b
0045 e40a       |    |		Load	0x2,0xa								; Debug Table 0x1.0xb = 0x45,0x5
0046 e406       |    |		Load	0x2,0x6
0047 0272       | r  |		Execute	Discrete,Minus
0048 0248       | H  |		Execute	Discrete,Check_In_Integer
0049 a404       |    |		Store_Unchecked	0x2,0x4
004a 780b       |x   |		Jump	0x56
004b e404       |    |		Load	0x2,0x4								; Debug Table 0x1.0xc = 0x4b,0x7
004c e406       |    |		Load	0x2,0x6
004d 0273       | s  |		Execute	Discrete,Plus
004e 0248       | H  |		Execute	Discrete,Check_In_Integer
004f a405       |    |		Store_Unchecked	0x2,0x5
0050 8408       |    |		Call	0x2,0x8								; Debug Table 0x1.0xd = 0x50,0x8
0051 e404       |    |		Load	0x2,0x4								; Debug Table 0x1.0xe = 0x51,0x9
0052 e406       |    |		Load	0x2,0x6
0053 0272       | r  |		Execute	Discrete,Minus
0054 0248       | H  |		Execute	Discrete,Check_In_Integer
0055 a404       |    |		Store_Unchecked	0x2,0x4
0056 e404       |    |		Load	0x2,0x4								; Debug Table 0x1.0xf = 0x56,0x6
0057 e402       |    |		Load	0x2,0x2
0058 027b       | {  |		Execute	Discrete,Greater_Equal
0059 77f1       |w   |		Jump_Nonzero	0x4b
005a 3fea       |?   |		Loop_Increasing	0x45
005b e406       |    |		Load	0x2,0x6								; Debug Table 0x1.0x10 = 0x5b,0xa
005c 09ff       |    |		Execute_Immediate	Binary_Scale,-0x1
005d a406       |    |		Store_Unchecked	0x2,0x6
005e e406       |    |		Load	0x2,0x6								; Debug Table 0x1.0x11 = 0x5e,0x3
005f 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0060 77d5       |w   |		Jump_Nonzero	0x36
0061 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0062 0000 0000  |    |		.BLANK	0000[0x6]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 0081       |    |		.CONST	0x0081								; Address of begin
0069 0004       |    |		.CONST	0x0004								; Address of exception handler
006a 0003       |    |		.CONST	0x0003								; Number of locals
006b			INIT_0068:
006b e404       |    |		Load	0x2,0x4								; Debug Table 0x2 = .DEBUG	0x006b,0x00da,0x0804,0x0002,0x000e,0x8934,0x0000,0x00b4
													; Debug Table 0x2.0x0 = 0x6b,0xffff
006c 00d8       |    |		Load_Top	At_Offset_0
006d e5fc       |    |		Load	0x2,-0x4
006e 0122       | "  |		Execute	Any,Make_Root_Type
006f 0260       | `  |		Execute	Discrete,In_Type
0070 7002       |p   |		Jump_Nonzero	0x73
0071 48e0       |H   |		Short_Literal	0xe0
0072 0257       | W  |		Execute	Discrete,Raise
0073 e5fa       |    |		Load	0x2,-0x6
0074 01d5       |    |		Execute	Vector,Field_Reference
0075 0007       |    |		Action	Break_Optional
0076 e405       |    |		Load	0x2,0x5								; Debug Table 0x2.0x1 = 0x76,0xfffe
0077 00d8       |    |		Load_Top	At_Offset_0
0078 e5fc       |    |		Load	0x2,-0x4
0079 0122       | "  |		Execute	Any,Make_Root_Type
007a 0260       | `  |		Execute	Discrete,In_Type
007b 7002       |p   |		Jump_Nonzero	0x7e
007c 48e0       |H   |		Short_Literal	0xe0
007d 0257       | W  |		Execute	Discrete,Raise
007e e5fa       |    |		Load	0x2,-0x6
007f 01d5       |    |		Execute	Vector,Field_Reference
0080 0007       |    |		Action	Break_Optional
0081			BODY_0068:
0081 e602       |    |		Load	0x3,0x2								; Debug Table 0x2.0x2 = 0x81,0x1
0082 e5fb       |    |		Load	0x2,-0x5
0083 0119       |    |		Execute	Any,Check_In_Formal_Type
0084 e603       |    |		Load	0x3,0x3
0085 e5fb       |    |		Load	0x2,-0x5
0086 0119       |    |		Execute	Any,Check_In_Formal_Type
0087 85fe       |    |		Call	0x2,-0x2
0088 680b       |h   |		Jump_Zero	0x94
0089 e602       |    |		Load	0x3,0x2								; Debug Table 0x2.0x3 = 0x89,0x2
008a c407       |    |		Store	0x2,0x7
008b e603       |    |		Load	0x3,0x3								; Debug Table 0x2.0x4 = 0x8b,0x3
008c c602       |    |		Store	0x3,0x2
008d e407       |    |		Load	0x2,0x7								; Debug Table 0x2.0x5 = 0x8d,0x4
008e c603       |    |		Store	0x3,0x3
008f e5f9       |    |		Load	0x2,-0x7							; Debug Table 0x2.0x6 = 0x8f,0x5
0090 0a01       |    |		Execute_Immediate	Plus,0x1
0091 0248       | H  |		Execute	Discrete,Check_In_Integer
0092 a5f9       |    |		Store_Unchecked	0x2,-0x7
0093 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0094 00cc       |    |		Action	Pop_Block							; Debug Table 0x2.0x7 = 0x94,0x6
0095 7fc4       |    |		Jump	0x5a
0096 0000 0000  |    |		.XXX[0x2]
0098 ; --------------------------------------------------------------------------------------
0098 ; Debug Table
0098 ; --------------------------------------------------------------------------------------
0098 0003 0003  |    |		.CONST	0x0003,0x0003
009a 000b 00b2  |    |		.DEBUG	0x000b,0x00b2,0x8000,0x0000,0x000e,0x8874,0x0000,0x0003
00a2 001b 00b4  |    |		.DEBUG	0x001b,0x00b4,0xa801,0x0002,0x000e,0x8874,0x0000,0x0003
00aa 006b 00da  | k  |		.DEBUG	0x006b,0x00da,0x0804,0x0002,0x000e,0x8934,0x0000,0x00b4
00b2 ; --------------------------------------------------------------------------------------
00b2 ; Debug3 Subtable 0x0
00b2 ; --------------------------------------------------------------------------------------
00b2 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
00b4 ; --------------------------------------------------------------------------------------
00b4 ; Debug3 Subtable 0x1
00b4 ; --------------------------------------------------------------------------------------
00b4 0008 000a  |    |		.DBG3TAB	0x0008,0x000a
00b6 001b ffff  |    |		.CONST	0x001b,0xffff
00b8 001c fffe  |    |		.CONST	0x001c,0xfffe
00ba 001d fffd  |    |		.CONST	0x001d,0xfffd
00bc 0021 fffc  | !  |		.CONST	0x0021,0xfffc
00be 0025 fffb  | %  |		.CONST	0x0025,0xfffb
00c0 0026 fffa  | &  |		.CONST	0x0026,0xfffa
00c2 0027 fff9  | '  |		.CONST	0x0027,0xfff9
00c4 0028 fff8  | (  |		.CONST	0x0028,0xfff8
00c6 002e 0001  | .  |		.CONST	0x002e,0x0001
00c8 0030 0002  | 0  |		.CONST	0x0030,0x0002
00ca 0036 0004  | 6  |		.CONST	0x0036,0x0004
00cc 0045 0005  | E  |		.CONST	0x0045,0x0005
00ce 004b 0007  | K  |		.CONST	0x004b,0x0007
00d0 0050 0008  | P  |		.CONST	0x0050,0x0008
00d2 0051 0009  | Q  |		.CONST	0x0051,0x0009
00d4 0056 0006  | V  |		.CONST	0x0056,0x0006
00d6 005b 000a  | [  |		.CONST	0x005b,0x000a
00d8 005e 0003  | ^  |		.CONST	0x005e,0x0003
00da ; --------------------------------------------------------------------------------------
00da ; Debug3 Subtable 0x2
00da ; --------------------------------------------------------------------------------------
00da 0002 0006  |    |		.DBG3TAB	0x0002,0x0006
00dc 006b ffff  | k  |		.CONST	0x006b,0xffff
00de 0076 fffe  | v  |		.CONST	0x0076,0xfffe
00e0 0081 0001  |    |		.CONST	0x0081,0x0001
00e2 0089 0002  |    |		.CONST	0x0089,0x0002
00e4 008b 0003  |    |		.CONST	0x008b,0x0003
00e6 008d 0004  |    |		.CONST	0x008d,0x0004
00e8 008f 0005  |    |		.CONST	0x008f,0x0005
00ea 0094 0006  |    |		.CONST	0x0094,0x0006
00ec 0000 0000  |    |		.BLANK	0000[0x114]