mov bp,ax
and bp,mask port_on_board
shr bp,port_on_board
cmp bp,MAX_PORT
jae Invalid_Parameters

and ax,mask inport_index
errif ( inport_index NE 0 )
and al,MAX_OBJECT - 1
Compute_Indexes:
imul bx,dx,MAX_PORT * MAX_OBJECT
imul di,bp,MAX_OBJECT
add bx,di
add bx,ax
imul di,bx,OBJECTINFO_SIZE
mov [index_list_object],bx
clc
ret
Invalid_Parameters:
mov ah,[current_AMcommand]
mov al,BADCOMMAND_RECEIVED
call AddNetMessageIC
stc
ret
endp Load_Port&board