rdoff/test/rdfseg.asm

   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