6502/millfork
1
0
Fork 0
mirror of https://github.com/KarolS/millfork.git synced 2024-09-29 09:55:38 +00:00
Code Issues Projects Releases Wiki Activity

8080: Fix string module

Browse Source
This commit is contained in:
Karol Stasiak 2020-04-06 11:54:24 +02:00
parent 4ea8658d5b
commit f04f5ec111
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
include/string_fastpointers.mfk
View File

@ -34,6 +34,8 @@ void strzcopy(pointer dest, pointer src) {
___strzcopy_loop: ___strzcopy_loop:
LD A,(HL) LD A,(HL)
LD (DE),A LD (DE),A
INC HL
INC DE
? CP nullchar ? CP nullchar
? JP NZ, ___strzcopy_loop ? JP NZ, ___strzcopy_loop
} }
@ -47,6 +49,8 @@ void strzpaste(pointer dest, pointer src) {
? CP nullchar ? CP nullchar
? RET Z ? RET Z
LD (DE),A LD (DE),A
INC HL
INC DE
? JP ___strzpaste_loop ? JP ___strzpaste_loop
} }
} }