stksg segment stack
db 32 dup("stck")
stksg ends
datasg segment para 'data'
p1 dw 15
p2 dw 25
datasg ends
codesg segment para 'code'
main proc far
assume ds:datasg,cs:codesg,ss:stksg
mov ax,datasg
mov ds,ax
mov ax,p1
mov bx,p2
mov p1,bx
mov p2,ax
mov ax,4c00h
int 21h
main endp
codesg ends
end main

/////////////////////////////////////////////////////////////////////////////////////////////////////////////

stksg segment stack
db 32 dup("stck")
stksg ends
datasg segment para 'data'
field1 dw 20
field2 dw 25
datasg ends
codesg segment para 'code'
main proc far
assume ds:datasg,cs:codesg,ss:stksg
inc field1
inc field2
mov ax,4c00h
int 21h
main endp
codesg ends
end main

///////////////////////////////////////////////////////////////////////////////////////////////////////

stksg segment stack
db 32 dup("stck")
stksg ends
datasg segment para 'data'
p1 db 10
p2 db 20
p3 db 30
p4 db 40
help db ?
datasg ends
codesg segment para 'code'
main proc far
assume ds:datasg,cs:codsg
mov ax,datasg
mov ds,ax
mov al,p1
mov ah,p2
mov bl,p3
mov bh,p4
mov help,al
mov al,ah
mov ah,help
mov help,bl
mov bl,bh
mov bh,help
inc ah ;increment ah
inc bh ;increment bh
dec al ;decreeent al
dec bl ;decrement bl
mov ax,4c00h
int 21h
main endp
codesg ends
end main

////////////////////////////////////////////////////////////////////////////

stksg segment stack
db 32 dup("stck")
stksg ends
datasg segment para 'data'
var16 dw 1234h
var8 db -2 ;FE
datasg ends
.386
codesg segment para 'code'
main proc far
assume ds:datasg, cs:codesg, ss:stksg
posh ds
posh 0
mov ax,datasg
mov ds,ax
movzx ebx,var16 ; ebx=00001234h
inc ebx ;00001235h
movzx cx,var8 ;cx=fffeh
red
mai endp
codesg ends
end main