Subversion Repositories pentevo

Rev

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

Rev Author Line No. Line
803 savelij 1
 
1186 savelij 2
; LAST UPDATE: 16.02.2025 savelij
803 savelij 3
 
836 savelij 4
loc_3C47        LD BC,WIN_A3
1186 savelij 5
                LD A,0xFF
836 savelij 6
                OUT (C),A               ; ਢ離   7FDD
1186 savelij 7
LOC_3C4B        LD DE,0xFFFF
803 savelij 8
                ld      a, 7
9
                jp      loc_9
10
 
1186 savelij 11
loc_3C50        ld      sp, 0x5BFF
836 savelij 12
                LD BC,WIN_A3
1186 savelij 13
                LD A,0x40
836 savelij 14
                OUT (C),A               ;ࠧ஢ ਢ離   7FFD
1186 savelij 15
                ld      a, 1Fh ! 0xFF
840 savelij 16
                LD BC,WIN_P3
17
                OUT (C),A
803 savelij 18
                ld      hl, 0C000h
19
                ld      a, (hl)
20
                cp      0C3h
21
                jr      nz, loc_3C47
838 savelij 22
                LD A,MEMORY_128 | TURBO_3
23
                RST8D _SET_MODE         ;⠭ 3,5   128
803 savelij 24
                xor     a
25
loc_3C61        add     a, (hl)
26
                adc     a, 0
27
                inc     hl
28
                bit     7, h
29
                jr      nz, loc_3C61
30
                dec     a
31
                jr      nz, loc_3C47
32
                ld      a, 0AAh
33
                dec     hl
34
                cp      (hl)
35
                jr      nz, loc_3C47
36
                cpl
37
                dec     hl
38
                cp      (hl)
39
                jr      nz, loc_3C47
1186 savelij 40
                LD H,CMOS.BYTE_03
838 savelij 41
                CALL READCMOS
1186 savelij 42
                AND CMOS_E9.M_KILL_REZIDENT
838 savelij 43
                JR Z,.L1
1186 savelij 44
                LD (0xC000),A           ;⨬ १
838 savelij 45
.L1             ld      hl, 0D000h
803 savelij 46
                ld      de, 5B00h
47
                ld      bc, 2500h
48
                ldir
840 savelij 49
                LD BC,WIN_P3            ; ⠭  ࠭
1186 savelij 50
                ld      a, 1Eh ! 0xFF
840 savelij 51
                LD HL,LDIR_HL_DE
52
                LD DE,.E1
53
                JP (HL)
54
 
1186 savelij 55
.E1             ld      a, 3 ! 0xFF
840 savelij 56
                LD HL,LDIR_DE_HL
57
                LD DE,.E2
58
                JP (HL)
59
 
1186 savelij 60
.E2             ld      a, 1Dh ! 0xFF
840 savelij 61
                LD HL,LDIR_HL_DE
62
                LD DE,.E3
63
                JP (HL)
64
 
1186 savelij 65
.E3             ld      a, 1 ! 0xFF
840 savelij 66
                LD HL,LDIR_DE_HL
67
                LD DE,.E4
68
                JP (HL)
69
 
1186 savelij 70
.E4             ld      a, 1Ch ! 0xFF
840 savelij 71
                LD HL,LDIR_HL_DE
72
                LD DE,.E5
73
                JP (HL)
74
 
75
.E5
1186 savelij 76
                LD A, 0 ! 0xFF
840 savelij 77
                LD HL,LDIR_DE_HL
78
                LD DE,.E6
79
                JP (HL)
80
 
1186 savelij 81
.E6             ld      a, 1Bh ! 0xFF
840 savelij 82
                LD HL,LDIR_HL_DE
83
                LD DE,.E7
84
                JP (HL)
85
 
86
.E7
1186 savelij 87
                LD A,0 ! 0xFF
840 savelij 88
                OUT (C),A               ;㫨 ࠭
838 savelij 89
                LD BC,WIN_A3
1186 savelij 90
                LD A,0xFF
838 savelij 91
                OUT (C),A               ; ਢ離   7FDD
1186 savelij 92
                ld      sp, (0x5B73)
803 savelij 93
                ret
94
 
840 savelij 95
LDIR_DE_HL      OUT (C),A
96
                ld      a, 0FFh
803 savelij 97
                or      a
98
                jr      loc_3CE0
99
 
840 savelij 100
LDIR_HL_DE      OUT (C),A
101
                xor     a
102
loc_3CE0        EXX
103
                ld      hl, 0C000h
803 savelij 104
                ld      de, 8000h
105
                ld      bc, 4000h
106
                jr      z, loc_3CEC
107
                ex      de, hl
108
loc_3CEC        ldir
840 savelij 109
                EXX
110
                EX DE,HL
111
                JP (HL)