Subversion Repositories pentevo

Rev

Details | Last modification | View Log | RSS feed

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