Subversion Repositories pentevo

Rev

Rev 831 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 831 Rev 1186
Line 1... Line 1...
1 
 
 1 
 
2 
;LAST UPDATE: 06.07.2019 savelij
 2 
; LAST UPDATE: 13.02.2025 savelij
3 
 
 3 
 
4 
        TITLE "pack main menu"
 4 
        TITLE "pack main menu"
5 
 
 5 
 
6 
                PHASE 0
 6 
        PHASE 0
7 
                JP $
 7 
                JP $
8 
 
 8 
 
9 
                DUPL 0X0008-$,0XFF
 9 
                DB 0x0008-$ DUP 0xFF
10 
                JP $
 10 
                JP $
11 
 
 11 
 
12 
                DUPL 0X0010-$,0XFF
 12 
                DB 0x0010-$ DUP 0xFF
13 
                JP $
 13 
                JP $
14 
 
 14 
 
15 
                DUPL ADR_SEL_ROM-$,0XFF
 15 
                DB ADR_SEL_ROM-$ DUP 0xFF
16 
                OUT (C),A                       ;0014
 16 
                OUT (C),A                       ; 0014
17 
                NOP
 17 
                NOP
18 
                RET
 18 
                RET
19 
 
 19 
 
20 
                DUPL 0X0018-$,0XFF
 20 
                DB 0x0018-$ DUP 0xFF
21 
                JP $
 21 
                JP $
22 
 
 22 
 
23 
                DUPL 0X0020-$,0XFF
 23 
                DB 0x0020-$ DUP 0xFF
24 
                JP $
 24 
                JP $
25 
 
 25 
 
26 
                DUPL 0X0028-$,0XFF
 26 
                DB 0x0028-$ DUP 0xFF
27 
                JP $
 27 
                JP $
28 
 
 28 
 
29 
                DUPL 0X0030-$,0XFF
 29 
                DB 0x0030-$ DUP 0xFF
30 
                JP CALL2PAGE
 30 
                JP CALL2PAGE
31 
 
 31 
 
32 
                DUPL 0X0038-$,0XFF
 32 
                DB 0x0038-$ DUP 0xFF
33 
                EI
 33 
                EI
34 
                RET
 34 
                RET
35 
 
 35 
 
36 
                DUPL 0X0040-$,0XFF
 36 
                DB 0x0040-$ DUP 0xFF
37 
                JP UNP_MAINMENU
 37 
                JP UNP_MAINMENU
38 
 
 38 
 
39 
                DUPL 0X0080-$,0XFF
 39 
                DB 0x0080-$ DUP 0xFF
40 
                include ../../dec40.a80
 40 
                include ../../dec40.a80
41 
 
 41 
 
42 
                DUPL 0X00FF-$,0XFF
 42 
                DB 0x00FF-$ DUP 0xFF
43 
                DW 0X0038
 43 
                DW 0x0038
44 
 
 44 
 
45 
UNP_MAINMENU    PUSH BC
 45 
UNP_MAINMENU    PUSH BC
46 
                LD HL,.LOADADR
 46 
                LD HL,.LOADADR
47 
                CALL UNPACK
 47 
                CALL UNPACK
48 
                POP BC
 48 
                POP BC
Line 54... Line 54...
54 
                binclude ../../mainmenu/main_fe_pack.rom
 54 
                binclude ../../mainmenu/main_fe_pack.rom
55 
        ELSE
 55 
        ELSE
56 
                binclude ../../mainmenu/main_pack.rom
 56 
                binclude ../../mainmenu/main_pack.rom
57 
        ENDIF
 57 
        ENDIF
58 
 
 58 
 
59 
FREE_MAINMENU   EQU 0X3FF6-$
 59 
FREE_MAINMENU   EQU 0x3FF6-$
60 
 
 60 
 
61 
                PHASE $&0X3FFF
 61 
        PHASE $&0x3FFF
62 
                DUPL FREE_MAINMENU,0XFF
 62 
                DB FREE_MAINMENU DUP 0xFF
63 
                DW FREE_MAINMENU                ;СВОБОДНОЕ МЕСТО
 63 
                DW FREE_MAINMENU                ; свободное место
64 
                DB "MNMENU"
 64 
                DB "MNMENU"
65 
                DW DATA_VERS
 65 
                DW DATA_VERS
66 
                DEPHASE
 66 
        DEPHASE