Subversion Repositories ngs

Rev

Rev 105 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
105 savelij 1 
 
158 savelij 2 
;LAST UPDATE: 28.05.2021 savelij
69 savelij 3 
 
105 savelij 4 
                include ../../../pentevo/rom/macros.a80
158 savelij 5 
                include vers.a80
69 savelij 6 
 
158 savelij 7 
ADRWORK         EQU 0x8000
69 savelij 8 
UNPACKER        EQU 0X5B00
9 
 
10 
                ORG ADRWORK-0X11
11 
                SUM_HOB "FLASHNGSC",ADRWORK,EBINFLASHER-BINFLASHER,SIZE_SECTORS
12 
 
13 
                DI
14 
                JR START0
15 
 
158 savelij 16 
                DB "Flasher for NeoGS v",FLASH_VERS
69 savelij 17 
START0         
18 
                LD HL,ADRWORK
19 
                PUSH HL
20 
                LD HL,DEPACK
21 
                LD DE,UNPACKER
22 
                LD BC,BINFLASHER-DEPACK
23 
                PUSH DE
24 
                LDIR
25 
                LD HL,EBINFLASHER-1
26 
                LD DE,0XFFFF
27 
                LD BC,EBINFLASHER-BINFLASHER
28 
                LDDR
29 
                LD HL,ADRWORK
30 
                EX DE,HL
31 
                INC HL
32 
                RET
33 
 
34 
DEPACK          include dec40.a80
35 
BINFLASHER      binclude flasher_pack.rom
36 
EBINFLASHER
37 
 
105 savelij 38 
                DUPL 0X100-LOW ($),0
39 
 
69 savelij 40 
                IF (EBINFLASHER-BINFLASHER)&0XFF
41 
SIZE_SECTORS    EQU ((EBINFLASHER-BINFLASHER)>>8)+1
42 
                ELSE
43 
SIZE_SECTORS    EQU ((EBINFLASHER-BINFLASHER)>>8)
44 
                ENDIF