dtpar
* Subroutine to check for date parameters
* ©pjwitte September 27th 2006
*
section code
xdef dtpar
include dev8_keys_qdos_sms
include dev8_keys_qlv
*
dtpar
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* Get date parameters:
* if no parameters return current timestamp in d1,
* else return number of parameters in d0
*
* input:
* a3/a5 standard parameter pointers
*
* return: cc = set: Z => date in d1, <>Z => d0 pars
* d0 = error
* d1 = timestamp or first par
* d3 = number of pars
* d2/d4/d6/a0/a2 smashed
*
move.l a5,d3
sub.l a3,d3
ble.s rclck no pars so read clock
move.w sb.gtlin,a2
jsr (a2)
bne.s exit
move.l 0(a6,a1.l),d1
bra.s done
rclck
moveq #sms.rrtc,d0 none, read date from real time clock
trap #do.sms2
done
moveq #0,d0 set cc
exit
rts
*
end
Back to Index
HTML generated by the amazing asm2htm !
2006 Oct 01 00:36:38