home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / ZCPR33 / A-R / JULIAN.LBR / JBCD2BN.ZZ0 / JBCD2BN.Z80
Text File  |  2000-06-30  |  512b  |  33 lines
  1. ; routine:  jbcd2bn
  2.  
  3. ; author:  Bridger Mitchell & Howard Goldstein
  4.  
  5. ; date:  4/16/1988
  6. ;
  7. ;    BCD to Binary digit routine.
  8. ;
  9. ; >>    A in bcd
  10. ; <<    A in binary
  11. ;
  12. ; uses d,e, a
  13.     entry    jbcd2bn
  14.  
  15.     cseg
  16.  
  17. ;
  18. jbcd2bn:
  19.     PUSH    DE
  20.     ld    d,a        ;save orig in d
  21.     and    0f0h
  22.     ld    e,a        ;save hi nyb in  e
  23.     ld    a,d        ;recover orig
  24.     and    a,0fh        ;get low nyb
  25.     srl    e        ;*8hi nyb 
  26.     add    a,e        ; + 8*hi nyb
  27.     srl    e        ;*4
  28.     srl    e        ;*2
  29.     add    a,e        ;+ 2*hi nyb
  30.     POP    DE
  31.     ret    
  32. ;
  33.