2474
|
1 **********************************
|
|
2
|
|
3 * STRHCPY: copy sign-bit terminated string
|
|
4 * User must ensure there is room in buffer!!!
|
|
5 * See also PARSNSTR, this routine does not change
|
|
6 * sign-bit termination.
|
|
7
|
|
8 * OTHER MODULES NEEDED: strhlen,memmove
|
|
9
|
|
10
|
|
11 * ENTRY: X=start of string to move
|
|
12 * Y=buffer for copy of string
|
|
13
|
|
14
|
|
15 * EXIT: all regs preserved (except cc)
|
|
16
|
|
17
|
|
18 nam Copy sign-bit terminated String
|
|
19 ttl Assembler Library Module
|
|
20
|
|
21
|
|
22 psect STRHCPY,0,0,0,0,0
|
|
23
|
|
24 STRHCPY:
|
|
25 pshs d
|
|
26 lbsr STRHLEN find length of string
|
|
27 lbsr MEMMOVE move it
|
|
28 puls d,pc
|
|
29
|
|
30 endsect
|
|
31
|
|
32 |