6502/millfork
1
0
Fork 0
mirror of https://github.com/KarolS/millfork.git synced 2024-12-23 08:29:35 +00:00
Code Issues Projects Releases Wiki Activity

Some fixes to encconv. Added two more functions.

Browse Source
This commit is contained in:
Karol Stasiak 2020-04-06 03:16:51 +02:00
parent 320b84edb9
commit b21b04efeb
2 changed files with 38 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
docs/stdlib/encconv.md
View File

@ -53,6 +53,18 @@ Destructively converts a null-terminated string from the `scr` encoding into the
Available only if `from_screencode` is available.
#### void pstr_to_screencode(pointer)
Destructively converts a length-prefixed string from the `default` encoding into the `scr` encoding.
Available only if `to_screencode` is available.
#### void pstr_from_screencode(pointer)
Destructively converts a length-prefixed string from the `scr` encoding into the `default` encoding.
Available only if `from_screencode` is available.
#### byte petscii_to_petscr(byte)
Converts a byte from PETSCII to a CBM screencode.

34
include/encconv.mfk
View File

@ -1,24 +1,26 @@
#if ENCODING_SAME
#if ARCH_6502
inline byte __byte_identity(byte register(a) value) { ? rts }
inline void __pointer_to_void(pointer register(ax) value) { ? rts }
inline asm byte __byte_identity(byte register(a) value) { ? rts }
inline asm void __pointer_to_void(pointer register(ax) value) { ? rts }
#elseif ARCH_I80
#pragma zilog_syntax
inline byte __byte_identity(byte register(a) value) { ? ret }
inline void __pointer_to_void(pointer register(hl) value) { ? ret }
inline asm byte __byte_identity(byte register(a) value) { ? ret }
inline asm void __pointer_to_void(pointer register(hl) value) { ? ret }
#elseif ARCH_M6809
inline byte __byte_identity(byte register(b) value) { ? rts }
inline void __pointer_to_void(pointer register(d) value) { ? rts }
inline asm byte __byte_identity(byte register(b) value) { ? rts }
inline asm void __pointer_to_void(pointer register(d) value) { ? rts }
#else
inline byte __byte_identity(byte register(a) value) = a
inline void __pointer_to_void(pointer register(a) value) { }
inline byte __byte_identity(byte value) = a
inline void __pointer_to_void(pointer value) { }
#endif
alias from_screencode = __byte_identity
alias to_screencode = __byte_identity
alias strz_from_screencode = __pointer_to_void
alias strz_to_screencode = __pointer_to_void
alias pstr_from_screencode = __pointer_to_void
alias pstr_to_screencode = __pointer_to_void
#elseif ENCCONV_SUPPORTED
@ -80,6 +82,22 @@ void strz_to_screencode(pointer p) {
p += 1
}
}
void pstr_from_screencode(pointer p) {
byte i, l
l = p[0]
for i,1,parallelto,l {
p[i] = from_screencode(p[i])
}
}
void pstr_to_screencode(pointer p) {
byte i, l
l = p[0]
for i,1,parallelto,l {
p[i] = to_screencode(p[i])
}
}
#endif
#endif // ENCODING_SAME/ENCCONV_SUPPORTED