ZXNet эхоконференция «code.zx»

Hello, All напомните, плз, как из 128 режима переключиться в 48 (полноценный, с закрытым 7ffd), так, чтобы безболезненно вернуться после этого в васик. от лысого out(7ffdH),30H васик обижается :(

Hello, boo_boo randomize usr 0 ?

Hello, Vladimir Kladov Vla> randomize usr 0 Vla> ? кхем.. :rolleyes: не, аналог команды васика-128 "spectrum", не прерывающий выполнение программы. OUT(7ffd),#30 прекрасно все переключает, но стоит сделать RET, как настают кранты -- тк на стеке адрес в ПЗУ-0 :(

Hello, boo_boo В своём буте я делаю так для перехода в режим 48 с открытым портом: LD SP,(23613) LD HL,#1303 EX (SP),HL LD HL,#1B7D PUSH HL Дальше тебе нужно добавить лишь out. В литературе также еще рекомендуется переключать каналы на работу с ZX-принтером, но думаю тебе это не понадобится.

Hello, Jukov Переключение из 128К в 48К "на ходу": CALL сюда-> DI LD SP,(23613) POP HL LD HL,4867 ; ERR_SP FOR 48-BASIC PUSH HL LD HL,7030 ; CONTINUE INTERPRETATOR 48-BASIC PUSH HL RES 4,(IY+1); сброс флага 128К LD DE,5566 ; INFORMATION FOR STREAMS LD HL,(23631) ; CHANS LD BC,15 ADD HL,BC EX DE,HL ; DE=ADDR.FOR STREAMS/CHANNELS, HL=5556 LD C,4 ; BC=4 FOR LDIR LDIR EI RET ; после возврата из этой подпрограммы будет 48К режим с открытым портом #7FFD. ; Если нужно закрыть порт, запишите в него нужный байт по возвращении ; из подпрограммы. Вызов этой подпрограммы не опасен, поэтому специальной проверки на 128К не требуется.

Hello, Wlodek оно самое, спасибо :)