Subversion Repositories pentevo

Rev

Rev 803 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
803 savelij 1 
 
831 savelij 2 
;LAST UPDATE: 06.07.2019 savelij
803 savelij 3 
 
4 
        TITLE "pack main menu"
5 
 
6 
                PHASE 0
7 
                JP $
8 
 
9 
                DUPL 0X0008-$,0XFF
10 
                JP $
11 
 
12 
                DUPL 0X0010-$,0XFF
13 
                JP $
14 
 
15 
                DUPL ADR_SEL_ROM-$,0XFF
16 
                OUT (C),A                       ;0014
17 
                NOP
18 
                RET
19 
 
20 
                DUPL 0X0018-$,0XFF
21 
                JP $
22 
 
23 
                DUPL 0X0020-$,0XFF
24 
                JP $
25 
 
26 
                DUPL 0X0028-$,0XFF
27 
                JP $
28 
 
29 
                DUPL 0X0030-$,0XFF
30 
                JP CALL2PAGE
31 
 
32 
                DUPL 0X0038-$,0XFF
33 
                EI
34 
                RET
35 
 
36 
                DUPL 0X0040-$,0XFF
37 
                JP UNP_MAINMENU
38 
 
39 
                DUPL 0X0080-$,0XFF
40 
                include ../../dec40.a80
41 
 
42 
                DUPL 0X00FF-$,0XFF
43 
                DW 0X0038
44 
 
45 
UNP_MAINMENU    PUSH BC
46 
                LD HL,.LOADADR
47 
                CALL UNPACK
48 
                POP BC
49 
                XOR A
50 
                JP ADR_SEL_ROM
51 
 
52 
.LOADADR
53 
        IFDEF DOS_FE
54 
                binclude ../../mainmenu/main_fe_pack.rom
55 
        ELSE
56 
                binclude ../../mainmenu/main_pack.rom
57 
        ENDIF
58 
 
831 savelij 59 
FREE_MAINMENU   EQU 0X3FF6-$
60 
 
803 savelij 61 
                PHASE $&0X3FFF
831 savelij 62 
                DUPL FREE_MAINMENU,0XFF
63 
                DW FREE_MAINMENU                ;��������� �����
803 savelij 64 
                DB "MNMENU"
65 
                DW DATA_VERS
66 
                DEPHASE