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 / ZSLIB1.HZP / ZSLIB1.HLP
Text File  |  1990-07-14  |  4KB  |  85 lines
  1.  Ge⌠ ZSDO╙ Filσ Datestampé     ¡ GETSTP
  2.  Se⌠ ZSDO╙ Filσ Datestampé     ¡ SETSTP
  3.  Ge⌠ CP/M-Plu≤ Filσ Datestampé ¡ GSTPCP
  4.  Se⌠ CP/M-Plu≤ Filσ Datestampé ¡ SSTPCP
  5. :GETST╨é ¡ Ge⌠ ZSDO╙ filσ datestam≡ to 128-bytσ buffer
  6.  
  7.   ENTER║ DE ╜ addres≤ oµ file'≤ FCB.
  8.          HL ╜ addres≤ oµ 128-bytσ datestam≡ buffer.
  9.   EXI╘ ║ Zer∩ flaτ se⌠ (Z⌐ anΣ A=░ iµ buffe≥ filled,
  10.          Zer∩ flaτ rese⌠ (NZ⌐ iµ error.
  11.   USE╙ ║ AF
  12.  
  13.  Usage║ áBuffe≥ i≤ filleΣ witΦ 1╡-bytσ datestam≡ a≤ y∙ mφ ádΣ áhΦ ì
  14. miε áoµ áfilσ ácreation¼ álas⌠ áaccess¼ áanΣ álas⌠ ámodification¼ ì
  15. respectively« á Iµ áfilσ ái≤ no⌠ a⌠ defaul⌠ drive¼ áFC┬ ámus⌠ ábσ ì
  16. initializeΣ witΦ drive«  Iµ filσ i≤ no⌠ a⌠ defaul⌠ user¼ FC┬ mus⌠ ì
  17. bσ initializeΣ witΦ use≥ numbe≥ anΣ ZSDO╙ erro≥ modσ se⌠ t∩ ánoε-ì
  18. zero.
  19.  
  20. :SETST╨ ¡ Se⌠ filσ datestam≡ froφ 128-bytσ buffer
  21.  
  22.   ENTER║ D┼ ╜ addres≤ oµ file'≤ FCB.
  23.          H╠ ╜ addres≤ oµ 128-bytσ datestam≡ buffer.
  24.   EXI╘ ║ Zer∩ flaτ se⌠ (Z⌐ anΣ A=░ iµ filσ stamped,
  25.          Zer∩ flaτ rese⌠ (NZ⌐ iµ error.
  26.   USE╙ ║ AF
  27.  
  28.  Usage║ áBuffe≥ i≤ filleΣ witΦ 1╡-bytσ datestam≡ a≤ y∙ mφ ádΣ áhΦ ì
  29. miε áoµ áfilσ ácreation¼ álas⌠ áaccess¼ áanΣ álas⌠ ámodification¼ ì
  30. respectively« á Iµ áfilσ ái≤ no⌠ a⌠ defaul⌠ drive¼ áFC┬ ámus⌠ ábσ ì
  31. initializeΣ witΦ drive«  Iµ filσ i≤ no⌠ a⌠ defaul⌠ user¼ FC┬ mus⌠ ì
  32. bσ initializeΣ witΦ use≥ numbe≥ anΣ ZSDO╙ erro≥ modσ se⌠ t∩ ánoε-ì
  33. zero.
  34.  
  35. :GSTPC╨ ¡ Ge⌠ filσ datestam≡ froφ CP/═ Plu≤ t∩ 128-bytσ buffer
  36.  
  37.   ENTER║ DE ╜ addres≤ oµ file'≤ FCB.
  38.          H╠ ╜ addres≤ oµ 128-bytσ datestam≡ buffer.
  39.   EXI╘ ║ Zer∩ flaτ se⌠ (Z⌐ anΣ A=░ iµ buffe≥ filled,
  40.          Zer∩ flaτ rese⌠ (NZ⌐ iµ error.
  41.   USE╙ ║ AF
  42.  
  43.  Usage║ Iµ filσ i≤ no⌠ a⌠ defaul⌠ drive¼ FC┬ mus⌠ bσ áinitializeΣ ì
  44. witΦ ádrive« á Filσ ámus⌠ ábσ a⌠ defaul⌠ áuser« á Filσ ástam≡ ái≤ ì
  45. converteΣ át∩ áDateStampe≥ áforma⌠ á(y∙ mφ ádΣ áhΦ ámiε áoµ áfilσ ì
  46. creation¼ álas⌠ access¼ anΣ las⌠ modification¼ árespectively¼ áiε ì
  47. BCD)« á Thσ CP/═ Plu≤ create/acces≤ stam≡ i≤ copieΣ t∩ ábotΦ áthσ ì
  48. creatσ áanΣ áacces≤ field≤ oµ thσ caller'≤ buffer« á Thσ ácallinτ ì
  49. prograφ ámus⌠ examinσ thσ disδ labe∞ t∩ determinσ whicΦ áfield(s⌐ ì
  50. arσ ávalid« á Oε áexit¼ onl∙ thσ firs⌠ 1╡ byte≤ oµ ádatß áiε áthσ ì
  51. caller'≤ buffe≥ arσ valid.
  52.  
  53. :SSTPC╨ ¡ Se⌠ filσ datestam≡ t∩ CP/═ Plu≤ froφ 128-bytσ buffer
  54.  
  55.   ENTER║ D┼ ╜ addres≤ oµ file'≤ FCB.è         H╠ ╜ addres≤ oµ 128-bytσ datestam≡ buffer.
  56.          B├ ╜ addres≤ oµ 1024-bytσ DM┴ buffer.
  57.   EXI╘ ║ Zer∩ flaτ se⌠ anΣ A=░ iµ stam≡ set,
  58.          Zer∩ flaτ rese⌠ (NZ⌐ iµ error¼ erro≥ iε <A>:
  59.            FF = filσ no⌠ found
  60.            06 = no⌠ CP/═ Plus 
  61.            05 = n∩ stamp≤ oε disk
  62.            04 = BIO╙ secto≥ sizσ ╛ 102┤ bytes
  63.            03 = drivσ invalid
  64.            02 = BIO╙ reaΣ error
  65.            01 = BIO╙ writσ error
  66.   USE╙ ║ AF
  67. SSTPC╨ (continued)
  68.  
  69.  Usage║ Thσ datestam≡ buffe≥ shoulΣ bσ filleΣ oε entr∙ t∩ BC─ áy∙ ì
  70. mφ áádΣ áhΦ ámiε áoµ áfilσ ácreation¼ álas⌠ áaccess¼ ááanΣ áálas⌠ ì
  71. modification¼ árespectively« á Iµ ávalid¼ (montΦ <╛ á0⌐ áthσ áBC─ ì
  72. creatioε áfielΣ i≤ copieΣ t∩ thσ CP/═ Plu≤ áCreate/Acces≤ áfield«  ì
  73. Otherwise¼ áthσ BC─ las⌠ acces≤ fielΣ i≤ used¼ o≥ thσ áCP/═ áPlu≤ ì
  74. Create/Acces≤ áfielΣ i≤ zeroeΣ iµ neithe≥ arσ valid« á Similarly¼ ì
  75. thσ BC─ las⌠ modificatioε fielΣ i≤ copieΣ t∩ thσ CP/═ Plu≤ Updatσ ì
  76. field¼ o≥ thσ Updatσ fielΣ i≤ zeroeΣ iµ thσ BC─ stam≡ i≤ invalid« ì
  77. Thσ áfilσ whosσ stam≡ i≤ t∩ bσ se⌠ mus⌠ eithe≥ bσ oε thσ ácurren⌠ ì
  78. drivσ o≥ a⌠ thσ drivσ specifieΣ b∙ FC┬ bytσ 0«  Onl∙ file≤ a⌠ thσ ì
  79. curren⌠ áuse≥ ánumbe≥ áwil∞ bσ matched«  T∩ áallo≈ áß áreasonablσ ì
  80. interfacσ ástandard¼ áthi≤ routinσ wil∞ NO╘ áworδ áunde≥ ásystem≤ ì
  81. configureΣ áwitΦ áBIO╙ ásector≤ álarge≥ áthaε á1k« á N∩ áásystem≤ ì
  82. exceedinτ áthi≤ sizσ havσ ye⌠ beeε encountered¼ bu⌠ BIO╙ ásector≤ ì
  83. oµ 2δ anΣ 4δ arσ technicall∙ lega∞ unde≥ CP/═ Plus«  N∩ wildcard≤ ì
  84. arσ alloweΣ iε thσ file'≤ FCB.
  85.