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 ===