date


* S*BASIC Date routine
* Replaces existing DATE function!
*
* Re-packaged by pjwitte 2oo6
* V0.02
*
        section code

        xdef DATE

        xref dtpar
        xref ut_cvdt
        xref retflt

        include dev8_keys_err

*
DATE
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* Convert date data into seconds, offset from 1961 Jan 01 00:00:00
*
* dt = DATE[(yyyy, mm, dd, hh, mm, ss)]
*

        bsr dtpar               count pars or get timestamp if none

        bne.s exit

        tst.w d3                no pars?
        beq retflt               just return current time

        subq.l #6,d3            six pars?
        bne.s err_ipar           no, some mistake

        bsr ut_cvdt

        bra retflt

*
err_ipar
        moveq #err.ipar,d0

exit
       rts

*
       end

Back to Index
HTML generated by the amazing asm2htm !
2006 Oct 01 00:36:26