summaryrefslogtreecommitdiff
path: root/rdoff/test/rdfseg.asm
blob: 4c6f587be9af4230363614a7d410fa8028b3c7ff (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
	;; program to test inter-segment production and linkage of RDF objects

	;; [1] should produce segment base ref
	;; [2] should produce standard relocation
	
[GLOBAL _main]
[EXTERN _puts:	far]
[BITS 16]
	
_main:
	mov ax, seg _message	; 0000 [1]
	mov ds, ax		; 0003
	mov dx, _message	; 0005 [2]
	call far _puts		; 0008 [2][1]
	xor ax,ax		; 000D
	int 21h			; 000F
	
[SECTION .data]
_message:	db 'Hello, World', 10, 13, 0