Top secrets sources NedoPC pentevo

;LAST UPDATE: 22.08.2019 savelij

loc_3C47        LD BC,WIN_A3
                LD A,0XFF
                OUT (C),A               ;¢®§¢à â ¯à¨¢ï§ª¨ ª ¯®àâã 7FDD
;               xor     a
;               call    SET_PAGE
LOC_3C4B        LD DE,0XFFFF
                ld      a, 7
                jp      loc_9

loc_3C50        ld      sp, 0X5BFF
                LD BC,WIN_A3
                LD A,0X40
                OUT (C),A               ;à §¡«®ª¨à®¢ª  ¯à¨¢ï§ª¨ ª ¯®àâã 7FFD
                ld      a, 1Fh ! 0XFF
;               call    SET_PAGE
                LD BC,WIN_P3
                OUT (C),A
                ld      hl, 0C000h
                ld      a, (hl)
                cp      0C3h
                jr      nz, loc_3C47
                LD A,MEMORY_128 | TURBO_3
                RST8D _SET_MODE         ;ãáâ ­®¢ª  3,5Œ£æ ¨ ¯ ¬ïâì 128Š
                xor     a
loc_3C61        add     a, (hl)
                adc     a, 0
                inc     hl
                bit     7, h
                jr      nz, loc_3C61
                dec     a
                jr      nz, loc_3C47
                ld      a, 0AAh
                dec     hl
                cp      (hl)
                jr      nz, loc_3C47
                cpl
                dec     hl
                cp      (hl)
                jr      nz, loc_3C47
                LD H,CMOS_BYTE_03
                CALL READCMOS
                AND M_KILL_REZIDENT
                JR Z,.L1
                LD (0XC000),A           ;¯®à⨬ १¨¤¥­â
.L1             ld      hl, 0D000h
                ld      de, 5B00h
                ld      bc, 2500h
                ldir
;               ld      sp, TRD_5F00
                LD BC,WIN_P3            ;¯®àâ ãáâ ­®¢ª¨ ­®¬¥à  áâà ­¨æë
                ld      a, 1Eh ! 0XFF
;               call    SET_PAGE
;               call    LDIR_HL_DE
                LD HL,LDIR_HL_DE
                LD DE,.E1
                JP (HL)

.E1             ld      a, 3 ! 0XFF
;               call    SET_PAGE
;               call    LDIR_DE_HL
                LD HL,LDIR_DE_HL
                LD DE,.E2
                JP (HL)

.E2             ld      a, 1Dh ! 0XFF
;               call    SET_PAGE
;               call    LDIR_HL_DE
                LD HL,LDIR_HL_DE
                LD DE,.E3
                JP (HL)

.E3             ld      a, 1 ! 0XFF
;               call    SET_PAGE
;               call    LDIR_DE_HL
                LD HL,LDIR_DE_HL
                LD DE,.E4
                JP (HL)

.E4             ld      a, 1Ch ! 0XFF
;               call    SET_PAGE
;               call    LDIR_HL_DE
                LD HL,LDIR_HL_DE
                LD DE,.E5
                JP (HL)

.E5
;               xor     a
;               call    SET_PAGE
                LD A, 0 ! 0XFF
;               call    LDIR_DE_HL
                LD HL,LDIR_DE_HL
                LD DE,.E6
                JP (HL)

.E6             ld      a, 1Bh ! 0XFF
;               call    SET_PAGE
;               call    LDIR_HL_DE
                LD HL,LDIR_HL_DE
                LD DE,.E7
                JP (HL)

.E7
;               xor     a
;               call    SET_PAGE
                LD A,0 ! 0XFF
                OUT (C),A               ;¢¥à­ã«¨ áâà ­¨æã
                LD BC,WIN_A3
                LD A,0XFF
                OUT (C),A               ;¢®§¢à â ¯à¨¢ï§ª¨ ª ¯®àâã 7FDD
                ld      sp, (0X5B73)
                ret

;SET_PAGE
;               push    af
;               and     7
;               or      10h
;               ld      bc, 7FFDh
;               out     (c), a
;               pop     af
;               and     18h
;               cpl
;               ld      bc, 0FFF7h
;               out     (c), a
;               ret
;               LD BC,WIN_P3
;               CPL
;               OUT (C),A
;               RET

LDIR_DE_HL      OUT (C),A
                ld      a, 0FFh
                or      a
                jr      loc_3CE0

LDIR_HL_DE      OUT (C),A
                xor     a
loc_3CE0        EXX
                ld      hl, 0C000h
                ld      de, 8000h
                ld      bc, 4000h
                jr      z, loc_3CEC
                ex      de, hl
loc_3CEC        ldir
                EXX
                EX DE,HL
                JP (HL)