Subversion Repositories pentevo

Rev

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

  1.        
  2. ; LAST UPDATE: 10.01.2023 savelij
  3.  
  4.                 include macros.a80
  5.  
  6. ADRWORK         EQU 0X6000
  7. UNPACKER        EQU 0X5B00
  8.  
  9.                 ORG ADRWORK-0X11
  10.                 SUM_HOB "flash_peC",ADRWORK,EBINAR-BINAR,SIZE_SECTORS
  11.  
  12.                 DI
  13.                 LD HL,ADRWORK
  14.                 PUSH HL
  15.                 LD HL,DEPACK
  16.                 LD DE,UNPACKER
  17.                 LD BC,BINAR-DEPACK
  18.                 PUSH DE
  19.                 LDIR
  20.                 LD HL,EBINAR-1
  21.                 LD DE,0XFFFF
  22.                 LD BC,EBINAR-BINAR
  23.                 LDDR
  24.                 LD HL,ADRWORK
  25.                 EX DE,HL
  26.                 INC HL
  27.                 RET
  28.  
  29. DEPACK          include dec40.a80
  30. BINAR           binclude rom/flash_pe_pack.rom
  31. EBINAR
  32.  
  33.                 DUPL 0X100-LOW ($),0
  34.  
  35.                 IF (EBINAR-BINAR)&0XFF
  36. SIZE_SECTORS    EQU ((EBINAR-BINAR)>>8)+1
  37.                 ELSE
  38. SIZE_SECTORS    EQU ((EBINAR-BINAR)>>8)
  39.                 ENDIF
  40.  
  41.