;
; *** Listing 10-17 ***
;
; Reads a single byte stored in a far segment by
; temporarily pointing DS to the far segment.
;
	jmp	Skip
;
FarSeg	segment	para
MemVar	db	0	;this variable resides in a
			; far segment
FarSeg	ends
;
Skip:
	call	ZTimerOn
	rept	100
	push	ds	;preserve the normal data segment
	mov	si,seg MemVar
	mov	ds,si
	mov	si,offset MemVar ;point DS:SI to MemVar
	lodsb		;read MemVar
	pop	ds	;retrieve the normal data segment
	endm
	call	ZTimerOff