Subversion Repositories pentevo

Rev

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

Rev 736 Rev 831
Line 1... Line 1...
1 
 
 1 
 
2 
;LAST UPDATE: 31.12.2016 savelij
 2 
;LAST UPDATE: 30.06.2019 savelij
3 
 
 3 
 
4 
;НА ВХОДЕ: H-АДРЕС ЯЧЕЙКИ
 4 
;НА ВХОДЕ: H-АДРЕС ЯЧЕЙКИ
5 
;          L-ПРОЧИТАННОЕ ЗНАЧЕНИЕ
 5 
;          L-ПРОЧИТАННОЕ ЗНАЧЕНИЕ
6 
READCMOS        DI
 6 
READCMOS        DI
7 
                PUSH BC
 7 
                PUSH BC
Line 22... Line 22...
22 
OFF_CMOS        POP BC
 22 
OFF_CMOS        POP BC
23 
                LD A,L
 23 
                LD A,L
24 
                AND A
 24 
                AND A
25 
                RET
 25 
                RET
26 
 
 26 
 
27 
CMOS_RW         PCALL P5_READ_BYTE,ROM_RST83
 27 
CMOS_RW         ROMCALL P5_READ_BYTE,ROM_RST83
28 
                LD A,(NEXTBYTERST8)
 28 
                LD A,(NEXTBYTERST8)
29 
                ADD A,A
 29 
                ADD A,A
30 
                ADD A,LOW (CMOSRW_TAB)
 30 
                ADD A,LOW (CMOSRW_TAB)
31 
                LD L,A
 31 
                LD L,A
32 
                ADC A,HIGH (CMOSRW_TAB)
 32 
                ADC A,HIGH (CMOSRW_TAB)
Line 59... Line 59...
59 
                PUSH HL
 59 
                PUSH HL
60 
                POP IX                          ;IX=АДРЕС ГДЕ БАЙТЫ ДЛЯ СЧЕТА CRC
 60 
                POP IX                          ;IX=АДРЕС ГДЕ БАЙТЫ ДЛЯ СЧЕТА CRC
61 
                EX DE,HL
 61 
                EX DE,HL
62 
                AND A
 62 
                AND A
63 
                SBC HL,DE                       ;HL=КОЛИЧЕСТВО ЯЧЕЕК ДЛЯ СЧЕТА
 63 
                SBC HL,DE                       ;HL=КОЛИЧЕСТВО ЯЧЕЕК ДЛЯ СЧЕТА
64 
                PCALL CRC16_FAST,ROM_RST81
 64 
                ROMCALL CRC16_FAST,ROM_RST81
65 
                POP DE
 65 
                POP DE
66 
                RET
 66 
                RET
67 
 
 67 
 
68 
;ВНЕШНИЙ ВЫЗОВ ЧТЕНИЯ CMOS
 68 
;ВНЕШНИЙ ВЫЗОВ ЧТЕНИЯ CMOS
69 
EREAD_CMOS      LD HL,(RREG_L)                  ;H=АДРЕС ЯЧЕЙКИ КМОС ОТКУДА ЧИТАТЬ
 69 
EREAD_CMOS      LD HL,(RREG_L)                  ;H=АДРЕС ЯЧЕЙКИ КМОС ОТКУДА ЧИТАТЬ
Line 122... Line 122...
122 
                PUSH HL
 122 
                PUSH HL
123 
                POP IX
 123 
                POP IX
124 
                EX DE,HL
 124 
                EX DE,HL
125 
                AND A
 125 
                AND A
126 
                SBC HL,DE
 126 
                SBC HL,DE
127 
                PCALL CRC16_FAST,ROM_RST81
 127 
                ROMCALL CRC16_FAST,ROM_RST81
128 
                EX DE,HL
 128 
                EX DE,HL
129 
                LD H,CRCCMOSHIGH
 129 
                LD H,CRCCMOSHIGH
130 
                LD L,D
 130 
                LD L,D
131 
                CALL WRITECMOS                  ;ЗАПИСАЛИ СТАРШИЙ БАЙТ ПОСЧИТАННОГО CRC
 131 
                CALL WRITECMOS                  ;ЗАПИСАЛИ СТАРШИЙ БАЙТ ПОСЧИТАННОГО CRC
132 
                DEC H
 132 
                DEC H