home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / beehive / zsus / zsus009.lbr / ZSLIBHLP.LBR / ZSLIB3.HZP / ZSLIB3.HLP
Text File  |  1990-07-14  |  1KB  |  37 lines
  1.  Tes⌠ BC─ Date/Timσ fo≥ Validityé   -ISBCDD
  2.  BC─ t∩ Juliaε Dateé                -BCD2JUL
  3.  Binar∙ t∩ Juliaε Dateé             -BIN2JUL
  4.  Juliaε Datσ t∩ Binaryé             -JUL2BIN
  5. :ISBCDD - Test BCD date/time at HL for validity
  6.  
  7.   ENTER║ H╠ ╜ addres≤ oµ possible yy mm dd hh mm in BCD.
  8.   EXI╘ ║ Zer∩ flaτ se⌠ (Z⌐ iµ date/time ok:
  9.            A = '*' (2Ah) if wildcards used.
  10.            A = 0 if no wildcards used.
  11.          Zer∩ flaτ rese⌠ (NZ) and A = 0FFh iµ date/time invalid
  12.   USE╙ ║ AF
  13.  
  14. :BCD2JUL - BCD to Julian date routine
  15.  
  16.   ENTER║ H╠ ╜ addres≤ oµ date expressed as yy mm dd in BCD.
  17.   EXI╘ ║ H╠ ╜ Julian date in binary (1/1/1978 = 1).
  18.   USE╙ ║ HL
  19.  
  20.  Usage║ Iµ thσ yea≥ i≤ les≤ thaε 1978¼ thi≤ routinσ wrap≤ t∩ áthσ ì
  21. nex⌠ century¼ coverinτ date≤ froφ 1/1/197╕ througΦ 12/31/2077.
  22.  
  23. :BIN2JUL - Binary to Julian Date routine
  24.  
  25.   ENTER║ H╠ ╜ addres≤ oµ date expressed as yy mm dd in binary.
  26.   EXI╘ ║ H╠ ╜ Julian date in binary (1/1/78 = 1).
  27.   USE╙ ║ HL
  28.  
  29. :JUL2BIN - Julian to binary date routine
  30.  
  31.   ENTER║ H╠ ╜ Days since 12/31/1977 (Julian date).
  32.   EXI╘ ║  ┬ ╜ Binary month (1=Jaε ...).
  33.           ├ ╜ Binary year (7╕ ...).
  34.           ╠ = Binary day (▒..31).
  35.           ┴ = L
  36.   USE╙ ║ AF¼ BC¼ HL
  37.