1
0
mirror of https://github.com/KarolS/millfork.git synced 2024-12-22 16:31:02 +00:00
millfork/include/stdio_zxspectrum.mfk
2018-09-28 22:39:52 +02:00

28 lines
455 B
Plaintext

#if not(ZX_SPECTRUM)
#warn stdio_zxspectrum module should be only used on ZX Spectrum-compatible targets
#endif
#pragma zilog_syntax
import stdio
void putstr(pointer str, byte len) {
asm {
? LD DE,(str)
? LD A,(len)
? LD B, 0
? LD C, A
CALL 8252
}
}
void putstrz(pointer str) {
word length
length = strzlen(str)
asm {
? LD DE,(str)
? LD BC,(length)
CALL 8252
}
}