Ошибка при компиляции кода

IDEAL
 
p386    ; - для использования fsin и fcos
 
MODEL   SMALL
 
EXTRN   hgetch:proc
 
scent   equ ((160-35)*256+100)  ; координаты центра экрана
 
npts    equ 128 ; количество точек (не все попадут в область действия радара)
fadespd equ 5   ; скорость угасания точек (меньше - быстрее)
maxw    equ 16  ; коэффициенты скорости движения и угасания луча
prec    equ 2048    
prect   equ 16  
rcstart equ 200 ; минимальный цвет экрана (после луча)
coffx   equ 121 ; радиусы луча по х (с учетом пропорций экрана)
coffy   equ 100 ; и y
 
macro   getch       ; ввод символа
    mov ah, 08h
    int 21h
endm
 
macro   kbhit       ; проверка нажатия клавиши
    mov ah,0bh          
    int 21h         
endm
 
CODESEG
    STARTUPCODE
 
    cmp al,2
    jz  exit
 
    call initg  ; инициализация видеорежима и палитры
    finit       ; инициализация FPU
 
    xor ah,ah   ; инициализация генератора случ. чисел
    int 1ah ; используя время
    mov [lseed],dx  
 
    call genpts ; генерация координат точек
 
    call main   ; выполнение
 
exit:
 
    EXITCODE 0
 
;==================================
proc    genpts  ; генерация координат точек
    
    mov cx,npts
    mov bx, offset pts
@@gplp: call    rnd
    mov [bx],ax
    inc bx
    inc bx
    loop    @@gplp
 
    ret
endp
 
;==================================
proc    rnd         ; генерация случ. числа
    mov ax,[lseed]
    mov dx,173
    mul dx
    rol ax,3
    mov dx,17
    mul dx
    rol ax,7
    mov dx,23
    mul dx
    rol ax,13
    mov dx,3
    mul dx
    mov [lseed],ax
    ret
endp
 
 
 
 
;==================================
proc    updrefl c   ; обновление точек
    uses    ax,bx,cx,dx,si,di
 
    mov si,offset pts
    mov di,offset nptsc
    xor cx,cx
 
@@cloop:            ; цикл по точкам
    cmp [word ptr di], (rcstart-192) shl fadespd    
    jbe @@c1    ; если погашена, то дальше
 
    dec [word ptr di]   ; иначе уменьшаем яркость
    mov bx,[si]
    mov ax,[di]
    shr ax,fadespd
 
    add ax,192
    mov [es:bx],al  ; и отображаем
 
@@c1:   inc cx
    inc si
    inc si
    inc di
    inc di
 
    cmp cx,npts
    jbe @@cloop
 
    ret
endp
 
;==================================
proc    chkrefl c       ; "обнаружение" точек
    uses    bx,cx,dx,si
    mov cx,0
    mov si,offset pts
    mov bx,offset nptsc
 
@@cloop:            ; цикл по точкам
    cmp [si],di ; если точка луча совпадает с точкой
    jnz @@c1
    
    mov dx,63       ; то присваиваем ей максимальную яркость
    shl dx,fadespd
    mov [ds:bx],dx
 
@@c1:   inc cx
    inc si
    inc si
    inc bx
    inc bx
 
    cmp cx,npts
    jne @@cloop
 
    ret
endp
 
;==================================
proc    main
 
    mov di,offset nptsc
    mov cx,npts
    xor ax,ax
    rep stosw
 
@@mloop:
    kbhit           ; проверяем нажатие клавиши
    cmp al,0ffh     ; если нажата - выходим
    jz  @@mout  
    inc [ca]
    fild    [ca]        ; рассчитываем текущий угол луча
    fild    [ca]
    fadd
    fldpi
    fmulp
    mov [ctmp],prec
    fidiv   [ctmp]
 
    xor cx,cx
@@milp:             ; цикл по положениям луча
                ; за последний отрезок времени - "гасим" их
    push    cx
    fstp    [ttmp]      ; рассчитываем угол и координаты конца луча
    fld [ttmp]
    fld [ttmp]
    mov [ctmp],cx
    sub [ctmp],64
    fild    [ctmp]
    mov [ctmp],prect
    fidiv   [ctmp]
    fadd
    fstp    [ttmp]
    fld [ttmp]
    fsin
    mov [ctmp],coffx
    fimul   [ctmp]
    fistp   [ctmp]
    fwait
    mov bx,[ctmp]
    neg bx      ; инвертируем по Х, чтобы крутить по часовой стрелке
    fld [ttmp]
    fcos
    mov [ctmp],coffy
    fimul   [ctmp]
    fistp   [ctmp]
    fwait
    mov dx,[ctmp]
    mov ax,160-35   ; определяем координаты точки конца в CX
    add ax,bx
    mov ch,al
    mov ax,100
    add ax,dx
    mov cl,al
    mov bx,scent    ; начало луча - центр - в BX
    pop ax
    push    ax
    mov dx,rcstart
    add dx,ax       ; цвет соответствует счетчику цикла
 
    call    line        ; отображаем отрезок с одновременной проверкой
                ; на "обнаружение" точек
 
    pop cx
    inc cx
    cmp cx,maxw
    jb  @@milp
 
    call    updrefl     ; обновляем точки
 
    fstp    [ttmp]
    jmp @@mloop     ; и заново - до нажатия клавиши
@@mout:
    ret
endp
 
;==================================
proc    initg           ; инициализация видеоадаптера
 
    mov ax,0013h    ; инициализация режима 13h (320*200*256)
    int 10h
 
    push    ds
    pop es
 
    mov cx,0        ; подготавливаем палитру - 64 оттенка
    mov si,offset pal   ; от черного до ярко-зеленого
 
@@pset: mov [byte ptr ds:si],0  ; красный - 0
    inc si  
    mov [byte ptr ds:si],cl ; зеленый - счетчик цикла
    inc si
    mov [byte ptr ds:si],0  ; синий - 0
    inc si  
    inc cx
    cmp cx,64
    jb  @@pset
 
    mov ax,1012h    ; номер функции установки блока регистров VGA DAC
    mov bx,192      ; номер начального цвета
    mov cx,64       ; количество цветов
    mov dx,offset pal   ; адрес подготовленных нами данных
    int 10h     ; определяем цвета 192-255
    ret
endp
 
;==================================
proc    calcpa  ; расчет смещения пиксела по его координатам
    ; на входе - DH=x-35, DL=y
    ; на выходе - AX - смещение пиксела
    xor al,al   
    mov ah,dl   ; ax=y*256
    shr ax,2    ; ax=y*64
    add ah,dl   ; ax=y*64+y*256=y*320
    add al,dh   ; ax=y*320+x
    adc ah,0    ; учитываем возможный перенос бита
    add ax,35   ; добавляем смещение
 
    ; смещение используем, поскольку диапазон отображаемых точек -
    ; от (160-121)    до (160+121) - ширина меньше 256, т.е. предполагая
    ; везде смещение по оси х можем использовать всего 1 байт
    ; для х-координаты
 
    ret
endp    calcpa
 
;==================================
proc    line    C   ; отображение отрезка и "обнаружение" точек  
            ; (язык функции "C" указан только для генерации
            ; кода работы с локальными переменными в стеке)
 
    local sdx:word, sdy:word
 
    ;на входе BX - x1 (-35) , y1; CX - x2 (-35) ,y2, DX-color
 
    ; инициализация локальных переменных
    cmp ch,bh       ; расчет расстояния и шага по оси х
    jae @@c1
    mov si,-1
    mov al,bh   
    sub al,ch
    jmp @@c2
@@c1:
    mov si,1
    mov al,ch
    sub al,bh
@@c2:
    xor ah,0
    mov [sdx],si
    push    ax
 
    cmp cl,bl       ; расчет расстояния и шага по оси y
    jae @@c3
    mov si,-320
    mov al,bl   
    sub al,cl
    jmp @@c4
@@c3:
    mov si,320
    mov al,cl
    sub al,bl
@@c4:
    xor ah,0
    mov [sdy],si
    push    ax
mov dx,bx           call    calcpa
    mov di,ax
    xor si,si
    mov ax,0a000h   mov es,ax
    pop ax
    pop bx
    pop cx
    pop dx
 
@@mloop:            
    mov [es:di],bl  
    call    chkrefl     
    cmp di,ax       je  @@mlex
    cmp si,0
    jg  @@msy
    jz  @@msc
@@msx:  add si,dx
    add di,[sdy]
    jmp @@mloop
@@msy:  sub si,cx
    add di,[sdx]
    jmp @@mloop
@@msc:  cmp cx,dx
    jae @@msx
    jmp @@msy
 
@@mlex: ret
 
endp    line
END