Click above to get retro games delivered to your door ever month!

__PARND            Pass Clipper numeric as double


Syntax Usage:  . To obtain a numeric double parameter:

                   mov   ax, <ORDER>
                   push  ax
                   call  __PARND
                   add   sp, 2

               . To obtain a numeric double element from an array
                 parameter:

                   mov   ax,<ORDER>
                   mov   bx, <INDEX>
                   push  ax
                   push  ax
                   call  __PARND
                   add   sp, 4

Arguments:     <ORDER> is the placement order in a parameter list.
               <INDEX> is the index of array element to be accessed.

Description:   This routine places the address of double passed from a
               Clipper numeric in DX:AX where:

                   DX = segment
                   AX = offset

               To get the value in AX:BX:CX:DX, you would:

                   mov      ax, <ORDER>
                   push     ax
                   call     __PARND
                   add      sp,2
                   mov      es,dx
                   mov      si,ax
                   mov      ax,es:[si]
                   mov      bx,es:[si + 2]
                   mov      cx,es:[si + 4]
                   mov      dx,es:[si + 6]