Subversion Repositories pentevo

Rev

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

Rev 1035 Rev 1186
Line 1... Line 1...
1
 
1
 
2
; LAST UPDATE: 09.11.2022 savelij
2
; LAST UPDATE: 16.02.2025 savelij
3
 
3
 
4
PAGE
4
PAGE
5
                TITLE "evo-dos.a80"
5
                TITLE "evo-dos.a80"
6
 
6
 
7
                include ../../macros.a80
7
                include ../../macros.a80
Line 5606... Line 5606...
5606
        ENDIF
5606
        ENDIF
5607
                RET
5607
                RET
5608
 
5608
 
5609
;ДЛЯ РЕЗИДЕНТА HONEY COMANDER
5609
;ДЛЯ РЕЗИДЕНТА HONEY COMANDER
5610
                DUPL 0X3C50-$,0XFF
5610
                DUPL 0X3C50-$,0XFF
5611
LOC_3C50        LD H,CMOS_BYTE_01
5611
LOC_3C50        LD H,CMOS.BYTE_01
5612
                CALL READCMOS
5612
                CALL READCMOS
5613
                AND M_REZIDENT
5613
                AND CMOS_EC.M_REZIDENT
5614
                JP Z,LOC_3C4B
5614
                JP Z,LOC_3C4B
5615
                JP loc_3C50
5615
                JP loc_3C50
5616
 
5616
 
5617
        IF EMU
5617
        IF EMU
5618
                DUPL ADR_RST8END-$,0XFF
5618
                DUPL ADR_RST8END-$,0XFF