2474
|
1 *****************************************
|
|
2
|
|
3 * Get current system time as an ascii string.
|
|
4
|
|
5
|
|
6 * OTHER MODULES NEEDED: DATESTR
|
|
7
|
|
8 * ENTRY: X=buffer for ascii
|
|
9
|
|
10 * EXIT: all registers preserved (except cc)
|
|
11
|
|
12 nam Get System Time String
|
|
13 ttl Assembler Library Module
|
|
14
|
|
15
|
|
16 psect STIMESTR,0,0,0,0,0
|
|
17
|
|
18 STIMESTR:
|
|
19 pshs x,y
|
|
20 tfr x,y ascii buffer to Y
|
|
21 leas -7,s buffer for time packet
|
|
22 tfr s,x
|
|
23 os9 F$Time get system time
|
|
24 lbsr DATESTR convert to ascii in Y buffer
|
|
25 leas 7,s
|
|
26 puls x,y,pc
|
|
27
|
|
28 endsect
|
|
29 t |