paulba@tekgvs.LABS.TEK.COM (Paul T. Barton) (11/29/90)
Here is my working version of a program that updates the
time and date parameters of os9 (level 1 version 2) files. Touch
doesn't create files, just updates them.
I needed it because the program RS2OS9.BAS doesn't know
about date and time stuff (always came out 00/00/00 0000).
---------------- CUT HERE --------------------------------
nam touch
ttl change file date, time only
*
* later mod(s) to be added:
* 1) create empty file.
*
ifp1
use /d0/sys/os9defs
endc
*
mod eom,name,type,revs,start,size
*
name fcs /touch/
*
rev equ 1
type set prgrm+objct
revs set reent+rev
*
stack rmb 100
size equ .
*
start lda #$03 * update file mode
os9 i$open * A=file path number
clrb * probably not needed
os9 i$close * A has file path number
clrb * probably needed
os9 f$exit
*
emod
eom equ *
end
---------------- CUT HERE --------------------------------
Paul Taylor Barton CSNet: paulba@tekgvs.LABS.TEK.COM
ARPA: paulba%tekgvs.LABS.TEK.COM@RELAY.CS.NET
UUCP: uunet!tektronix!tekgvs!paulba
MAIL: Tektronix, Inc. PO Box 500, MS 50-370 Beaverton, OR. 97077 (503)-627-6134
HOME: 8120 S.E. Lake Road #4, Milwaukie, OR. 97267-2311, (503)-659-9417