1	;; program to test inter-segment production and linkage of RDF objects
2
3	;; [1] should produce segment base ref
4	;; [2] should produce standard relocation
5	
6[GLOBAL _main]
7[EXTERN _puts:	far]
8[BITS 16]
9	
10_main:
11	mov ax, seg _message	; 0000 [1]
12	mov ds, ax		; 0003
13	mov dx, _message	; 0005 [2]
14	call far _puts		; 0008 [2][1]
15	xor ax,ax		; 000D
16	int 21h			; 000F
17	
18[SECTION .data]
19_message:	db 'Hello, World', 10, 13, 0
20