2018-07-12 16:30:35 +00:00
|
|
|
|
|
|
|
#if not(ZX_SPECTRUM)
|
|
|
|
#warn zxspectrum module should be only used on ZX Spectrum-compatible targets
|
|
|
|
#endif
|
|
|
|
|
2018-08-03 11:23:37 +00:00
|
|
|
#pragma zilog_syntax
|
|
|
|
|
2018-07-04 22:50:13 +00:00
|
|
|
inline asm void putchar(byte a) {
|
|
|
|
rst $10
|
|
|
|
? ret
|
|
|
|
}
|
2018-07-12 16:30:35 +00:00
|
|
|
|
2018-12-17 16:18:29 +00:00
|
|
|
inline void new_line() {
|
|
|
|
putchar(13)
|
|
|
|
}
|
|
|
|
|
2018-07-12 16:30:35 +00:00
|
|
|
inline asm void set_border(byte a) {
|
|
|
|
out (254),a
|
|
|
|
? ret
|
|
|
|
}
|
|
|
|
|
2018-12-17 16:18:29 +00:00
|
|
|
inline asm void bell() {
|
|
|
|
? ld hl,$6A
|
|
|
|
? ld de,$105
|
|
|
|
? call $3B5
|
|
|
|
? ret
|
|
|
|
}
|
|
|
|
|
2018-07-12 16:30:35 +00:00
|
|
|
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
|