Subversion Repositories pentevo

Rev

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

  1.        
  2. ;LAST UPDATE: 16.02.2014 savelij
  3.  
  4.                 include ../../../rom/macros.a80
  5.  
  6. ADRWORK         EQU 0X6000
  7. UNPACKER        EQU 0X5B00
  8.  
  9.                 ORG ADRWORK-0X11
  10.                 IF MEMTYPE=PROFI
  11.                 SUM_HOB "zm_profiC",ADRWORK,EBINAR-BINAR,SIZE_SECTORS
  12.                 ELSEIF MEMTYPE=PENT22
  13.                 SUM_HOB "zm_pnt22C",ADRWORK,EBINAR-BINAR,SIZE_SECTORS          
  14.                 ELSE
  15.                 SUM_HOB "zm_evo  C",ADRWORK,EBINAR-BINAR,SIZE_SECTORS
  16.                 ENDIF
  17.  
  18.                 DI
  19.                 LD HL,ADRWORK
  20.                 PUSH HL
  21.                 LD HL,DEPACK
  22.                 LD DE,UNPACKER
  23.                 LD BC,BINAR-DEPACK
  24.                 PUSH DE
  25.                 LDIR
  26.                 LD HL,EBINAR-1
  27.                 LD DE,0XFFFF
  28.                 LD BC,EBINAR-BINAR
  29.                 LDDR
  30.                 LD HL,ADRWORK
  31.                 EX DE,HL
  32.                 INC HL
  33.                 RET
  34.  
  35. DEPACK          include ../../../rom/dec40.a80
  36. BINAR           IF MEMTYPE=PROFI
  37.                 binclude main_profi_pack.rom
  38.                 ELSEIF MEMTYPE=PENT22
  39.                 binclude main_pent22_pack.rom
  40.                 ELSE
  41.                 binclude main_evo_pack.rom
  42.                 ENDIF
  43. EBINAR
  44.  
  45.                 DUPL 0X100-LOW ($),0
  46.  
  47.                 IF (EBINAR-BINAR)&0XFF
  48. SIZE_SECTORS    EQU ((EBINAR-BINAR)>>8)+1
  49.                 ELSE
  50. SIZE_SECTORS    EQU ((EBINAR-BINAR)>>8)
  51.                 ENDIF
  52.  
  53.