home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CP/M
/
CPM_CDROM.iso
/
beehive
/
zsus
/
zsus009.lbr
/
ZSLIBHLP.LBR
/
ZSLIB1.HZP
/
ZSLIB1.HLP
Wrap
Text File
|
1990-07-14
|
4KB
|
85 lines
Ge⌠ ZSDO╙ Filσ Datestampé ¡ GETSTP
Se⌠ ZSDO╙ Filσ Datestampé ¡ SETSTP
Ge⌠ CP/M-Plu≤ Filσ Datestampé ¡ GSTPCP
Se⌠ CP/M-Plu≤ Filσ Datestampé ¡ SSTPCP
:GETST╨é ¡ Ge⌠ ZSDO╙ filσ datestam≡ to 128-bytσ buffer
ENTER║ DE ╜ addres≤ oµ file'≤ FCB.
HL ╜ addres≤ oµ 128-bytσ datestam≡ buffer.
EXI╘ ║ Zer∩ flaτ se⌠ (Z⌐ anΣ A=░ iµ buffe≥ filled,
Zer∩ flaτ rese⌠ (NZ⌐ iµ error.
USE╙ ║ AF
Usage║ áBuffe≥ i≤ filleΣ witΦ 1╡-bytσ datestam≡ a≤ y∙ mφ ádΣ áhΦ ì
miε áoµ áfilσ ácreation¼ álas⌠ áaccess¼ áanΣ álas⌠ ámodification¼ ì
respectively« á Iµ áfilσ ái≤ no⌠ a⌠ defaul⌠ drive¼ áFC┬ ámus⌠ ábσ ì
initializeΣ witΦ drive« Iµ filσ i≤ no⌠ a⌠ defaul⌠ user¼ FC┬ mus⌠ ì
bσ initializeΣ witΦ use≥ numbe≥ anΣ ZSDO╙ erro≥ modσ se⌠ t∩ ánoε-ì
zero.
:SETST╨ ¡ Se⌠ filσ datestam≡ froφ 128-bytσ buffer
ENTER║ D┼ ╜ addres≤ oµ file'≤ FCB.
H╠ ╜ addres≤ oµ 128-bytσ datestam≡ buffer.
EXI╘ ║ Zer∩ flaτ se⌠ (Z⌐ anΣ A=░ iµ filσ stamped,
Zer∩ flaτ rese⌠ (NZ⌐ iµ error.
USE╙ ║ AF
Usage║ áBuffe≥ i≤ filleΣ witΦ 1╡-bytσ datestam≡ a≤ y∙ mφ ádΣ áhΦ ì
miε áoµ áfilσ ácreation¼ álas⌠ áaccess¼ áanΣ álas⌠ ámodification¼ ì
respectively« á Iµ áfilσ ái≤ no⌠ a⌠ defaul⌠ drive¼ áFC┬ ámus⌠ ábσ ì
initializeΣ witΦ drive« Iµ filσ i≤ no⌠ a⌠ defaul⌠ user¼ FC┬ mus⌠ ì
bσ initializeΣ witΦ use≥ numbe≥ anΣ ZSDO╙ erro≥ modσ se⌠ t∩ ánoε-ì
zero.
:GSTPC╨ ¡ Ge⌠ filσ datestam≡ froφ CP/═ Plu≤ t∩ 128-bytσ buffer
ENTER║ DE ╜ addres≤ oµ file'≤ FCB.
H╠ ╜ addres≤ oµ 128-bytσ datestam≡ buffer.
EXI╘ ║ Zer∩ flaτ se⌠ (Z⌐ anΣ A=░ iµ buffe≥ filled,
Zer∩ flaτ rese⌠ (NZ⌐ iµ error.
USE╙ ║ AF
Usage║ Iµ filσ i≤ no⌠ a⌠ defaul⌠ drive¼ FC┬ mus⌠ bσ áinitializeΣ ì
witΦ ádrive« á Filσ ámus⌠ ábσ a⌠ defaul⌠ áuser« á Filσ ástam≡ ái≤ ì
converteΣ át∩ áDateStampe≥ áforma⌠ á(y∙ mφ ádΣ áhΦ ámiε áoµ áfilσ ì
creation¼ álas⌠ access¼ anΣ las⌠ modification¼ árespectively¼ áiε ì
BCD)« á Thσ CP/═ Plu≤ create/acces≤ stam≡ i≤ copieΣ t∩ ábotΦ áthσ ì
creatσ áanΣ áacces≤ field≤ oµ thσ caller'≤ buffer« á Thσ ácallinτ ì
prograφ ámus⌠ examinσ thσ disδ labe∞ t∩ determinσ whicΦ áfield(s⌐ ì
arσ ávalid« á Oε áexit¼ onl∙ thσ firs⌠ 1╡ byte≤ oµ ádatß áiε áthσ ì
caller'≤ buffe≥ arσ valid.
:SSTPC╨ ¡ Se⌠ filσ datestam≡ t∩ CP/═ Plu≤ froφ 128-bytσ buffer
ENTER║ D┼ ╜ addres≤ oµ file'≤ FCB.è H╠ ╜ addres≤ oµ 128-bytσ datestam≡ buffer.
B├ ╜ addres≤ oµ 1024-bytσ DM┴ buffer.
EXI╘ ║ Zer∩ flaτ se⌠ anΣ A=░ iµ stam≡ set,
Zer∩ flaτ rese⌠ (NZ⌐ iµ error¼ erro≥ iε <A>:
FF = filσ no⌠ found
06 = no⌠ CP/═ Plus
05 = n∩ stamp≤ oε disk
04 = BIO╙ secto≥ sizσ ╛ 102┤ bytes
03 = drivσ invalid
02 = BIO╙ reaΣ error
01 = BIO╙ writσ error
USE╙ ║ AF
SSTPC╨ (continued)
Usage║ Thσ datestam≡ buffe≥ shoulΣ bσ filleΣ oε entr∙ t∩ BC─ áy∙ ì
mφ áádΣ áhΦ ámiε áoµ áfilσ ácreation¼ álas⌠ áaccess¼ ááanΣ áálas⌠ ì
modification¼ árespectively« á Iµ ávalid¼ (montΦ <╛ á0⌐ áthσ áBC─ ì
creatioε áfielΣ i≤ copieΣ t∩ thσ CP/═ Plu≤ áCreate/Acces≤ áfield« ì
Otherwise¼ áthσ BC─ las⌠ acces≤ fielΣ i≤ used¼ o≥ thσ áCP/═ áPlu≤ ì
Create/Acces≤ áfielΣ i≤ zeroeΣ iµ neithe≥ arσ valid« á Similarly¼ ì
thσ BC─ las⌠ modificatioε fielΣ i≤ copieΣ t∩ thσ CP/═ Plu≤ Updatσ ì
field¼ o≥ thσ Updatσ fielΣ i≤ zeroeΣ iµ thσ BC─ stam≡ i≤ invalid« ì
Thσ áfilσ whosσ stam≡ i≤ t∩ bσ se⌠ mus⌠ eithe≥ bσ oε thσ ácurren⌠ ì
drivσ o≥ a⌠ thσ drivσ specifieΣ b∙ FC┬ bytσ 0« Onl∙ file≤ a⌠ thσ ì
curren⌠ áuse≥ ánumbe≥ áwil∞ bσ matched« T∩ áallo≈ áß áreasonablσ ì
interfacσ ástandard¼ áthi≤ routinσ wil∞ NO╘ áworδ áunde≥ ásystem≤ ì
configureΣ áwitΦ áBIO╙ ásector≤ álarge≥ áthaε á1k« á N∩ áásystem≤ ì
exceedinτ áthi≤ sizσ havσ ye⌠ beeε encountered¼ bu⌠ BIO╙ ásector≤ ì
oµ 2δ anΣ 4δ arσ technicall∙ lega∞ unde≥ CP/═ Plus« N∩ wildcard≤ ì
arσ alloweΣ iε thσ file'≤ FCB.