Top secrets sources NedoPC pentevo

       
; LAST UPDATE: 10.01.2023 savelij

                include macros.a80

ADRWORK         EQU 0X6000
UNPACKER        EQU 0X5B00

                ORG ADRWORK-0X11
                SUM_HOB "flash_peC",ADRWORK,EBINAR-BINAR,SIZE_SECTORS

                DI
                LD HL,ADRWORK
                PUSH HL
                LD HL,DEPACK
                LD DE,UNPACKER
                LD BC,BINAR-DEPACK
                PUSH DE
                LDIR
                LD HL,EBINAR-1
                LD DE,0XFFFF
                LD BC,EBINAR-BINAR
                LDDR
                LD HL,ADRWORK
                EX DE,HL
                INC HL
                RET

DEPACK          include dec40.a80
BINAR           binclude rom/flash_pe_pack.rom
EBINAR

                DUPL 0X100-LOW ($),0

                IF (EBINAR-BINAR)&0XFF
SIZE_SECTORS    EQU ((EBINAR-BINAR)>>8)+1
                ELSE
SIZE_SECTORS    EQU ((EBINAR-BINAR)>>8)
                ENDIF