;es wird a*a+(b-c)/d ausgerechnet
 ;a, b, c und d sind Octets; das Ergebnis wird im rez gespeichert (das ist ein 
 ;Wort)

 assume cs:text_, ds:data_
 data_ SEGMENT
    a db 2
    b db 3
    c db 1
    d db -2
    rez dw ?
 data_ ENDS
 text_ segment
 start:mov ax,data_
       mov ds,ax
       
       mov al,a		;al=a
       mul a		;ax=a*a
       mov bl,b		;bl=b
       sub bl,c		;bl=b-c
       mov cx,ax	;cx=a*a
       mov al,bl	;al=b-c
       cbw		;ax=b-c
       idiv d		;al=(b-c)/d
       cbw		;ax=(b-c)/d
       add cx,ax	;cx=a*a+(b-c)/d
       mov rez,cx	;rez=a*a+(b-c)/d

       mov ax,4C00h
       int 21h
 text_ ends
 end start