Kempston Mouse Interface Driver

mouse.asm v1.0

Крис Коули 2003

Водитель Кемпстон ​​мышь Интерфейс для Spectrum BASIC.

Это 831 байт машинного кода утилита позволяет добавлять Kempston поддержка мыши на любой Spectrum BASIC программы с легкостью и простота.

Чтобы использовать его: –

 1. Очистите 59999 и загрузить файл кода 831 байт из mouse.tap     в 60000 (нагрузка “” CODE 60000).

 2. В вашем BASIC программы, добавьте следующие строки: –

9900 LET BTN = USR 60000

        9910 Пусть X = PEEK 60827         9920 LEY у = PEEK 60828         9930 ВОЗВРАЩЕНИЕ

 3. Всякий раз, когда вы хотите показать мышь с вашего BASIC

    Программа, просто использовать GOSUB 9900. Когда функция возвращает     “БТН” будет содержать кнопку мыши нажал (2 = левая, 1 = правый,     3 = обе кнопки вместе), “х” будет содержать мыши X     Положение на экране (от 0 до 255) и “у” будет содержать     мышь Y позиция (от 0 до 175). Просто!

Вы можете использовать этот код свободно, но я хотел бы получить кредит!