Subversion Repositories pentevo

Rev

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

Rev 1120 Rev 1186
Line 1... Line 1...
1
 
1
 
2
; LAST UPDATE: 01.11.2023 savelij
2
; LAST UPDATE: 14.02.2025 savelij
3
 
3
 
4
        TITLE "addon2.a80 ROM_RST80"
4
        TITLE "addon2.a80 ROM_RST80"
5
 
5
 
6
                PHASE CPU0
6
        PHASE CPU0
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
16
                OUT (C),A
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 0x003E - $,0xFF
36
                DB 0x003E - $ DUP 0xFF
37
                EI
37
                EI
38
                RET
38
                RET
39
 
39
 
40
                DUPL 0x0080 - $,0xFF
40
                DB 0x0080 - $ DUP 0xFF
41
                binclude ../../dec40.bin
41
                binclude ../../dec40.bin
42
 
42
 
43
                DUPL 0x00FF - $,0xFF
43
                DB 0x00FF - $ DUP 0xFF
44
                DW 0x0038
44
                DW 0x0038
45
 
45
 
-
 
46
UNPACK_STS
46
UNPACK_STS      EVOPORT WIN_P3,RAM_STS
47
      EVOPORT WIN_P3,RAM_STS
47
                LD HL,STS_PACK
48
                LD HL,STS_PACK
48
                LD DE,CPU3
49
                LD DE,CPU3
49
                JP UNPACK
50
                JP UNPACK
50
 
51
 
51
UNP_MICRO_BOOT  LD HL,MICRO_BOOT
52
UNP_MICRO_BOOT  LD HL,MICRO_BOOT
52
                LD DE,DRV_VAR + 0x300
53
                LD DE,DRV_VAR + 0x300
53
                CALL UNPACK                     ; распаковали FAT BOOT
54
                CALL UNPACK                     ; распаковали FAT BOOT
54
                LD HL,BUF_TEKVOL
55
                LD HL,BUF_CURRFATVAR
55
                LD DE,(RREG_L)
56
                LD DE,(RREG_L)
56
                LD BC,0x100
57
                LD BC,BUF_CURRFATVAR_Size
57
                LDIR                            ; скопировали переменные FAT драйвера выбранного раздела
58
                LDIR                            ; скопировали переменные FAT драйвера выбранного раздела
58
                RET
59
                RET
59
 
60
 
60
                include fontread.a80
61
                include fontread.a80
61
 
62
 
Line 66... Line 67...
66
 
67
 
67
STS_PACK        binclude ../../sts/sts_pack.rom
68
STS_PACK        binclude ../../sts/sts_pack.rom
68
 
69
 
69
FREE_ADDON2     EQU 0x3FF6 - $
70
FREE_ADDON2     EQU 0x3FF6 - $
70
 
71
 
71
                DUPL FREE_ADDON2,0xFF
72
                DB FREE_ADDON2 DUP 0xFF
72
                DW FREE_ADDON2                  ; размер свободного места
73
                DW FREE_ADDON2                  ; размер свободного места
73
                DB "ADDON2"
74
                DB "ADDON2"
74
                DW DATA_VERS
75
                DW DATA_VERS
-
 
76
        DEPHASE