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

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