home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / AAKXREF.ZIP / BCDTOINT.FUN < prev    next >
Encoding:
Text File  |  1986-03-27  |  1.2 KB  |  23 lines
  1. (********************************************************************)
  2. (* THIS FUNCTION WILL A FOUR DIGIT BCD INTEGER AND CONVERT IT TO A  *)
  3. (* NORMAL INTEGER                                                   *)
  4. (* INPUT        : BCD INTEGER                                       *)
  5. (* INPUT/OUTPUT : NONE                                              *)
  6. (* OUTPUT       : NORMAL INTEGER                                    *)
  7. (* USES         : NO SIDE EFFECTS                                   *)
  8. (* CALLS        : NONE                                              *)
  9. (* ERRORS       : NONE                                              *)
  10. (* GLOBAL VARS  : NONE                                              *)
  11. (* SUBJECT      : BCD, CONVERT TO INTEGER                           *)
  12. (* DOMAIN       : ARNO A. KARNER                      LEVEL : 000   *)
  13. (********************************************************************)
  14.  
  15. FUNCTION  BcdToInteger              ( Bcd : INTEGER ) : INTEGER ;
  16.  
  17. BEGIN (* FUNCTION *)
  18.    BcdToInteger := ( ( Bcd SHR 12 ) * 1000 +
  19.                    ( ( Bcd AND $F00 ) SHR 8 ) * 100 +
  20.                    ( ( BCD AND $F0 ) SHR 4 ) * 10 +
  21.                    ( Bcd AND $F ) ) ;
  22. END ; (* FUNCTION *)
  23.