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 / JSAGE / ZSUS / PROGPACK / ZSLIBHLP.LBR / ZSLIB2.HZP / ZSLIB2.HLP
Text File  |  1990-07-14  |  1KB  |  40 lines
  1.  Ge⌠ Curren⌠ ZSDO╙ Timeé       ¡ GETTIM
  2.  Se⌠ Curren⌠ ZSDO╙ Timeé       ¡ SETTIM
  3.  Ge⌠ Curren⌠ CP/M-Plu≤ Timeé   ¡ GTIMEP
  4.  Se⌠ Curren⌠ CP/M-Plu≤ Timeé   ¡ STIMEP
  5. :GETTI═ ¡ Ge⌠ curren⌠ ZSDO╙ timσ t∩ 6-bytσ BC─ buffer
  6.  
  7.   ENTER║ H╠ ╜ addres≤ oµ 6-bytσ timσ buffer.
  8.   EXI╘ ║ Zer∩ flaτ se⌠ (Z⌐ anΣ A=░ iµ buffe≥ filled,
  9.          Zer∩ flaτ rese⌠ (NZ⌐ iµ error.
  10.   USE╙ ║ AF
  11.  
  12.  Usage║ Timσ expresseΣ a≤ yy mm dd hh min ss.
  13.  
  14. :SETTI═ ¡ Se⌠ curren⌠ ZSDO╙ timσ froφ 6-bytσ BC─ buffer
  15.  
  16.   ENTER║ H╠ ╜ addres≤ oµ 6-bytσ timσ buffer.
  17.   EXI╘ ║ Zer∩ flaτ se⌠ (Z⌐ anΣ A=░ iµ clocδ set,
  18.          Zer∩ flaτ rese⌠ (NZ⌐ iµ error.
  19.   USE╙ ║ AF
  20.  
  21.  Usage║ Timσ expresseΣ a≤ yy mm dd hh min ss.
  22.  
  23. :GTIME╨ ¡ Ge⌠ curren⌠ CP/═ Plu≤ timσ t∩ 6-bytσ BC─ buffer
  24.  
  25.   ENTER║ H╠ ╜ addres≤ oµ 6-bytσ timσ buffer.
  26.   EXI╘ ║ Zer∩ flaτ se⌠ (Z⌐ anΣ A=░ iµ buffe≥ filled,
  27.          Zer∩ flaτ rese⌠ (NZ⌐ iµ error.
  28.   USE╙ ║ AF
  29.  
  30.  Usage║ Timσ expresseΣ a≤ yy mm dd hh min ss.
  31.  
  32. :STIME╨ ¡ Se⌠ curren⌠ CP/═ Plu≤ timσ froφ 6-bytσ BC─ buffer
  33.  
  34.   ENTER║ H╠ ╜ addres≤ oµ 6-bytσ timσ buffer.
  35.   EXI╘ ║ Zer∩ flaτ se⌠ (Z⌐ anΣ A=░ iµ clocδ set,
  36.          Zer∩ flaτ rese⌠ (NZ⌐ iµ error.
  37.   USE╙ ║ AF
  38.  
  39.  Usage║ Timσ expresseΣ a≤ yy mm dd hh min ss.
  40.