Компьютер "ZXM-Jasper" - Обсуждение

Решил, пока не спаяв дискогрызный контроллер, проверить магнитофонный вход на 128Кб конфигурации.
Сразу оговорюсь, что интенсивно с магнитофонным интерфейсом я работал когда у меня был 48кб Спектрум (отечественный клон естественно), а когда появилась машина с 128кб и дискогрызом, то про магнитофонный вход я забыл напрочь.

Так вот, сейчас, пока нет дискогрыза решил вернуться. Взял запись оригинальной кассеты с Диззи коллекшен (импортная) и попробовал ввести.
Вот вроде и грузятся картинки и полоски по экрану бегают, но упорно все сваливаются в 1982 Бейсик. Правда в Диззи 3 еще успел сказать свою фразу Фэнтези ворлд Диззи и опять в Бейсик.
Загружал через Winamp c компа.

Вопрос, оригинальные Диззи (записи) чем то отличались от записей отечественного разлива, т.е. работали они на наших 128кб клонах. Мне бы понять причину, то ли косяк с верхней памятью или еще что.

А пока вот пару скриншотов процесса заргузки

http://s019.radikal.ru/i640/1711/4a/4298b390b946t.jpg

http://s48.radikal.ru/i122/1711/61/59d63e1db599t.jpg

P.S. Записал в ПЗУ тест DiagROM v1.27, потестировал - Пишет что память в порядке.

usr0?

Цитата:

Сообщение от creator

usr0?

В смысле, мне бы на пальцах как для AAA.

Более того скачал отсюда tzx файл Dizzy 3 - http://zx-games.ru/dizzy-3-fantasy-world-dizzy/
Ситуация повторилась - говорит оцифровку и привет в бейсик.

Ну как на не совсем корректных дисковых версиях, рекомендуют загружать не из basic128, а сначала сделать usr0.

Цитата:

Сообщение от creator

Ну как на не совсем корректных дисковых версиях, рекомендуют загружать не из basic128, а сначала сделать usr0.

А причем тут дисковых версиях. Я пробовал загружать через магнитофонный вход
1. оцифрованные фирменные кассеты
2. tzx файл Dizzy 3

Поведение одинаково. Вот я и спрашиваю, какие могут быть причины. Может ПЗУ-ха правленная. Сейчас я поставил ПЗУ от ZX-777. Увы я не помню, загружал ли я на нем с магнитофона, скорее нет чем да. Или в 128кб режиме как то по хитрому загружаться должна.
Я не знаток, но хотелось бы понять.

- - - Добавлено - - -

Попробовал ПЗУ от Пентагона - все тоже. Значит не в ПЗУ дело наверное.

Цитата:

Сообщение от Mick

Взял запись оригинальной кассеты с Диззи коллекшен (импортная) и попробовал ввести.
Вот вроде и грузятся картинки и полоски по экрану бегают, но упорно все сваливаются в 1982 Бейсик. Правда в Диззи 3 еще успел сказать свою фразу Фэнтези ворлд Диззи и опять в Бейсик.
Загружал через Winamp c компа.

А где на исходники проекта можно посмотреть?
Как там порт чтения клавиатуры и магнитофона реализованы?

Цитата:

Сообщение от andykarpov

А где на исходники проекта можно посмотреть?
Как там порт чтения клавиатуры и магнитофона реализованы?

Можно, но я пока рисую на AHDL :)

Код:

---------------------------------------------------------------------------------------------------------------------------- -- Описание: Прошивка микросхемы CPLD DD1 (модуль EPM3256AQC208_IGP1) -- Проект: ZXM-Jasper -- Автор: Тарасов М.Н. (Mick) -- Тип CPLD: EPM3256AQC208 -- Версия: v1.00 - 2017 ---------------------------------------------------------------------------------------------------------------------------- TITLE "ZXM-Jasper System Array Logic"; FUNCTION 2mux1 (a, b, sel) RETURNS (y); SUBDESIGN MODULE_CPLD ( -- Входная тактовая частота CLK CLK_14MHZ : INPUT; -- Сигналы управления RAM памятью MA[16..0] : OUTPUT; MD[7..0] : BIDIR; WR_RAM : OUTPUT; CS_RAML : OUTPUT; CE_RAM2 : OUTPUT; -- Выходные сигналы видео формирователя VD[7..0] : OUTPUT; HS : OUTPUT; VS : OUTPUT; GI : OUTPUT; -- Сигналы управления ROM памятью ROM_A14 : OUTPUT; ROM_A15 : OUTPUT; RD_ROM : OUTPUT; WR_ROM : OUTPUT; CS_ROM : OUTPUT; -- Сигналы управления с CPU CA[15..0] : INPUT; CD[7..0] : BIDIR; C_CLK : OUTPUT; C_IORQ : INPUT; C_MREQ : INPUT; C_M1 : INPUT; C_RD : INPUT; C_WR : INPUT; C_RFSH : INPUT; -- Общие сигналы C_RESET : INPUT; C_MAGIC : INPUT; C_IORQGE : INPUT; C_INT : OUTPUT; C_NMI : OUTPUT; C_BLK : INPUT; --OUTPUT; C_BUSRQ : INPUT; --OUTPUT; C_WAIT : INPUT; --OUTPUT; C_IODOS : INPUT; --OUTPUT; C_DOS : OUTPUT; -- Сигналы YM2149 AYCLK : OUTPUT; BC1 : OUTPUT; BDIR : OUTPUT; -- Сигналы порта FE TAPE_IN : INPUT; TAPE_OUT : OUTPUT; BEEP : OUTPUT; -- Сигналы выбора джойстика RD_1F : OUTPUT; -- Скандаблер PA[14..0] : OUTPUT; -- адреса знакомест VWR : OUTPUT; -- сигнал записи в видеобуфер PD[5..0] : BIDIR; -- данные -- Сигналы клавиатуры KBD_CS : INPUT; KBD_CLK : INPUT; KBD_DI : INPUT ) VARIABLE Sync_count[2..0] : DFF; -- 4-х разрядный счетчик, сигналы TI, H0, H1 Clk_reg : DFF;--системный регистр CLKZ : NODE;-- частота процессора H0M : NODE;-- частота селектора памяти H1M : NODE;-- частота селектора памяти VCLK : NODE; -- опорная частота видеочетчиков HSync_count[6..0]: DFF; -- 6-и разрядный счетчик строчной разверкти, сигналы H3..H8 HReset : NODE; -- сброс счетчиков строчной развертки HBlank : NODE; -- сигнал гашения видеосигнала строчный HBlank1 : NODE; -- сигнал гашения видеосигнала строчный HBlank2 : NODE; -- сигнал гашения видеосигнала строчный HBlank3 : DFF; -- сигнал гашения видеосигнала строчный HBorder : NODE; -- сигнал строчного бордера HSync : DFF; -- строчный синхроимпульс HSync1 : DFF; -- синхроимпульс счета кадровых счетчиков VSync_count[8..0] : DFF; -- 10-и разрядный счетчик кадровый развертки, сигналы V0..V9 VReset : NODE; --сброс счетчиков кадровой развертки VSync : DFF; -- кадровый синхроимпульс VBorder : NODE; -- сигнал кадрового бордера Border_sync : DFF; -- строб бордера Int_sync : DFF; -- строб прерывания Int_count[3..0] : DFF; -- 4-и разрядный счетчик длительности прерывания Flash_count[4..0] : DFF; -- 6-и разрядный счетчик мерцания, сигнал FLASH REG_rddata[7..0] : TRI; -- буфер чтения памяти DATA_CPU[7..0] : TRI_STATE_NODE; -- Сигналы управления памятью WR_Buf : LCELL; -- запись в буферный регистр VA[4..0] : NODE; -- адрес видео памяти RA[2..0] : NODE; -- адрес видео памяти Sel_A45 : NODE; -- доступ к ОЗУ Ram_write_r : DFF; -- запись в ОЗУ Ram_wrdata[7..0]: TRI; -- буфер записи в ОЗУ Ram_buf[7..0] : DFF; Ram_smx : NODE; -- страницы ОЗУ RD_MEMORY : LCELL; ROM_SEL : NODE; -- Сигналы управления видеоформирователем WRSCR : LCELL; -- сигнал защелкивания видеоинформации Reg_inf[7..0] : DFF; -- регистр видеоинформации Reg_pix[7..0] : DFF; -- регистр пикселей (промежуточный) Reg_atr[7..0] : DFF; -- регистр цвета Pix_inf : LCELL; -- видеоинформация Reg_vid[5..0] : DFF; -- регистр видео выходной ColourADR[3..0] : NODE; -- Управляющие сигналы IO_ENABLE : NODE; -- доступ к портам IO_RD : LCELL; -- чтение из портов IO_WR : LCELL; -- запись в порты Sel_code : NODE; -- выбор ПЗУ TRDOS Sel_3dxx : NODE; -- выбор ПЗУ TRDOS DOS_r : JKFF; -- выбор ПЗУ TRDOS NMI_r : DFF; -- выбор ПЗУ TRDOS DOS_En : LCELL; --доступ к контроллеру дисковода RDFE_Sel : LCELL; -- выбор клавиатуры -- Регистр порта xxFEh WR_FE : LCELL; Border_Color_r[2..0] : DFF; Tape_r : DFF; Beep_r : DFF; -- Регистр порта 7FFDh Sel_7FFD : NODE; WR_7FFD : LCELL; RAM0_Page_r[2..0] : DFF; -- основные страницы 128кб SCR128_r : DFF; --экран в 4000h или C000h (3 - бит) ROM128_r : DFF; -- 128 ПЗУ (4 - бит) BLK_Port_r : DFF; -- блокировка записи в порт (5 - бит) -- Скандаблер VHReset : NODE; VHBlank : NODE; SHReset : NODE; VWR_strobe : NODE; -- запись в буфер MUX_strobe : DFF; -- счетчик переключения буферов MUX_data : LCELL; -- триггер конца строки WHSync_count[6..0] : DFF; -- счетчик знакомест VHSync_count[2..0] : DFF; -- счетчик знакомест SHSync_count[2..0] : DFF; -- счетчик знакомест VD_reg[5..0] : DFF; -- регистр видео REG_wscan[5..0] : TRI; RH : NODE; -- интерфейс клавиатуры KBD_save_en : NODE; KBD_count[3..0] : DFFE; KBD_shift_in[7..0] : DFF; KBD_regA8[4..0] : DFFE; KBD_regA9[4..0] : DFFE; KBD_regA10[4..0] : DFFE; KBD_regA11[4..0] : DFFE; KBD_regA12[4..0] : DFFE; KBD_regA13[4..0] : DFFE; KBD_regA14[4..0] : DFFE; KBD_regA15[4..0] : DFFE; KBD_rddata[7..0] : TRI; BEGIN ------------------------------------------------------------------------------------ -- Синхрогенератор ------------------------------------------------------------------------------------ -- Clock frequency 14.000 MHz -- "256 x 192 Screen" -- Line frequency 15625 Hz -- Field frequency 50 Hz -- Sync polarity: H negative, V negative -- Scan type: non interlaced. ------------------------------------------------------------------------------------ -- Системные сигналы ------------------------------------------------------------------------------------ Sync_count[].clk = CLK_14MHZ; -- Системные сигналы TI, H0, H1, 2 Sync_count[].d = Sync_count[].q+1; VCLK = !(Sync_count[].q == B"111"); ------------------------------------------------------------------------------------ -- Строчная развертка ------------------------------------------------------------------------------------ -- One line: -- 32 pixels horizontal sync -- 32 pixels back porch -- 64 pixels left border -- 256 pixels video -- 64 pixels right border ------------------------------------------------------------------------------------ -- 448 pixels total per line ------------------------------------------------------------------------------------ -- Реализация ------------------------------------------------------------------------------------ -- 32 видимая часть -- 8 правый бордер -- 4 начало гасящего импульса -- 4 строчный импульс -- 8 левый бордер -- = -- 56 сброс счетчиков строчной развертки ------------------------------------------------------------------------------------ HSync_count[].clk = VCLK; -- Сигналы строчной развертки H3, H4, H5, H6, H7, BC HSync_count[].d = HSync_count[].q+1; HSync_count[].clrn = !HReset; HReset = (HSync_count[6..4].q == B"111"); -- сброс счетчиков в конце второй строки VGA HBorder = HSync_count[6].q; -- сигнал строчного бордера на второй строке VGA HBlank1 = !(HSync_count[6..3].q == B"0101"); -- гасящий импульс на первой VGA строке HBlank2 = !(HSync_count[6..3].q == B"1100"); -- гасящий импульс на второй VGA строке HBlank = HBlank1 & HBlank2; HSync.clk = VCLK; HSync.d = HBlank # HSync_count[2].q; HBlank3.clk = !(HSync_count[6..0].q ==B"1010000"); HBlank3.d = GND; HBlank3.prn = !(HSync_count[6..0].q == B"1100101"); ------------------------------------------------------------------------------------ -- Кадровая развертка ------------------------------------------------------------------------------------ -- One field: -- 16 lines vertical sync = porch -- 56 lines top border -- 192 lines video -- 48 lines bottom border ------------------------------------------------------------------------------------ -- 312 lines total per field ------------------------------------------------------------------------------------ -- Реализация ------------------------------------------------------------------------------------ -- 192 видимая часть -- 48 нижний бордер -- 16 кадровый импульс = гасящий импульс -- 56 верхний бордер -- = -- 312 сброс счетчиков кадровой развертки ------------------------------------------------------------------------------------ HSync1.clk = VCLK; HSync1.d = (HSync_count[6..0] == B"1001101"); VSync_count[].clk = HSync1.q; -- Сигналы кадровой развертки V0...V7 VSync_count[].d = VSync_count[].q+1; VSync_count[].clrn = !VReset; VReset = (VSync_count[8..3].q == B"101000");-- сброс на 320 строке VBorder = VSync_count[8].q # (VSync_count[7].q & VSync_count[6].q); -- сигнал BK = V8 # (V7 & V6) VSync.clk = VCLK; VSync.d = !(VSync_count[8..4].q == B"01111"); ------------------------------------------------------------------------------------ -- Счетчики мерцания ------------------------------------------------------------------------------------ Flash_count[].clk = !VSync.q; --Сигналы счетчиков мерцания BK/, FLASH Flash_count[].d = Flash_count[].q+1; ------------------------------------------------------------------------------------ -- Строб бордера ------------------------------------------------------------------------------------ Border_sync.d = !(VBorder # HBorder); Border_sync.clk = HSync_count[1].q; ------------------------------------------------------------------------------------ -- Счетчик длительности прерывания ------------------------------------------------------------------------------------ Int_count[].clk = VCLK; Int_count[].d = Int_count[].q+1; Int_count[].clrn = !Int_sync.q; ------------------------------------------------------------------------------------ -- Сигнал прерывания -- Примечание: прерывание генерится с частотой 48Гц ------------------------------------------------------------------------------------ Int_sync.clk = !VSync.q; -- прерывание на 256 импульсе Int_sync.d = GND; Int_sync.prn = !(Int_count[3..0].q == B"1111"); ------------------------------------------------------------------------------------ -- Сигнал прерывания -- временно на 121 ногу сигнал EXT1, был 117 ------------------------------------------------------------------------------------ C_INT = Int_sync.q; ------------------------------------------------------------------------------------ -- Сигнал синхронизации ------------------------------------------------------------------------------------ HS = HSync.q; ------------------------------------------------------------------------------------ -- Сигнал разрешения SCART ------------------------------------------------------------------------------------ VS = VSync.q; ------------------------------------------------------------------------------------ -- Сигнал гашения ------------------------------------------------------------------------------------ GI = GND; ------------------------------------------------------------------------------------ -- Видеоформирователь ------------------------------------------------------------------------------------ -- Стробирующие сигналы захвата информации ------------------------------------------------------------------------------------ WRSCR = !(Sync_count[1].q & Sync_count[2].q & HSync_count[0].q); ------------------------------------------------------------------------------------ -- Сдвиговый регистр пикселей ------------------------------------------------------------------------------------ Reg_pix[].clk = HSync_count[0].q; -- сигналы H2 Reg_pix[].d = MD[]; ------------------------------------------------------------------------------------ -- Сдвиговый регистр пикселей ------------------------------------------------------------------------------------ Reg_inf[].clk = Sync_count[0].q; -- сигнал 7MHZ IF WRSCR !=0 THEN Reg_inf[].d = (Reg_inf[7-1..0].q,GND); ELSE Reg_inf[].d = Reg_pix[]; END IF; ------------------------------------------------------------------------------------ -- Регистр атрибутов ------------------------------------------------------------------------------------ Reg_atr[].clk = WRSCR; Reg_atr[].d = MD[]; ------------------------------------------------------------------------------------ -- Мерцание знакоместа ------------------------------------------------------------------------------------ Pix_inf = Reg_inf[7].q $ (Flash_count[4].q & Reg_atr[7].q); ------------------------------------------------------------------------------------ -- Адрес палитры ------------------------------------------------------------------------------------ IF Border_sync.q ==0 THEN ColourADR[0] = Border_Color_r[0].q; ColourADR[1] = Border_Color_r[1].q; ColourADR[2] = Border_Color_r[2].q; ColourADR[3] = GND; ELSE IF Pix_inf ==0 THEN ColourADR[0] = Reg_atr[3].q; --Blue ColourADR[1] = Reg_atr[4].q; --Red ColourADR[2] = Reg_atr[5].q; --Green ColourADR[3] = Reg_atr[6].q; --Bright ELSE ColourADR[0] = Reg_atr[0].q; --Blue ColourADR[1] = Reg_atr[1].q; --Red ColourADR[2] = Reg_atr[2].q; --Green ColourADR[3] = Reg_atr[6].q; --Bright END IF; END IF; ------------------------------------------------------------------------------------ -- Вывод видеоинформации ------------------------------------------------------------------------------------ Reg_vid[].clk = Sync_count[0].q; -- сигнал 7MHZ Reg_vid[].clrn = HBlank3.q & VSync.q; Reg_vid[0].d = ColourADR[0]; -- Blue0 Reg_vid[1].d = ColourADR[0] & ColourADR[3]; -- Blue1 Reg_vid[2].d = ColourADR[1]; -- Red0 Reg_vid[3].d = ColourADR[1] & ColourADR[3]; -- Red1 Reg_vid[4].d = ColourADR[2]; -- Green0 Reg_vid[5].d = ColourADR[2] & ColourADR[3]; -- Green1 ------------------------------------------------------------------------------------ -- Системные сигналы ------------------------------------------------------------------------------------ -- C_BUSRQ = VCC; -- C_WAIT = VCC; ------------------------------------------------------------------------------------ -- Сигнал формирование частоты процессора -- Примечание: процессор на частоте 3,5МГц(NORMAL) ------------------------------------------------------------------------------------ H0M = Sync_count[1].q; -- H0 H1M = Sync_count[2].q; -- H1 Clk_reg.d = Sync_count[1].q; Clk_reg.clk = Sync_count[0].q; CLKZ = !H0M;--Clk_reg.q; C_CLK = CLKZ; ------------------------------------------------------------------------------------ -- Управление памятью RAM ------------------------------------------------------------------------------------ -- Сигнал записи в буферный регистр TI =1 и H0 =0 ------------------------------------------------------------------------------------ WR_Buf = H0M & !H1M; -- сигнал WRBUF ------------------------------------------------------------------------------------ -- Запись в буферный регистр ------------------------------------------------------------------------------------ Ram_buf[].d = MD[]; Ram_buf[].clk = !WR_Buf; ------------------------------------------------------------------------------------ -- Сигнал мультиплексирования страниц ОЗУ ------------------------------------------------------------------------------------ Ram_smx = CA[15] and CA[14]; -- сигнал SMX = A15 & A14 ------------------------------------------------------------------------------------ -- Выбор памяти ОЗУ ------------------------------------------------------------------------------------ Sel_A45 = CA[15] # CA[14]; -- сигнал A45 = A15 # A14 # BLK ------------------------------------------------------------------------------------ -- Сигнал записи в память ------------------------------------------------------------------------------------ Ram_write_r.d = Sel_A45 & !C_MREQ & C_RD & C_RFSH; Ram_write_r.clrn = !H1M; Ram_write_r.clk = !CLKZ;--!Clk_reg.q; Ram_write_r.prn = VCC; ------------------------------------------------------------------------------------ -- Запись в память ------------------------------------------------------------------------------------ WR_RAM = !Ram_write_r.q; Ram_wrdata[].in = CD[]; Ram_wrdata[].oe = Ram_write_r.q; MD[] = Ram_wrdata[].out; ------------------------------------------------------------------------------------ -- Формирование адресов видеоконтроллера VА ------------------------------------------------------------------------------------ IF HSync_count[0].q ==0 THEN -- сигнал H2 VA[0] = VSync_count[0].q; VA[1] = VSync_count[1].q; VA[2] = VSync_count[2].q; VA[3] = VSync_count[6].q; VA[4] = VSync_count[7].q; ELSE VA[0] = VSync_count[6].q; VA[1] = VSync_count[7].q; VA[2] = GND; VA[3] = VCC; VA[4] = VCC; END IF; ------------------------------------------------------------------------------------ -- Формирование адресов RА ------------------------------------------------------------------------------------ IF Ram_smx ==0 THEN -- выборк окна в адресах 0x000..0xBFFF RA[0] = CA[14]; RA[1] = CA[15]; RA[2] = CA[14]; ELSE RA[0] = RAM0_PAGE_r[0].q; -- сигнал Page0 RA[1] = RAM0_PAGE_r[1].q; -- сигнал Page1 RA[2] = RAM0_PAGE_r[2].q; -- сигнал Page2 END IF; ------------------------------------------------------------------------------------ -- Формирование адресов и выбор микросхемы памяти ------------------------------------------------------------------------------------ IF H1M ==0 THEN MA[13..0] = CA[13..0]; MA[16..14] = RA[2..0]; ELSE MA[4..0] = HSync_count[5..1]; -- сигналы H3...H7 MA[5] = VSync_count[3].q; -- сигнал V4 MA[6] = VSync_count[4].q; -- сигнал V5 MA[7] = VSync_count[5].q; -- сигнал V6 MA[12..8] = VA[4..0]; -- сигналы VA0...VA4 MA[13] = GND; -- сигнал 0 MA[14] = VCC; -- сигнал 1 MA[15] = SCR128_r.q; -- сигнал SCR128 MA[16] = VCC; -- сигнал 1 END IF; CS_RAML = GND; CE_RAM2 = VCC; ------------------------------------------------------------------------------------ -- Управление памятью ROM ------------------------------------------------------------------------------------ -- Формирование управляющих сигналов ROM памяти ------------------------------------------------------------------------------------ ROM_A14 = ROM128_r.q # !DOS_en; -- сигнал RA14 = ROM128/ & !PRN; ROM_A15 = DOS_en; -- сигнал RA15 = DOS/ & !PRN; ------------------------------------------------------------------------------------ -- Сигнал выбора ПЗУ ------------------------------------------------------------------------------------ ROM_SEL = Sel_A45 # C_MREQ; CS_ROM = ROM_SEL; ------------------------------------------------------------------------------------ -- Сигнал чтения из ПЗУ ------------------------------------------------------------------------------------ RD_ROM = ROM_SEL # C_RD; -- сигнал RDROM/ = A45 # RD # MREQ ----------------------------------------------------------------------------------- -- Сигнал записи в ПЗУ ------------------------------------------------------------------------------------ WR_ROM = VCC; ------------------------------------------------------------------------------------ -- Порты ------------------------------------------------------------------------------------ -- Сигнал управление портами ------------------------------------------------------------------------------------ IO_ENABLE = !C_M1 # C_IORQGE; --C_IORQ # C_IORQGE; ------------------------------------------------------------------------------------ -- Сигнал чтения из портов ------------------------------------------------------------------------------------ IO_RD = IO_ENABLE # C_RD; ------------------------------------------------------------------------------------ -- Сигнал записи в порты ------------------------------------------------------------------------------------ IO_WR = IO_ENABLE # C_WR; ------------------------------------------------------------------------------------ -- Порт xx1Fh - Кемпстон джойстик 00011111b ----------------------------------------------------------------------------------- RD_1F = CA[7] # !(CA[3..0] == B"1111") # !DOS_En # IO_RD; ------------------------------------------------------------------------------------ -- Порт xxFEh = 11111110b ------------------------------------------------------------------------------------ WR_FE = !(CA[3..0] == B"1110") # IO_WR; Border_Color_r[2..0].d = CD[2..0]; Border_Color_r[2..0].clk = WR_FE; Border_Color_r[2..0].clrn = C_RESET; Tape_r.d = CD[3]; Tape_r.clk = WR_FE; Tape_r.clrn = C_RESET; Beep_r.d = CD[4]; Beep_r.clk = WR_FE; Beep_r.clrn = C_RESET; ------------------------------------------------------------------------------------ -- Выход магнитофона ------------------------------------------------------------------------------------ TAPE_OUT = Tape_r.q; ------------------------------------------------------------------------------------ -- Выход звука ------------------------------------------------------------------------------------ BEEP = Beep_r.q; ------------------------------------------------------------------------------------ -- Выход блокировки ПЗУ ------------------------------------------------------------------------------------ --C_BLK = GND; ------------------------------------------------------------------------------------ -- Селектор порта 7FFDh ----------------------------------------------------------------------------------- Sel_7FFD = CA[15] # !CA[14] # !(CA[3..0] == B"1101") # IO_WR; ------------------------------------------------------------------------------------ -- Порт 7FFDh ----------------------------------------------------------------------------------- WR_7FFD = Sel_7FFD # BLK_Port_r.q; RAM0_Page_r[2..0].d = CD[2..0]; RAM0_Page_r[2..0].clk = WR_7FFD; RAM0_Page_r[2..0].clrn = C_RESET; SCR128_r.d = CD[3]; SCR128_r.clk = WR_7FFD; SCR128_r.clrn = C_RESET; ROM128_r.d = CD[4]; ROM128_r.clk = WR_7FFD; ROM128_r.clrn = C_RESET; BLK_Port_r.d = CD[5]; BLK_Port_r.clk = WR_7FFD; BLK_Port_r.clrn = C_RESET; ------------------------------------------------------------------------------------ -- Порты BFFDh и FFFDh ------------------------------------------------------------------------------------ BC1 = CA[15] & CA[14] & (CA[3..0] == B"1101") & !IO_ENABLE; BDIR = CA[15] & (CA[3..0] == B"1101") & !IO_WR; ------------------------------------------------------------------------------------ -- Частота AY-3-8912 ------------------------------------------------------------------------------------ AYCLK = Sync_count[2].q; -- сигнал H1 = 1,75МГц ------------------------------------------------------------------------------------ -- Сигнал IODOS/ ------------------------------------------------------------------------------------ -- C_IODOS = VCC; ------------------------------------------------------------------------------------ -- Доступ к контроллеру дисковода ------------------------------------------------------------------------------------ DOS_En = !DOS_r.q; ------------------------------------------------------------------------------------ -- TR-DOS контроллер ------------------------------------------------------------------------------------ -- Выбор окна ПЗУ ------------------------------------------------------------------------------------ Sel_code = C_M1 # C_MREQ; Sel_3dxx = !(CA[15..8] == B"00111101") # !ROM128_r.q # Sel_code; ------------------------------------------------------------------------------------ -- Сигнал выбора контроллера NMI/ ------------------------------------------------------------------------------------ NMI_r.d = C_MAGIC # !Sel_A45; NMI_r.clk = Sel_code; NMI_r.prn = Sel_3dxx; ------------------------------------------------------------------------------------ -- Сигнал NMI/ ------------------------------------------------------------------------------------ C_NMI = NMI_r.q; ------------------------------------------------------------------------------------ -- Сигнал выбора контроллера DOS/ ------------------------------------------------------------------------------------ DOS_r.clrn = C_RESET; DOS_r.j = !(Sel_3dxx & NMI_r.q); DOS_r.clk = !CLKZ; DOS_r.k = !(Sel_code # !Sel_A45); ------------------------------------------------------------------------------------ -- Сигнал DOS/ ------------------------------------------------------------------------------------ C_DOS = !DOS_r.q; ------------------------------------------------------------------------------------ -- Интерфейс клавиатуры ------------------------------------------------------------------------------------ -- Порт xxFEh - Клавиатура ------------------------------------------------------------------------------------ RDFE_Sel = !(CA[3..0] == B"1110") # IO_RD; ----------------------------------------------------------------------------------- -- Счетчик ------------------------------------------------------------------------------------ KBD_save_en = KBD_count[0].q # KBD_count[1].q # KBD_count[2].q # !KBD_count[3].q; KBD_count[].clk = !KBD_CLK; KBD_count[].ena = KBD_save_en; KBD_count[].clrn = !KBD_CS; KBD_count[].d = KBD_count[].q + 1; ------------------------------------------------------------------------------------ -- Входной сдвигающий регистр ------------------------------------------------------------------------------------ KBD_shift_in[].clk = KBD_CLK; IF KBD_count[3].q ==0 THEN KBD_shift_in[].d = (KBD_shift_in[7-1..0].q,KBD_DI); ELSE KBD_shift_in[].d = KBD_shift_in[].q; END IF; ------------------------------------------------------------------------------------ -- Регистры клавиатуры ------------------------------------------------------------------------------------ KBD_regA8[4..0].d = KBD_shift_in[7..3].q; KBD_regA9[4..0].d = KBD_shift_in[7..3].q; KBD_regA10[4..0].d = KBD_shift_in[7..3].q; KBD_regA11[4..0].d = KBD_shift_in[7..3].q; KBD_regA12[4..0].d = KBD_shift_in[7..3].q; KBD_regA13[4..0].d = KBD_shift_in[7..3].q; KBD_regA14[4..0].d = KBD_shift_in[7..3].q; KBD_regA15[4..0].d = KBD_shift_in[7..3].q; KBD_regA8[].clk = KBD_CLK; KBD_regA8[].ena = KBD_count[3].q & (KBD_shift_in[2..0].q == B"000"); KBD_regA8[].prn = C_RESET; KBD_regA9[].clk = KBD_CLK; KBD_regA9[].ena = KBD_count[3].q & (KBD_shift_in[2..0].q == B"001"); KBD_regA9[].prn = C_RESET; KBD_regA10[].clk = KBD_CLK; KBD_regA10[].ena = KBD_count[3].q & (KBD_shift_in[2..0].q == B"010"); KBD_regA10[].prn = C_RESET; KBD_regA11[].clk = KBD_CLK; KBD_regA11[].ena = KBD_count[3].q & (KBD_shift_in[2..0].q == B"011"); KBD_regA11[].prn = C_RESET; KBD_regA12[].clk = KBD_CLK; KBD_regA12[].ena = KBD_count[3].q & (KBD_shift_in[2..0].q == B"100"); KBD_regA12[].prn = C_RESET; KBD_regA13[].clk = KBD_CLK; KBD_regA13[].ena = KBD_count[3].q & (KBD_shift_in[2..0].q == B"101"); KBD_regA13[].prn = C_RESET; KBD_regA14[].clk = KBD_CLK; KBD_regA14[].ena = KBD_count[3].q & (KBD_shift_in[2..0].q == B"110"); KBD_regA14[].prn = C_RESET; KBD_regA15[].clk = KBD_CLK; KBD_regA15[].ena = KBD_count[3].q & (KBD_shift_in[2..0].q == B"111"); KBD_regA15[].prn = C_RESET; ------------------------------------------------------------------------------------ -- Выходной буфер ------------------------------------------------------------------------------------ KBD_rddata[0].in = (CA8 # KBD_regA8[0].q) & (CA9 # KBD_regA9[0].q) & (CA10 # KBD_regA10[0].q) & (CA11 # KBD_regA11[0].q) & (CA12 # KBD_regA12[0].q) & (CA13 # KBD_regA13[0].q) & (CA14 # KBD_regA14[0].q) & (CA15 # KBD_regA15[0].q); KBD_rddata[1].in = (CA8 # KBD_regA8[1].q) & (CA9 # KBD_regA9[1].q) & (CA10 # KBD_regA10[1].q) & (CA11 # KBD_regA11[1].q) & (CA12 # KBD_regA12[1].q) & (CA13 # KBD_regA13[1].q) & (CA14 # KBD_regA14[1].q) & (CA15 # KBD_regA15[1].q); KBD_rddata[2].in = (CA8 # KBD_regA8[2].q) & (CA9 # KBD_regA9[2].q) & (CA10 # KBD_regA10[2].q) & (CA11 # KBD_regA11[2].q) & (CA12 # KBD_regA12[2].q) & (CA13 # KBD_regA13[2].q) & (CA14 # KBD_regA14[2].q) & (CA15 # KBD_regA15[2].q); KBD_rddata[3].in = (CA8 # KBD_regA8[3].q) & (CA9 # KBD_regA9[3].q) & (CA10 # KBD_regA10[3].q) & (CA11 # KBD_regA11[3].q) & (CA12 # KBD_regA12[3].q) & (CA13 # KBD_regA13[3].q) & (CA14 # KBD_regA14[3].q) & (CA15 # KBD_regA15[3].q); KBD_rddata[4].in = (CA8 # KBD_regA8[4].q) & (CA9 # KBD_regA9[4].q) & (CA10 # KBD_regA10[4].q) & (CA11 # KBD_regA11[4].q) & (CA12 # KBD_regA12[4].q) & (CA13 # KBD_regA13[4].q) & (CA14 # KBD_regA14[4].q) & (CA15 # KBD_regA15[4].q); KBD_rddata[5].in = VCC; KBD_rddata[6].in = TAPE_IN; KBD_rddata[7].in = VCC; KBD_rddata[].oe = !RDFE_Sel; DATA_CPU[] = KBD_rddata[].out; ------------------------------------------------------------------------------------ -- Чтение из буферного регистра ------------------------------------------------------------------------------------ RD_MEMORY = !Sel_A45 # C_MREQ # C_RD; REG_rddata[].in = Ram_buf[].q; REG_rddata[].oe = !RD_MEMORY; DATA_CPU[] = REG_rddata[].out; CD[] = DATA_CPU[].out; ------------------------------------------------------------------------------------ -- Скандаблер на одну строку ------------------------------------------------------------------------------------ -- Счетчик адреса знакомест ------------------------------------------------------------------------------------ RH = HReset; WHSync_count[].clk = CLK_14MHZ; WHSync_count[].d = WHSync_count[].q+1; WHSync_count[].clrn = !RH; VHSync_count[].clk = !WHSync_count[5].q; VHSync_count[].d = VHSync_count[].q+1; VHSync_count[].clrn = VHReset & !RH; SHSync_count[].clk = !WHSync_count[6].q; SHSync_count[].d = SHSync_count[].q+1; SHSync_count[].clrn = SHReset & !RH; VHReset = !(VHSync_count[2..0].q ==B"111"); VHBlank = !(VHSync_count[2..0].q ==B"101"); SHReset = !(SHSync_count[2..0].q ==B"111"); ------------------------------------------------------------------------------------ -- Строб строки знакомест ------------------------------------------------------------------------------------ MUX_data = !MUX_strobe.q; MUX_strobe.clk = !(SHSync_count[2..0].q ==B"101"); MUX_strobe.d = MUX_data; PA[9] = MUX_strobe.q $ VWR_strobe; ------------------------------------------------------------------------------------ -- Запись в буфер знакомест ------------------------------------------------------------------------------------ VWR_strobe = WHSync_count[0] & CLK_14MHZ; VWR = !VWR_strobe; ------------------------------------------------------------------------------------ -- Aдреса знакомест ----------------------------------------------------------------------------------- IF VWR_strobe == 0 THEN PA[0] = WHSync_count[0].q; -- 7MГЦ PA[1] = WHSync_count[1].q; -- 3,5МГЦ PA[2] = WHSync_count[2].q; -- 1,75МГЦ PA[3] = WHSync_count[3].q; -- 0,875МГЦ PA[4] = WHSync_count[4].q; -- 0,875МГЦ PA[5] = WHSync_count[5].q; -- 0,4375МГЦ PA[6] = VHSync_count[0].q; -- 0,21875МГЦ PA[7] = VHSync_count[1].q; -- 0,109375МГЦ PA[8] = VHSync_count[2].q; -- 0,0546875МГЦ ELSE PA[0] = WHSync_count[1].q; -- 3,5МГЦ PA[1] = WHSync_count[2].q; -- 1,75МГЦ PA[2] = WHSync_count[3].q; -- 0,875МГЦ PA[3] = WHSync_count[4].q; -- 0,875МГЦ PA[4] = WHSync_count[5].q; -- 0,4375МГЦ PA[5] = WHSync_count[6].q; -- 0,21875МГЦ PA[6] = SHSync_count[0].q; -- 0,109375МГЦ PA[7] = SHSync_count[1].q; -- 0,0546875МГЦ PA[8] = SHSync_count[2].q; -- 0,0546875МГЦ END IF; PA[10] = GND; PA[11] = GND; PA[12] = GND; PA[13] = VCC; PA[14] = GND; ------------------------------------------------------------------------------------ -- Строб видеоданных ------------------------------------------------------------------------------------ VD[0] = VD_reg[0].q; -- Blue0 VD[1] = VD_reg[1].q; -- Blue1 VD[2] = VD_reg[2].q; -- Red0 VD[3] = VD_reg[3].q; -- Red1 VD[4] = GND; -- Red2 VD[5] = VD_reg[4].q; -- Green0 VD[6] = VD_reg[5].q; -- Green1 VD[7] = GND; -- Green2 VD_reg[].clk = CLK_14MHZ; VD_reg[].d = PD[]; VD_reg[].clrn = VHBlank; REG_wscan[].in = Reg_vid[].q; REG_wscan[].oe = VWR_strobe; PD[] = REG_wscan[].out; END;

- - - Добавлено - - -

Сейчас посмотрел немного код Dizzy 3 в эмуляторе и похоже причина в IM 2. Тоесть когда стоит режим IM 1 то он замечательно работает, но как только переводит в IM 2 то похоже первое же прерывание приводит к краху всю систему :(

Цитата:

Сообщение от Mick

как только переводит в IM 2 то похоже первое же прерывание приводит к краху всю систему

А что у нас на шине данных в момент IM 2 ? ;)

Цитата:

Сообщение от b2m

А что у нас на шине данных в момент IM 2 ?

А фиг его знает. Надо думу думать. :)
Вроде код рабочий (на Игрософте наигрался), хотя и есть небольшие изменения.

Цитата:

Сообщение от Mick

А фиг его знает. Надо думу думать.

Это я к тому, что многие программы рассчитывают, что там FF будет, и располагают адрес вектора перехода по адресу ххFF, где хх - содержимое регистра I
Видимо, у тебя не FF