Path: utzoo!utgpu!news-server.csri.toronto.edu!rutgers!uwm.edu!ogicse!zephyr.ens.tek.com!tekchips!tekgvs!paulba
From: paulba@tekgvs.LABS.TEK.COM (Paul T. Barton)
Newsgroups: comp.os.os9
Subject: Touch.asm ...
Keywords: os9, coco2, coco3, touch
Message-ID: <8497@tekgvs.LABS.TEK.COM>
Date: 28 Nov 90 17:17:48 GMT
Reply-To: paulba@tekgvs.LABS.TEK.COM (Paul T. Barton)
Distribution: usa
Organization: Tektronix, Inc., Beaverton,  OR.
Lines: 49


	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