home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 23 / IOPROG_23.ISO / SOFT / ASM / BCDASM.ZIP / BCDASM / SRC / BCDABS.ASM < prev    next >
Encoding:
Assembly Source File  |  1997-06-03  |  617 b   |  30 lines
  1.     title    BCDASM -- Copyright 1997, Morten Elling
  2.     subttl    Find absolute value of a packed signed BCD
  3.  
  4.     include    model.inc
  5.     include    modelt.inc
  6.     include    bcd.ash
  7.  
  8.     @CODESEG
  9.  
  10. ;//////////////////////////////////////////////////////////////////////
  11. ;//    Name    bcdAbs
  12. ;//    Desc    Find absolute value of a packed signed BCD.
  13. ;//
  14. ;//
  15. ;//    Entry    Passed args
  16. ;//    Exit    Destination = abs(destination).
  17. ;//        Acc undefined.
  18.  
  19. bcdAbs    proc
  20. arg    dstBCD    :dataptr, \    ; Addr of BCD
  21.     dstsz    :@uint        ; Byte size of BCD
  22. @uses    ds,rbx
  23. ;.
  24.     @LDS  rbx, [dstBCD]
  25.     add   rbx, [dstsz]
  26.     mov   @bptr [rbx-1], 00h
  27.     RET
  28. bcdAbs    endp
  29.  
  30.     END