Subversion Repositories pentevo

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
1047 savelij 1 
 
2 
; LAST UPDATE: 26.12.2022 savelij
3 
 
4 
; для кода со сменой конфигурации памяти ниже 0x8000
5 
 
6 
; ATM CP/M
7 
ATM_CPM         EI
8 
                HALT
9 
                DI
10 
        PEC_ON M_SHADOW_BF
11 
                LD HL,CPM_PAGES
12 
                LD DE,0x3F
13 
ATM_CPM1        LD BC,CONF_128
14 
                OUT (C),D
15 
                LD BC,LOW (WIN_A3)
16 
ATM_CPM2        OUTI
17 
                LD A,B
18 
                SUB E
19 
                LD B,A
20 
                JR NZ,ATM_CPM2
21 
                LD A,D
22 
                XOR 0x10
23 
                LD D,A
24 
                JR NZ,ATM_CPM1
25 
                LD SP,0x8000
26 
                LD BC,0x177
27 
                LD A,6
28 
                OUT (C),A
29 
                LD BC,FDD_EMU_PORT
30 
                XOR A
31 
                OUT (C),A
32 
        PEC_OFF M_SHADOW_BF
33 
                JP 0x000C
34 
 
35 
CPM_PAGES       DB 3!0x7F,2!0x7F,4!0x7F,0!0x7F
36 
                DB 3!0x7F,2!0x7F,5!0x7F,ROM_ATMCPM