Условие: x=2*b-1+4*(a-3*c): не могу найти ошибку - Assembler

data segment
   
    str1 dw " vvedite chislo A  $",0
    str2 dw " vvedite chislo B  $",0
    str3 dw " vvedite chislo C  $",0
    a dw ?
    b dw ?
    c dw ?
    x dw ?
ends
 
stack segment
    dw   256  dup(0)
ends
 
code segment
    include "emu8086.inc" 
    
start:
 
    mov ax, data
    mov ds, ax
    mov es, ax
    
 
    print "x=2*b-1+4*(a-3*c)"
                              
    printn " "
     
    lea dx, str2
    mov ah, 9
    int 21h   
    call scan_num
    
    sal cx, 1
    sub cx, 1
    mov b, cx                      
    
    printn " "  
    
    lea dx, str3 
    mov ah, 9
    int 21h
    call scan_num 
    
    mov c, cx
    sal cx, 1
    add cx, c
    mov c, cx
    
    printn " "
   
    lea dx, str1 
    mov ah, 9
    int 21h 
    call scan_num
    
    mov ax, c
    sub cx, ax
    sal cx, 2
    mov a, cx
     
     printn " "
    
    print "Otvet : " 
    mov ax, b
    mov bx, a
    add ax, bx
    mov x, ax
    js gon
     
    call print_num_uns
    jmp tor        
gon:
    print "-"
    neg x
    call print_num_uns    
           
tor: mov ax, 4c00h ; exit to operating system.
    int 21h    
ends    
define_scan_num
define_print_num_uns
 
end start ; set entry point and stop the assembler.