mirror of
https://github.com/KarolS/millfork.git
synced 2024-09-10 11:54:30 +00:00
25 lines
422 B
Plaintext
25 lines
422 B
Plaintext
|
|
#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
|
|
}
|
|
} |