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