Как перейти в другой сегмент памяти - Assembler

Exe
Page 60,80
TITLE MAXIMUM
 
STACKG SEGMENT PARA STACK "stack"
                                          DW 32 DUP(?)
STACKG ENDS
 
DATASG SEGMENT PARA "code"
 
X DW-3
Y DW-77
R DW? 
DATASG ENDS
 
CODESG SEGMENT PARA "Code"
BEGIN PROC FAR
ASSUME CS:COODESG, DS: DATASG, SS:STACSG, ES:NOTHING 
 
PUSH DS
XOR AX, AX
PUSH AX
MOV AX, DATASG
MOV DS, AX
MOV AX, X
MOV BX, Y
MOV R, AX
CMP AX, BX
JNS .1
MOV R, BX
.1:RET
BEGIN ENDP
CODESG ENDS
END BEGIN

COM
 
PAGE 60,132
TITLE MAXIMUM
 
CODESG SEGMENT PARA "Code"
ASSUME CS:CODESG,DS: DATASG,SS:STACSG,ES:NOTHING
ORG 100H
BEGIN JMP MAIN
X DW-3
Y DW-77
R DW? 
MAIN PROC NEAR
MOX AX, X
MOV BX, Y
MOV R, AX
CMP AX, BX
JNS .1
MOV R, BX
.1 RET
MAIN ENDP
CODESG ENDS
END BEGIN