2474
|
1 **********************************
|
|
2
|
|
3 * STRCPY: copy a null terminated string
|
|
4 * User must ensure there is room in buffer!!!
|
|
5
|
|
6 * OTHER MODULES NEEDED: STRNCPY
|
|
7
|
|
8 * ENTRY: X=start of string to move
|
|
9 * Y=buffer for copy of string
|
|
10
|
|
11 * EXIT: all regs preserved (except cc)
|
|
12
|
|
13
|
|
14 nam Copy Null Term. String
|
|
15 ttl Assembler Library Module
|
|
16
|
|
17
|
|
18 psect STRCPY,0,0,0,0,0
|
|
19
|
|
20 STRCPY:
|
|
21 pshs d
|
|
22 ldd #$ffff pass very long value to STRNCPY
|
|
23 lbsr STRNCPY move it
|
|
24 puls d,pc
|
|
25
|
|
26 endsect
|
|
27
|
|
28 |