Subversion Repositories pentevo

Rev

Rev 1026 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1026 Rev 1035
Line 1... Line 1...
1 
 
 1 
 
2 
; LAST UPDATE: 02.10.2022 savelij
 2 
; LAST UPDATE: 09.11.2022 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 21... Line 21...
21 
                ORG 0
 21 
                ORG 0
22 
                di
 22 
                di
23 
                ld      de,0xffff
 23 
                ld      de,0xffff
24 
 
 24 
 
25 
;ДЛЯ РЕЗИДЕНТА HONEY COMANDER
 25 
;ДЛЯ РЕЗИДЕНТА HONEY COMANDER
26 
        IFNDEF REZIDENT
 - 
 
27 
                ld      a,7
 26 
;               ld      a,7
28 
                jr      loc_9
 27 
;               jr      loc_9
29 
        ELSE;REZIDENT
 - 
 
30 
                JP LOC_3C50
 28 
                JP LOC_3C50
31 
 
 29 
 
32 
                DB 1
 30 
                DB 1
33 
        ENDIF;REZIDENT
 - 
 
34 
 
 31 
 
35 
                nop
 32 
                nop
36 
loc_9           out     (0xfe),a
 33 
loc_9           out     (0xfe),a
37 
                ld      a,0x3f
 34 
                ld      a,0x3f
38 
                jr      loc_24
 35 
                jr      loc_24
Line 5583... Line 5580...
5583 
;===============FREE SPACE 2============
 5580 
;===============FREE SPACE 2============
5584 
                include extend.a80
 5581 
                include extend.a80
5585 
                include raznoe.a80
 5582 
                include raznoe.a80
5586 
                include patch.a80
 5583 
                include patch.a80
5587 
;ДЛЯ РЕЗИДЕНТА HONEY COMANDER
 5584 
;ДЛЯ РЕЗИДЕНТА HONEY COMANDER
5588 
        IFDEF REZIDENT
 - 
 
5589 
                include hc_resident.a80
 5585 
                include hc_resident.a80
5590 
        ENDIF;REZIDENT
 - 
 
5591 
;===============FREE SPACE 2============
 5586 
;===============FREE SPACE 2============
5592 
 
 5587 
 
5593 
                TITLE "evo-dos.a80"
 5588 
                TITLE "evo-dos.a80"
5594 
 
 5589 
 
5595 
                DUPL 0X3C01-$,0XFF
 5590 
                DUPL 0X3C01-$,0XFF
Line 5610... Line 5605...
5610 
                IN A,(0X1F)
 5605 
                IN A,(0X1F)
5611 
        ENDIF
 5606 
        ENDIF
5612 
                RET
 5607 
                RET
5613 
 
 5608 
 
5614 
;ДЛЯ РЕЗИДЕНТА HONEY COMANDER
 5609 
;ДЛЯ РЕЗИДЕНТА HONEY COMANDER
5615 
        IFDEF REZIDENT
 - 
 
5616 
                DUPL 0X3C50-$,0XFF
 5610 
                DUPL 0X3C50-$,0XFF
5617 
LOC_3C50        LD H,CMOS_BYTE_01
 5611 
LOC_3C50        LD H,CMOS_BYTE_01
5618 
                CALL READCMOS
 5612 
                CALL READCMOS
5619 
                AND M_REZIDENT
 5613 
                AND M_REZIDENT
5620 
                JP Z,LOC_3C4B
 5614 
                JP Z,LOC_3C4B
5621 
                JP loc_3C50
 5615 
                JP loc_3C50
5622 
        ENDIF;REZIDENT
 - 
 
5623 
 
 5616 
 
5624 
        IF EMU
 5617 
        IF EMU
5625 
                DUPL ADR_RST8END-$,0XFF
 5618 
                DUPL ADR_RST8END-$,0XFF
5626 
                JP EDOS2RST8
 5619 
                JP EDOS2RST8
5627 
        ENDIF
 5620 
        ENDIF