[an error occurred while processing this directive]
|
1 .title strcpy
2 .ident /150706/
3
0000 4 strcpy::
0000 9e 0d 5 st ix, -@sp ; Save registers on stack
0002 be 0d 6 st iy, -@sp ;
0004 96 0c 06 00 7 ld ix, 6(sp) ; Get string pointers
0008 b6 0c 08 00 8 ld iy, 8.(sp) ;
000c 04 0c 9 ld r0, ix ; Save dst pointer for return
000e 39 0c 10 1$: ld r1, @iy+ ; Copy byte
0010 38 0d 11 st r1, @ix+ ;
0012 fd 62 12 bne 1$ ; and loop if not done yet
13
0014 ba 0c 14 ld iy, @sp+ ; Restore registers off stack
0016 9a 0c 15 ld ix, @sp+ ;
0018 fe 0c 16 ret
001a 17 .end