Кто сообразить? Как скомпилировать на ассемблер? выдает ошибка!

.model small
.stack 100H
.Data
MAXDIGITS equ 16
BUFFERSIZE Equ MAXDIGITS + 2 + 1
buffer DB BUFFERSIZE Dup (?)
ARRAYSIZE Equ 4
dataArray DB 4 * ARRAYSIZE Dup (?)
changeValueNo DB ?
changeValue DB ?
parityCode DD ?
rand_a dd 69621
rand_m dd 7FFFFFFFH
seed DD - 1
welcomeMsg DB "Welcome to array parity checker. ", 0DH, 0AH
DB 0DH, 0AH
DB "This program generates array with random values and calculates its parity code. ", 0DH, 0AH
DB "Then you can change any array value and program will check parity code. ", 0DH, 0AH
DB "Enjoy! ", 0DH, 0AH
DB 0DH, 0AH
DB 0DH, 0AH, "$"
errorMsg DB "Parity check error. ", 0DH, 0AH, "$"
okMsg DB "Parity check ok. ", 0DH, 0AH, "$"
dataMsg DB "Array data: $"
codeMsg DB "Parity code: $"
numberMsg DB "Enter array item number to change (0. .15): $"
valueMsg DB "Enter new value (0. .255): $"
uncorrectMsg DB "Incorrect number. $"
writeln DB 0DH, 0AH, "$"
byeMsg DB "Bye! ", 0DH, 0AH, "$"
itemSeparator DB "$"
.Code
.386
start: Mov Ax, @data
Mov Ds, Ax
Mov Es, Ax
And Sp, Not 3
Mov Ax, 0003H
Int 10H
Mov Dx, Offset welcomeMsg
Call showString
Call fillArray
Mov Cx, ARRAYSIZE * 4
Mov Si, Offset dataArray
Mov Di, Offset parityCode
Call saveParityCode
Call showArray
Mov  eax, parityCode
Call showParityCode
Call inputValueNo
Call inputValue
Call ch angeItem
Call showArray
Call getParityCode
Call showParityCode
Cmp parityCode, Eax
Je parityCode_notChanged
parityCode_Changed: 
Mov Dx, Offset errorMsg
Call showString
Jmp main_exit
parityCode_notChanged: 
Mov Dx, Offset okMsg
Call showString
main_exit: 
Call writeLine
Call writeLine
Mov Dx, Offset byeMsg
Call showString
Call writeLine
Mov Ax, 4C00H
Int 21H
fillArray proc ;??????????
Push Eax
Push Cx
Push Edi
Mov Edi, Offset dataArray
Mov Cx, ARRAYSIZE
fillArray_loop: 
Call rand
cld 
stosd;izmenil enter
loop fillArray_loop
Pop Edi
Pop Cx
Pop Eax
ret
fillArray endp
rand proc ;??????????
Push Edx
Mov Eax, dword ptr seed
Test Eax, Eax
Js fetch_seed
randomize:
Mul dword ptr rand_a
Div dword ptr rand_m
Mov Eax, Edx
Mov dword ptr seed, Eax
Pop Edx
ret
fetch_seed: 
Push Ds
Push 0040H
Pop Ds
Mov Eax, dword ptr Ds:006CH
Pop Ds
Jmp short randomize
rand endp ;??????????
saveparityCode proc ;??????????
Push Eax
Call getparityCode
mov [di], eax
Pop Eax
ret
saveparityCode endp
getparityCode proc
Cmp Cx, 32
Ja getParityCode_sum
Call getParityBits
ret
getParityCode_sum:
Call getParitySum
ret
getParityCode endp
getParityBits proc
Push Ebx
Push Cx
Push Si
Xor Ebx, Ebx
std
Add Si, Cx
Dec Si
getParityBits_loop: 
lodsb
Test Al, Al
Jp getParityBits_parity
clc
Jmp short getParityBits_shift
getParityBits_parity: 
stc
getParityBits_shift: 
Rcl Ebx, 1
loop getParityBits_loop
Mov Eax, Ebx
Pop Si
Pop Cx
Pop Ebx
ret
getParityBits endp
getParitySum proc
Push Ebx
Push Cx
Push Si
Xor Ebx, Ebx
cld
getParitySum_loop: 
lodsb
Test Al, Al
jnp getParitySum_next
Inc Ebx
getParitySum_next: 
loop getParitySum_loop
Mov Eax, Ebx
Pop Si
Pop Cx
Pop Ebx
ret
getParitySum endp
showArray proc
Push Eax
Push Cx
Push Dx
Push Si
Push Di
Mov Dx, Offset dataMsg
Call showString
Xor Eax, Eax
Mov Si, Offset dataArray
Mov Di, Offset buffer
Mov Cx, ARRAYSIZE * 4
showArray_loop: 
cld
lodsb
Call int 2 Dec
Mov Dx, Offset buffer
Call showString
Mov Dx, Offset itemSeparator
Call showString
Loop showArray_loop
Call writeLine
Pop Di
Pop Si
Pop Dx
Pop Cx
Pop Eax
ret
showArray endp
showParityCode proc
Push Dx
Push Di
Mov Dx, Offset codeMsg
Call showString
Mov Di, Offset buffer
Call Int 2 Dec
Mov Dx, Di
Call showString
Call writeLine
Pop Di
Pop Dx
ret
showParityCode endp
inputValueNo proc
Push Bx
Push Cx
Push Dx
Push Si
Push Di
Mov Bx, ARRAYSIZE * 4 - 1
Mov Cl, 2
Mov Dx, Offset numberMsg
Mov Si, Offset uncorrectMsg
Mov Di, Offset changeValueNo
Call inputNumber
Pop Di
Pop Si
Pop Dx
Pop Cx
Pop Bx
ret
inputValueNo endp
inputValue proc
Push Bx
Push Cx
Push Dx
Push Si
Push Di
Mov Bx, 255
Mov Cl, 3
Mov Dx, Offset valueMsg
Mov Si, Offset uncorrectMsg
Mov Di, Offset changeValue
Call inputNumber
Pop Di
Pop Si
Pop Dx
Pop Cx
Pop Bx
ret
inputValue endp
ch angeItem proc
Push Ax
Push Bx
Push Si
Mov Bx, Offset dataArray
Xor Ax, Ax
Mov Al, changeValueNo
Mov Si, Ax
Mov Al, changeValue
mov [bx + si], al
Pop Si
Pop Bx
Pop Ax
ret
ch angeItem endp
inputNumber proc
Push Ax
Push Di
inputNumber_input: 
Call showString
Mov Di, Offset buffer
Call do_inputNumber
Call writeLine
Jnc inputNumber_exit
inputNumber_error: 
Push Dx
Mov Dx, Si
Call showString
Pop Dx
jmp short inputNumber_input
inputNumber_exit: 
Pop Di
mov [di], al
pop ax
ret
inputNumber endp
do_inputNumber proc
Push Dx
Push Si
And Cx, 0FH
clc
Inc Cl
mov [di], cl
Dec Cl
Mov Dx, Di
Mov Ah, 0AH
Int 21H
Mov Ch, [Di + 1]
Cmp Ch, 0
Je do_inputNumber_error1
Mov Si, Di
Inc Si
Inc Si
Push Cx
Mov Cl, Ch
And Cx, 0FH
Call Dec 2 Int
Pop Cx
Jc do_inputNumber_error1
Cmp Bx, Ax
Jc do_inputNumber_error2
Jmp do_inputNumber_exit
do_inputNumber_error1: 
Xor Ax, Ax
do_inputNumber_error2:
stc
do_inputNumber_exit: 
Pop Si
Pop Dx
ret
do_inputNumber endp
showString proc
Push Ax
Mov Ah, 9H
Int 21H
Pop Ax
ret
showString endp
writeLine proc
Push Dx
Mov Dx, Offset writeln
Call showString
Pop Dx
ret
writeLine endp
Dec 2 Int proc
Push Bx
Push Cx
Push Dx
Push Si
Cmp Cx, 0
Je Dec 2 int_error
Cmp Cx, 5
Ja Dec 2 int_error
Xor Ax, Ax
Xor Bx, Bx
clc
Dec 2 int_loop:
Mov Bl, byte ptr[Si]
Cmp Bl, '0'
Jb Dec 2 int_error
Cmp Bl, '9'
Ja Dec 2 int_error
Sub Bl, '0'
Mov Dx, Ax
Shl Ax, 1
Jc Dec 2 int_error
Shl Ax, 1
Jc Dec 2 int_error
Add Ax, Dx
Jc Dec 2 int_error
Shl Ax, 1
Jc Dec 2 int_error
Add Ax, Bx
Jc Dec 2 int_error
Inc Si
Loop Dec 2 int_loop
Jmp Dec 2 int_exit
Dec 2 int_error:
Xor Ax, Ax
stc
Dec 2 int_exit:
Pop Si
Pop Dx
Pop Cx
Pop Bx
ret
Dec 2 Int endp
Int 2 Dec proc
Push Eax
Push Ebx
Push Cx
Push Edx
Push Di
Xor Ebx, Ebx
Mov Bl, 10
Xor Cx, Cx
Int 2 dec_loop:
Xor Edx, Edx
Div Ebx
Add Dl, '0'
Push Dx
Inc Cx
Test Eax, Eax
Jnz Int 2 dec_loop
cld
Int 2 dec_store:
Pop Ax
stosb
Loop Int 2 dec_store
Mov byte ptr[Di], '$'
Pop Di
Pop Edx
Pop Cx
Pop Ebx
Pop Eax
ret
Int 2 Dec endp
end start