Subversion Repositories ngs

Rev

Blame | Last modification | View Log | Download | RSS feed | ?url?

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