1
0
mirror of https://github.com/KarolS/millfork.git synced 2024-10-30 06:24:09 +00:00
millfork/include/stdio_zxspectrum.mfk

25 lines
422 B
Plaintext
Raw Normal View History

#if not(ZX_SPECTRUM)
#warn stdio_zxspectrum module should be only used on ZX Spectrum-compatible targets
#endif
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 = strzlen(str)
asm {
? LD DE,(str)
? LD BC,(length)
CALL 8252
}
}