Subversion Repositories pentevo

Rev

Rev 838 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 838 Rev 1035
Line 1... Line 1...
1 
 
 1 
 
2 
;LAST UPDATE: 30.06.2019 savelij
 2 
; LAST UPDATE: 09.11.2022 savelij
3 
 
 3 
 
4 
ITSELECTOR      LD HL,FLAGS
 4 
ITSELECTOR      LD HL,FLAGS
5 
                RES B_MOUSE_PRESENT,(HL)        ;ПРИНУДИТЕЛЬНОЕ ОТКЛЮЧЕНИЕ МЫШИ ДЛЯ ТЕКСТМОДА
 5 
                RES B_MOUSE_PRESENT,(HL)        ;ПРИНУДИТЕЛЬНОЕ ОТКЛЮЧЕНИЕ МЫШИ ДЛЯ ТЕКСТМОДА
6 
                SET B_VIDEO_MODE,(HL)           ;МЕНЮ ТЕКСТОВОГО ВИДЕОРЕЖИМА
 6 
                SET B_VIDEO_MODE,(HL)           ;МЕНЮ ТЕКСТОВОГО ВИДЕОРЕЖИМА
7 
                LD HL,KEYBOARDS
 7 
                LD HL,KEYBOARDS
Line 653... Line 653...
653 
                OR C
 653 
                OR C
654 
                LD L,A
 654 
                LD L,A
655 
                CALL IWRITECMOS
 655 
                CALL IWRITECMOS
656 
                JR SETANDPRINT
 656 
                JR SETANDPRINT
657 
 
 657 
 
658 
        IFDEF REZIDENT
 - 
 
659 
;ВКЛЮЧЕНИЕ/ВЫКЛЮЧЕНИЕ РЕЗИДЕНТА HONEY COMANDER
 658 
;ВКЛЮЧЕНИЕ/ВЫКЛЮЧЕНИЕ РЕЗИДЕНТА HONEY COMANDER
660 
SET_REZIDENT    DI
 659 
SET_REZIDENT    DI
661 
                LD H,CMOS_BYTE_01
 660 
                LD H,CMOS_BYTE_01
662 
                CALL READCMOS
 661 
                CALL READCMOS
663 
                XOR M_REZIDENT
 662 
                XOR M_REZIDENT
Line 670... Line 669...
670 
                CALL READCMOS
 669 
                CALL READCMOS
671 
                XOR M_KILL_REZIDENT
 670 
                XOR M_KILL_REZIDENT
672 
                LD L,A
 671 
                LD L,A
673 
                CALL IWRITECMOS
 672 
                CALL IWRITECMOS
674 
                JR SETANDPRINT
 673 
                JR SETANDPRINT
675 
        ENDIF;REZIDENT
 - 
 
676 
 
 674 
 
677 
;ИЗМЕНЕНИЕ ТЕКСТА В МЕНЮ
 675 
;ИЗМЕНЕНИЕ ТЕКСТА В МЕНЮ
678 
SETUP4SEL       DI
 676 
SETUP4SEL       DI
679 
                LD H,CMOS_BYTE_01
 677 
                LD H,CMOS_BYTE_01
680 
                CALL READCMOS
 678 
                CALL READCMOS
Line 722... Line 720...
722 
                LDI
 720 
                LDI
723 
                EX DE,HL
 721 
                EX DE,HL
724 
                LD (HL),2
 722 
                LD (HL),2
725 
                POP DE
 723 
                POP DE
726 
;ДЛЯ РЕЗИДЕНТА HONEY COMANDER
 724 
;ДЛЯ РЕЗИДЕНТА HONEY COMANDER
727 
        IFDEF REZIDENT
 - 
 
728 
                LD A,E
 725 
                LD A,E
729 
                AND M_REZIDENT
 726 
                AND M_REZIDENT
730 
                LD HL,TXT_ONOFF
 727 
                LD HL,TXT_ONOFF
731 
                JR NZ,.ON
 728 
                JR NZ,.ON
732 
                LD HL,TXT_ONOFF+3
 729 
                LD HL,TXT_ONOFF+3
Line 746... Line 743...
746 
                LDI
 743 
                LDI
747 
                LDI
 744 
                LDI
748 
                LDI
 745 
                LDI
749 
                EX DE,HL
 746 
                EX DE,HL
750 
                LD (HL),2
 747 
                LD (HL),2
751 
        ENDIF;REZIDENT
 - 
 
752 
                RET
 748 
                RET
753 
 
 749 
 
754 
;ОЖИДАНИЕ НАЖАТИЯ И ОТПУСКАНИЯ ЛЮБОЙ КЛАВИШИ
 750 
;ОЖИДАНИЕ НАЖАТИЯ И ОТПУСКАНИЯ ЛЮБОЙ КЛАВИШИ
755 
ANY_KEYS        XOR A
 751 
ANY_KEYS        XOR A
756 
                IN A,(0XFE)
 752 
                IN A,(0XFE)