home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 15 / CDACTUAL15.iso / cdactual / program / asm / OKTIMDAT.ZIP / TIMEBITS.ASM < prev    next >
Encoding:
Assembly Source File  |  1988-10-29  |  1.3 KB  |  30 lines
  1. Title   TimeBits -- Convert CX, DX Time Values to DX Time Bit Map
  2. COMMENT~
  3.         Call With:  CH = Hour   (0 - 23)
  4.                     CL = Minute (0 - 59)
  5.                     DH = Second (0 - 59)
  6.         Returns:    DX = compressed time in directory entry format
  7.                      h = hour   (0 - 23)
  8.                      m = minute (0 - 59)
  9.                      s = two-second increments (0 - 28)
  10.  
  11.                     <     DH      > <     DL      >
  12.                     h h h h h m m m m m m s s s s s
  13.         ~
  14.         .MODEL  small
  15.         .CODE
  16.             PUBLIC  TimeBits
  17. TimeBits    Proc
  18.             mov     bx,cx               ; Store hour & min. in BX while
  19.             mov     cl,9                ; using CL as shift register
  20.             shr     dx,cl               ; Convert seconds to secs / 2
  21.             mov     cl,3                ; Left justify
  22.             shl     bh,cl               ; hours and store
  23.             mov     dh,bh               ; DX = hhhhhxxxxxxsssss
  24.             mov     cl,5                ; Shift minutes to
  25.             shl     bx,cl               ; mid 6 bits and
  26.             or      dx,bx               ; combine to return DX =
  27.             ret                         ; "hhhhhmmmmmmsssss"
  28. TimeBits    EndP
  29.             END
  30.