mirror of
https://github.com/KarolS/millfork.git
synced 2024-09-11 02:55:10 +00:00
37 lines
553 B
Plaintext
37 lines
553 B
Plaintext
|
|
#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
|