millfork/include/zxspectrum.mfk

#if not(ZX_SPECTRUM)
#warn zxspectrum module should be only used on ZX Spectrum-compatible targets
#endif

#pragma zilog_syntax

inline asm void putchar(byte a) {
    rst $10
    ? ret
}

inline void new_line() {
    putchar(13)
}

inline asm void set_border(byte a) {
    out (254),a
    ? ret
}

inline asm void bell() {
    ? ld hl,$6A
    ? ld de,$105
    ? call $3B5
    ? ret
}

const byte black = 0
const byte blue = 1
const byte red = 2
const byte purple = 3
const byte green  = 4
const byte cyan = 5
const byte yellow = 6
const byte white = 7