Mercurial > hg > Members > kono > nitros9-code

view lib/alib/stimestr.a @ 2668:07441dfebc27 lwtools-port

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Make tocgen build with lwasm lwasm does not treat a trailing colon as part of the symbol name. Removed trailing colons on symbol references.
author William Astle <lost@l-w.ca>
date Sun, 10 Jun 2012 13:35:44 -0600
parents 7d70b7e1cb21
children aaba193af04f
line wrap: on
line source

*****************************************

* Get current system time as an ascii string.


* OTHER MODULES NEEDED: DATESTR

* ENTRY:  X=buffer for ascii

* EXIT: all registers preserved (except cc)

 nam Get System Time String
 ttl Assembler Library Module


 psect STIMESTR,0,0,0,0,0

STIMESTR:
 pshs x,y
 tfr x,y ascii buffer to Y
 leas -7,s buffer for time packet
 tfr s,x
 os9 F$Time get system time
 lbsr DATESTR convert to ascii in Y buffer
 leas 7,s
 puls x,y,pc

 endsect
t