Star Tip 8

Звезда Совет 8 – 128K подпрограммы – “Программа Pitstop” Дэвид Джонс от Your Sinclair 24 (Dec.1987)

Дэвид Джонс не привыкать к этим страницам, внеся

блестящий маленький совет для прошлого месяца магазин. Будучи щедрым вид кишка, он перечислил некоторые полезные процедуры для 128 программистов, которые Вы можете использовать, чтобы сделать действительно whizzy игры. Не так много объяснение необходимы, потому что подпрограммы прокомментирован, но вот быстрый возобновить то, что они делают.

PSWAP – 128 страницы подкачки

PAGEA – называет подпрограмму на любой странице IMODESET – настраивает прерывания режима 2 Imode – Обработчик прерывания MUSICON, MUSICOFF, Playit – образцы, как позвонить подпрограмма

[Там не было никакой рутины MUSICOFF перечислены в журнале. JimG]

RAM СТР РАСПРЕДЕЛЕНИЕ

— ROM — – Страница 2 – – ИСПРАВЛЕНО RAM – –

           ! – SCREEN $ 1 -! – Страница 5 -! USL Страница 0 – обычно проживает AT C000h Векторов прерываний и основной код СТР 1 – AT C000H Страница 2 – FIXED RAM страницы в 4000H Страница 3 – AT C000H Страница 4 – AT C000H СТР 5 – ИСПРАВЛЕНО RAM страницы в 8000H Page 6 – AT C000H Страница 7 – SCREEN $ 2 AT C000H

MUSICFLG: DB 0

DEFSCR: DB 0 FIXPAGE: DB 0 PAGENO: DB 0

; Примечание: Эти функции должны быть размещены ниже C000H, чтобы работать должным образом.

; Сбои привести в противном случае.

PAGEPORT: EQU 7FFDH

; Эта подпрограмма будет изменить страницу в C000H.

; Входные условия: ; Регистр = количество новая страница ; Выход Условия: ; FIXPAGE содержит новый номер страницы ; Регистр = значение отправлен в порт ; Все остальные регистры сохраняется

PSWAP: PUSH BC

          LD (FIXPAGE),           LD C,           LD, (DEFSCR)           ADD A, C, добавить 8, если альтернативный экран на шоу           ИЛИ 16           LD BC, PAGEPORT; обеспечить Spectrum ROM всегда настоящий           OUT (C),           POP BC           RET

; Вызов подпрограммы по данной странице на указанный адрес.

; Входные условия: ; Регистр = номер страницы ; HL пару регистров = адрес подпрограммы ; Выход Условия: ; FIXPAGE содержит новый номер страницы ; Регистр = значение отправлен в порт ; Все остальные регистры сохраняется

PAGEA: LD (PAGEAV + 1), HL

          ВЫЗОВ PSWAP PAGEAV: ПРИЗЫВ 0; назвать адрес поставляется в HL на въезд в PAGEA           PUSH AF           XOR           ВЫЗОВ PSWAP; набор страница 0 вместо (обычная страница 48K)           POP AF           RET

; Music Control Подпрограммы

MUSICON: LD HL, пн; адрес Музыка На подпрограмму

          LD, MPAGE; номер страницы, где музыка хранится           JR PAGEA

Playit: LD, (MUSICFLG)           ИЛИ           RET Z           LD HL, MPLAY; адрес Play Music подпрограммы           LD, MPAGE; номер страницы, где музыка хранится           JR PAGEA

; Настройка прерываний Режим

; Топ полезной адрес памяти равен 0FFF3H (65523)

;-За прерывания управляющий код.

; FFF4H IVECTOR: JP Imode ; FFF7H @ BB8: DS 8; (8 байт температура магазин буфер) ; FFFFH JR IVECTOR

IMODESET: POP HL; адрес возврата

          LD SP, NEWSTACK           PUSH HL           XOR           LD (DEFSCR),           LD (IY + 65),; Imode от           LD (IY + 87), 3; OVER 1           LD (IY + 48), 8; CAPS на           LD HL, IMODETAB IMODELP: LD, (HL)           CP 255           JR Z, IMODELX           PUSH HL           ВЫЗОВ PSWAP           LD, 18H           LD (0FFFFH),           LD, 0C3H           LD (0FFF4H),; JP Imode           LD HL, Imode           LD (0FFF5H), HL           POP HL           INC HL           JR IMODELP IMODELX: XOR           ВЫЗОВ PSWAP           LD HL, 0BE00H           LD A, H; место в I рег ниже           LD DE, 0BE01H           LD BC, 256           LD (HL), 255           LDIR; построить 257 * 0FFh стол           DI           LD I, A           Е.И.

          HALT           XOR           LD (IY + 65),           IM 2; повторное наведение прерывания           RET

IMODETAB: DB 0,1,3,4,6,7,255

; Обработка прерываний

; Заметим, что это что-то полезное не сделать здесь кроме играют мелодию, ;, Который может быть размещен на другой странице. Я включил его так, чтобы ; Вы можете разместить свои собственные подпрограмм ниже (т.е. спрайтов.).

Imode: PUSH AF           LD, (FIXPAGE)           LD (IMODEV + 1),           ВЫЗОВ Playit ; Поместите подпрограмм здесь           LD HL, (КАДРЫ)           INC HL           LD (КАДРЫ), HL           LD A, H           ИЛИ L           JR NZ, IMODEX           INC (IY + 64); КАДРЫ + 2 IMODEX: CALL 02BFH; сканирование клавиатуры IMODEV: LD, 0           ВЫЗОВ PSWAP ; Теперь POP все регистры, которые вы выдвинули ранее.

          POP AF           Е.И.

          RET