mirror of
https://github.com/KarolS/millfork.git
synced 2024-12-25 06:29:17 +00:00
101 lines
1.3 KiB
Plaintext
101 lines
1.3 KiB
Plaintext
#if ATARI_8
|
|
const byte KEY_ENTER = 155
|
|
#else
|
|
const byte KEY_ENTER = 13
|
|
#endif
|
|
|
|
|
|
#if CBM_64
|
|
noinline asm byte readkey() {
|
|
__read_key__start:
|
|
LDA $C6
|
|
BEQ __read_key__start
|
|
JMP $E5B4
|
|
}
|
|
#define OK = 1
|
|
#endif
|
|
|
|
|
|
#if CBM_128
|
|
noinline asm byte readkey() {
|
|
__read_key__start:
|
|
LDA $D0
|
|
BEQ __read_key__start
|
|
LDX #0
|
|
JMP $C244
|
|
}
|
|
#define OK = 1
|
|
#endif
|
|
|
|
|
|
#if CBM_264
|
|
noinline asm byte readkey() {
|
|
__read_key__start:
|
|
LDA $EF
|
|
BEQ __read_key__start
|
|
LDX #0
|
|
JMP $D8D5
|
|
}
|
|
#define OK = 1
|
|
#endif
|
|
|
|
|
|
#if CBM_VIC
|
|
noinline asm byte readkey() {
|
|
__read_key__start:
|
|
LDA $C6
|
|
BEQ __read_key__start
|
|
JMP $E5CF
|
|
}
|
|
#define OK = 1
|
|
#endif
|
|
|
|
|
|
#if ATARI_8
|
|
noinline asm byte readkey() {
|
|
lda #$C
|
|
sta $2A
|
|
lda $E425
|
|
pha
|
|
lda $E424
|
|
pha
|
|
rts
|
|
}
|
|
#define OK = 1
|
|
#endif
|
|
|
|
|
|
#if NEC_PC_88
|
|
asm byte readkey() @$3583 extern
|
|
#define OK = 1
|
|
#endif
|
|
|
|
|
|
#if AMSTRAD_CPC
|
|
asm byte readkey() @$BB06 extern
|
|
#define OK = 1
|
|
#endif
|
|
|
|
|
|
#if ZX_SPECTRUM
|
|
#pragma zilog_syntax
|
|
asm byte readkey() {
|
|
ld hl,23560
|
|
ld (hl),0
|
|
__readkey__start:
|
|
ld a,(hl)
|
|
or a
|
|
jr z,__readkey__start
|
|
? ret
|
|
}
|
|
#define OK = 1
|
|
#endif
|
|
|
|
|
|
#if not(OK)
|
|
#if KEYBOARD
|
|
#warn keyboard module is not yet supported
|
|
#else
|
|
#warn keyboard module is not supported on targets without keyboard
|
|
#endif
|
|
#endif |