Subversion Repositories ngs

Rev

Rev 105 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed | ?url?

  1.  
  2. ;LAST UPDATE: 28.05.2021 savelij
  3.        
  4.                 include ../../../pentevo/rom/macros.a80
  5.                 include vers.a80
  6.  
  7. ADRWORK         EQU 0x8000
  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.  
  16.                 DB "Flasher for NeoGS v",FLASH_VERS
  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.  
  38.                 DUPL 0X100-LOW ($),0
  39.  
  40.                 IF (EBINFLASHER-BINFLASHER)&0XFF
  41. SIZE_SECTORS    EQU ((EBINFLASHER-BINFLASHER)>>8)+1
  42.                 ELSE
  43. SIZE_SECTORS    EQU ((EBINFLASHER-BINFLASHER)>>8)
  44.                 ENDIF
  45.