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

Hемедленно нажми на RESET, All!


=== Cut ===
; (L) Copyleft Kirill Frolov 31-03-2002
;
; ОПРЕДЕЛЕИЕ ТИПА МАШИЫ АХОДИТСЯ
; В КОЦЕ ФАЙЛА ИБО ШТОРМ ЕСТЬ
; СУКСЬ И МАЗДАЙ, А ЗАСМ ЕСТЬ
; РУЛЕЗ ЕОБЫЧАЙЫЙ
;

; Патч к Basic-128.
; Патч накладывается посредством STORM
; ассемблера. Патч совершает следующие
; изменения в прошивке бейсика:
;
; 1. Исключается из меню
; пункт "Tape Loader".
; 2. Пункт "TR-Dos" ставится первым
; в меню (вместо "Tape Loader").
; 3. Последний пункт "TR-DOS" замещен
; пунктом "Reset" для выполнения
; программы "холодного сброса".
; 4. Если в момент сброса удерживается
; клавиша Caps Shift то происходит
; выход в меню без осуществления
; "холодного сброса".
; 5. При удержании клавиши Symbol Shift
; происходит запуск Basic-128
; (программа в теневом банке ПЗУ
; не будет запущена).
; 6. Если вышеозначенные клавиши не
; удерживаются, то проверяется
; содержимое ОЗУ по адресам
; #5c00..#5c0f. Если проверяемые
; ячейки заполнены одним значением
; то предполагается, что произошло
; включение компьютера и происходит
; выполнение программы "холодного
; сброса", иначе происходит выход
; в меню.
;
; Примечания:
; Для вызова теста изображения из
; Basic-128 необходимо при сбросе
; удерживать одновременно 3 клавиши:
; Caps Shift, Symbol Shift и Space
; (или Symbol Shift и Break).
; При одновременном удержании
; Caps Shift и Symbol Shift
; (или одной клавиши Ext Mode)
; произойдет выход в меню Basic-128.
; Под выходом в меню подразумевается
; запуск программы из банка "теневого
; пзу" на компьютерах типа Scorpion и
; Kay или выход в меню Basic-128
; на компьютере типа Pentagon (при
; необходимости программа может быть
; модернизирована для запуска программ
; из дополнительного банка ПЗУ на
; компьютере Pentagon). В дополнительном
; банке ПЗУ могут находится коммандеры
; (boot) TR-DOS (например
; Quick Commander) или прошивки типа
; MadROM.
; Под "холодным сбросом"
; подразумевается запуск программы
; из банка ПЗУ TR-DOS для загрузки
; boot файла (при необходимости в озможна
; модернизация программы для запуска
; iS-DOS с винчестера).
;
; Для правильной работы патча
; необходимо установить тип компьютера
; в конца файла: Pentagon или
; Scorpion/Kay.
;
; ВИМАИЕ! Программа не предназначена
; для исправления ПЗУ компьютера
; Scorpion работающего с теневым
; монитором. Изменять содержимое ПЗУ
; Basic-128 в компьютере Scorpion
; ЕЛЬЗЯ при наличии теневого монитора.
; Если вам хочется использовать этот
; патч то придется отказаться от
; использования теневого монирора и
; заменить содержимое Basic-48,
; Basic-128 и TR-DOS стандартными
; прошивками (например от компьютеров
; Pentagon или Kay).
;
; а различных версиях компьютера Kay
; программа не была протестирована и
; возможно работать не будет.
;

LOAD EQU #8000

JMP128 EQU #0009
TEST128 EQU #00C7
R128FRE EQU #3C20

TEMPSTK EQU #5C08
TEMPPRG EQU #4000

PENT EQU TEST128


ORG 0,LOAD

INCB "rom128"

ORG JMP128,LOAD+JMP128
JP TEST

ORG #275E,LOAD+#275E
DB "TR-Dos "
DW #2020,#A020
ORG #2784,LOAD+#2784
DB "Reset"
DW #2020,#2020
DW #A020
ORG #2744+2,LOAD+#2744+2
DW #2816
ORG #2744+14,LOAD+#2744+14 DW PRESET


ORG R128FRE,LOAD+R128FRE

PRESET
DI
XOR A
JR INIT

TEST LD A,1

INIT
LD SP,TEMPSTK
LD HL,RAMPRG
LD DE,TEMPPRG
LD BC,R_END-R_ST
LDIR

OR A
JR Z,POWERUP

LD HL,#5C00
LD BC,#10
LD A,(HL)
CPL1 CPI
JR NZ,BRESET
JP PE,CPL1

LD A,#FE IN A,(#FE)
RRA
JR NC,BRESET


POWERUP
LD BC,#7FFD
LD A,#10 JP R_PUP

BRESET
LD A,#7F
IN A,(#FE)
AND #02
JP Z,TEST128 JP MACHINE
SCORP
LD BC,#7FFD
LD A,#1F
LD HL,#0A10; KAY & SCORPION JP R_RES


RAMPRG
ORG TEMPPRG,LOAD+RAMPRG
R_ST

R_PUP LD HL,0
PUSH HL
OUT (C),A
JP #3D2F

R_RES OUT (C),L
LD B,A
OUT (C),H
RST #00
R_END


MACHINE EQU SCORP; SCORPION & KAY
;MACHINE EQU PENT; PENTAGON
=== Cut ===