Mercurial > hg > Members > kono > nitros9-code

annotate lib/alib/stimestr.a @ 2664:09feb97c181f lwtools-port

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Initial changes to use lwasm instead of mamou Initial high level changes to use lwasm instead of mamou.
author William Astle <lost@l-w.ca>
date Sun, 10 Jun 2012 12:40:11 -0600
parents 7d70b7e1cb21
children aaba193af04f
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
2474
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
1 *****************************************
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
2
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
3 * Get current system time as an ascii string.
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
4
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
5
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
6 * OTHER MODULES NEEDED: DATESTR
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
7
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
8 * ENTRY: X=buffer for ascii
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
9
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
10 * EXIT: all registers preserved (except cc)
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
11
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
12 nam Get System Time String
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
13 ttl Assembler Library Module
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
14
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
15
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
16 psect STIMESTR,0,0,0,0,0
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
17
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
18 STIMESTR:
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
19 pshs x,y
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
20 tfr x,y ascii buffer to Y
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
21 leas -7,s buffer for time packet
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
22 tfr s,x
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
23 os9 F$Time get system time
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
24 lbsr DATESTR convert to ascii in Y buffer
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
25 leas 7,s
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
26 puls x,y,pc
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
27
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
28 endsect
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
29 t