Subversion Repositories pentevo

Rev

Rev 635 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  1.        
  2. ;LAST UPDATE: 19.02.2014 savelij
  3.  
  4.                 include ../../../rom/macros.a80
  5.  
  6. ADRWORK         EQU 0X6000
  7. UNPACKER        EQU 0X5B00
  8.  
  9.                 ORG ADRWORK-0X11
  10.                 SUM_HOB "autorun C",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          PHASE UNPACKER
  30.                 CALL DEPACK1
  31.                 LD A,0XB0
  32.                 LD E,0XFB
  33.                 LD B,1
  34.                 JP ADRWORK
  35.  
  36. DEPACK1         include ../../../rom/dec40.a80
  37.                 DEPHASE
  38.  
  39. BINAR           binclude timegal_pack.rom
  40. EBINAR
  41.  
  42.                 DUPL LOW (-$),0
  43.  
  44.                 IF (EBINAR-BINAR)&0XFF
  45. SIZE_SECTORS    EQU ((EBINAR-BINAR)>>8)+1
  46.                 ELSE
  47. SIZE_SECTORS    EQU ((EBINAR-BINAR)>>8)
  48.                 ENDIF
  49.  
  50.