Subversion Repositories pentevo

Rev

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

Rev Author Line No. Line
680 savelij 1 
 
1120 savelij 2 
; LAST UPDATE: 01.11.2023 savelij
680 savelij 3 
 
4 
;==================   =======================
1120 savelij 5 
RD_HDD_SMUC     PUSH BC
680 savelij 6 
                PUSH DE
7 
                CALL SETSREG
8 
                EX AF,AF'
780 savelij 9 
                LD B,HIGH (PS_1F7)
1120 savelij 10 
                LD A,0x20
680 savelij 11 
                CALL SOUTPRT
12 
HDSRDM2         CALL SINPRT
1120 savelij 13 
                AND 0x88
680 savelij 14 
                CP 8
15 
                JR NZ,HDSRDM2
16 
                EX AF,AF'
17 
HDSRDM1         PUSH AF
1007 savelij 18 
                LD DE,PS_PORT_RW
1120 savelij 19 
                LD A,0x40
680 savelij 20 
RDCSSC1         EX AF,AF'
21 
                LD B,D
22 
                CALL SINPRT
23 
                LD (HL),A
24 
                INC HL
25 
                LD B,E
26 
                CALL SINPRT
27 
                LD (HL),A
28 
                INC HL
29 
                LD B,D
30 
                CALL SINPRT
31 
                LD (HL),A
32 
                INC HL
33 
                LD B,E
34 
                CALL SINPRT
35 
                LD (HL),A
36 
                INC HL
37 
                LD B,D
38 
                CALL SINPRT
39 
                LD (HL),A
40 
                INC HL
41 
                LD B,E
42 
                CALL SINPRT
43 
                LD (HL),A
44 
                INC HL
45 
                LD B,D
46 
                CALL SINPRT
47 
                LD (HL),A
48 
                INC HL
49 
                LD B,E
50 
                CALL SINPRT
51 
                LD (HL),A
52 
                INC HL
53 
                EX AF,AF'
54 
                DEC A
55 
                JR NZ,RDCSSC1
780 savelij 56 
                LD B,HIGH (PS_1F7)
680 savelij 57 
HDSRDM3         CALL SINPRT
1120 savelij 58 
                AND 0x80
680 savelij 59 
                JR NZ,HDSRDM3
60 
                POP AF
61 
                DEC A
62 
                JR NZ,HDSRDM1
63 
                POP DE
64 
                POP BC
65 
                RET
66 
 
67 
SETSREG         PUSH DE
68 
                LD D,B
69 
                LD E,C
70 
                EX AF,AF'
71 
                LD A,(MAS_SLA)
72 
                OR D
780 savelij 73 
                LD BC,PS_1F6
680 savelij 74 
                CALL SOUTPRT
780 savelij 75 
                LD B,HIGH (PS_1F5)
680 savelij 76 
                LD A,E
77 
                CALL SOUTPRT
78 
                POP DE
780 savelij 79 
                LD B,HIGH (PS_1F4)
680 savelij 80 
                LD A,D
81 
                CALL SOUTPRT
780 savelij 82 
                LD B,HIGH (PS_1F3)
680 savelij 83 
                LD A,E
84 
                CALL SOUTPRT
780 savelij 85 
                LD B,HIGH (PS_1F2)
680 savelij 86 
                EX AF,AF'
87 
 
88 
SOUTPRT         PUSH HL
1120 savelij 89 
                LD HL,0x3FF0
680 savelij 90 
                EX (SP),HL
1120 savelij 91 
                JP 0x3D2F
680 savelij 92 
 
93 
SINPRT          PUSH HL
1120 savelij 94 
                LD HL,0x3FF3
680 savelij 95 
                EX (SP),HL
1120 savelij 96 
                JP 0x3D2F
680 savelij 97 
;==================   =======================