Subversion Repositories pentevo

Rev

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

Rev Author Line No. Line
507 savelij 1 
 
1186 savelij 2 
; LAST UPDATE: 16.02.2025 savelij
507 savelij 3 
 
1186 savelij 4 
TAPE_EMUL       LD H,CMOS.BYTE_00
507 savelij 5 
                CALL READCMOS
1186 savelij 6 
                AND CMOS_ED.M_EMUL_TAPE
507 savelij 7 
                JR NZ,EMULOADTAP
553 savelij 8 
                LD A,(RREG_A)
9 
                LD (RREG_C),A
550 savelij 10 
                CP A
11 
                PUSH AF
12 
                POP HL
553 savelij 13 
                LD (RREG_F),HL
507 savelij 14 
                RET
15 
 
1186 savelij 16 
EMULOADTAP      LD A,(CPU2+2)                   ;  ࠭  稭 ᫥騩
507 savelij 17 
                LD IYL,A
736 savelij 18 
                ADD A,RAM_TAPE
1186 savelij 19 
                LD BC,WIN_P1
20 
                OUT (C),A                       ; ॠ쭠 ࠭ 㤠
21 
                LD HL,(CPU2)                    ; ᬥ饭  ࠭
22 
                LD DE,(RREG_IXL)                ;  㤠
507 savelij 23 
                LD A,D
24 
                EXX
1186 savelij 25 
                LD BC,WIN_P2
26 
                CP 0x80
27 
                LD A,0xFA                       ;   ᮢ 㧪 4000-7FFF
507 savelij 28 
                JR C,ELT01
1186 savelij 29 
                LD A,0xFD                       ;   ᮢ 㧪 8000
507 savelij 30 
ELT01           OUT (C),A
1186 savelij 31 
                LD IYH,A                        ;  ࠭   ७ᨬ
507 savelij 32 
                EXX
1186 savelij 33 
                LD A,0x40                       ;   ᮢ 4000-7FFF 㧨  4000
507 savelij 34 
                JR C,ELT02
1186 savelij 35 
                LD A,0                          ;   ᮢ 8000    㧪  塞
507 savelij 36 
ELT02           ADD A,D
1186 savelij 37 
                LD D,A                          ; ॠ  㪫
507 savelij 38 
                SET 6,H
39 
                LD C,(HL)
40 
                INC HL
1186 savelij 41 
                LD B,(HL)                       ; 﫨 ࠧ   㧪
507 savelij 42 
                INC HL
1186 savelij 43 
                INC HL                          ; ய᪠ 䫠
705 savelij 44 
                DEC BC
1186 savelij 45 
                DEC BC                          ; 㧨  2   ( 䫠   CRC)
507 savelij 46 
ELT07           LDI
47 
                JP PO,ELT05
48 
                LD A,D
1186 savelij 49 
                CP 0xC0
507 savelij 50 
                JR C,ELT06
51 
                LD A,IYH
1186 savelij 52 
                CP 0xFA
507 savelij 53 
                JR NZ,ELT06
1186 savelij 54 
                LD A,0xFD
507 savelij 55 
                LD IYH,A
56 
                EXX
1186 savelij 57 
                LD B,HIGH (WIN_P2)
507 savelij 58 
                OUT (C),A
59 
                EXX
1186 savelij 60 
                LD D,0x80
507 savelij 61 
ELT06           LD A,H
1186 savelij 62 
                CP 0x80
507 savelij 63 
                JR C,ELT07
64 
                INC IYL
65 
                LD A,IYL
736 savelij 66 
                ADD A,RAM_TAPE
507 savelij 67 
                EXX
1186 savelij 68 
                LD B,HIGH (WIN_P1)
507 savelij 69 
                OUT (C),A
70 
                EXX
1186 savelij 71 
                LD H,0x40
507 savelij 72 
                JR ELT07
73 
 
1186 savelij 74 
ELT05           INC HL                          ; ய ஫쭮 㬬
705 savelij 75 
                RES 6,H
1186 savelij 76 
        EVOPORT WIN_P1,0xFA                     ; 㫨 ࠭  1  ஥஢
77 
                LD B,HIGH (WIN_P2)
507 savelij 78 
                XOR A
1186 savelij 79 
                OUT (C),A                       ; 稫 ᫥ ࠭
80 
                LD (CPU2),HL                    ; 㫨 ᬥ饭  ࠭  㧪
507 savelij 81 
                LD A,IYL
1186 savelij 82 
                LD (CPU2+2),A                   ; 㫨  ६  ⥪饩 ࠭ 㧪
553 savelij 83 
                LD HL,(RREG_IXL)
84 
                LD DE,(RREG_E)
507 savelij 85 
                ADD HL,DE
553 savelij 86 
                LD (RREG_IXL),HL
507 savelij 87 
                LD HL,0
553 savelij 88 
                LD (RREG_E),HL
89 
                LD HL,RREG_F
507 savelij 90 
                RES 6,(HL)
91 
                SET 0,(HL)
92 
                RET
93 
 
94 
TAPE_INIT       XOR A
1186 savelij 95 
                LD HL,CPU2
507 savelij 96 
                LD (HL),A
97 
                INC L
98 
                LD (HL),A
99 
                INC L
100 
                LD (HL),A
101 
                RET