Subversion Repositories ngs

Rev

Rev 105 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
105 savelij 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