ZXNet эхоконференция «hardware.zx»

Hемедленно нажми на RESET, Konstantin! 19 Sep 01 18:32, Konstantin Lebedev wrote to All: KL> Вот надо одному товарищу приписать отпрос портов часиков по KL> глюку для драйвера модема для ММДы (4.48). Он ббс хоц открыть. KL> Дык за неимением у меня инфы о портах, прошу сюда кинуть их KL> адреса. Заранее благодарен. Из моего (не знаю насколько старого) драйвера, судя по всему для одной из MMD версии 4.xx. Hе знаю насколько он хорошо будет работать с той ММДой которая сейчас -- инициализация и антиглюк менялись каждый раз... Вполне возможно, что поддерживает только часы, в которых время хранится в BCD (упакованный двоично-десятичный) формате. Блокировку доступа к микросхеме CMOS через порт ЕFF7 _HЕ_ _ИСПОЛЬЗУЕТ_ !!! Собирается ассемблером ZXASM3.0. Могу дать целый драйвер. === Cut === ;--------------------------------------- ; ;РАБОТА С ЧАСАМИ А ГЛЮКЕ БЕЗ #EFF7 ; OUT_C PUSH BC PUSH AF LD A,C LD BC,#DFF7 OUT (C),A POP AF LD B,#BF OUT (C),A POP BC RET IN_C PUSH BC LD A,C LD BC,#DFF7 OUT (C),A LD B,#BF IN A,(C) POP BC RET BCD_BIN PUSH BC : LD B,A AND #F0 : RRCA LD C,A RRCA : RRCA ADD A,C : LD C,A LD A,B : AND #0F ADD A,C POP BC : RET BIN_BCD PUSH BC : LD BC,#FF0A INC B : SUB C : JR NC,$-2 ADD A,C : LD C,A LD A,B : RLCA : RLCA : RLCA RLCA : OR C : POP BC : RET ;*********************************** ;УСТАОВИТЬ ВРЕМЯ ;[H]-[L]-[D]-[B]-[C]-[E]-[A] ;ГГ ММ ДД ЧЧ ММ СС ДЕЬ_ЕДЕЛИ D_SET_TIME PUSH AF PUSH BC D_SET1 LD C,#0A : CALL IN_C RLCA : JR C,D_SET1 LD C,#0B : CALL IN_C AND %01111001 OR %10000010 ; BIN 24 SET MODE CALL OUT_C LD C,#0D: CALL IN_C LD C,#0C: CALL IN_C LD A,E : CALL BIN_BCD : LD C,#00 : CALL OUT_C LD A,D : CALL BIN_BCD : LD C,#07 : CALL OUT_C POP DE LD A,E : CALL BIN_BCD : LD C,#02 : CALL OUT_C LD A,D : CALL BIN_BCD : LD C,#04 : CALL OUT_C LD A,L : CALL BIN_BCD : LD C,#08 : CALL OUT_C LD A,H : CALL BIN_BCD : LD C,#09 : CALL OUT_C POP AF LD C,#06 : AND 7 : CALL OUT_C LD C,#0B : CALL IN_C AND %01111001 OR %00000010 : CALL OUT_C XOR A : RET ;--------------------------- ;СЧИТАТЬ ВРЕМЯ ;[H]-[L]-[D]-[B]-[C]-[E]-[A] ;ГГ ММ ДД ЧЧ ММ СС ДЕЬ_ЕДЕЛИ D_RD_TIME CALL ANTIGLUK_ON D_RDT1 CALL R512WI1 LD C,#0B : CALL IN_C AND %00100001 OR %00000010 ; BIN 24 CALL OUT_C CALL R512WI1 LD C,#08 : CALL IN_C : CALL BCD_BIN : LD L,A CALL R512WI1 LD C,#09 : CALL IN_C : CALL BCD_BIN : LD H,A CALL R512WI1 LD C,#02 : CALL IN_C : CALL BCD_BIN : LD E,A CALL R512WI1 LD C,#04 : CALL IN_C : CALL BCD_BIN : LD D,A PUSH DE CALL R512WI1 LD C,#00 : CALL IN_C : CALL BCD_BIN : LD E,A CALL R512WI1 LD C,#07 : CALL IN_C : CALL BCD_BIN : LD D,A CALL R512WI1 LD C,#06 : CALL IN_C : CALL BCD_BIN POP BC: OR A: RET R512WI1 LD C,#0A : CALL IN_C RLCA : JR C,R512WI1 RET ;--------------------------- ДОБАВИТЬ К ТАЙМЕРУ [A] ЕДЕИЦ D_ADD_ALR PUSH AF CALL #C036 LD C,A : POP AF : ADD A,C JP NC,#C030 LD A,255 JP #C030 ;--------------------------- УСТАОВИТЬ ТАЙМЕР А [A] ЕДЕИЦ D_SET_ALR PUSH AF D_SALRM1 LD C,#0A : CALL IN_C RLCA : JR C,D_SALRM1 LD C,#02 : CALL IN_C CALL BCD_BIN : LD L,A ;МИ POP AF LD C,A : LD B,0 : LD H,B ADD HL,BC LD C,#04 : CALL IN_C ;ЧАСЫ CALL BCD_BIN LD BC,60 STT OR A : SBC HL,BC: JR C,STT1 INC A : JR STT STT1 ADD HL,BC: LD H,A LD (DTFREE),HL LD C,#07: CALL IN_C ;ДЕЬ CALL BCD_BIN LD (TDAY),A LD A,1: LD (FLAG),A RET ;************************************* ЕСЛИ ВРЕМЯ ИСТЕКЛО, CY=1 ;[A] - СКОЛЬКО ЕДИИЦ ОСТАЛОСЬ D_RD_ALR LD C,#0A : CALL IN_C RLCA : JR C,D_RD_ALR FLAG EQU $+1 : LD A,0 OR A : SCF : RET Z LD C,#07 : CALL IN_C ;ДЕЬ CALL BCD_BIN TDAY EQU $+1 : CP 0 LD D,0 : JR Z,$+4 : LD D,24 LD C,#02 : CALL IN_C ;МИ CALL BCD_BIN LD E,A LD C,#04 : CALL IN_C ;ЧАСЫ CALL BCD_BIN ADD A,D : LD D,A DTFREE EQU $+1 : LD HL,0 LD A,L : CP E : JR NC,WFREE1 ADD A,60 : DEC H WFREE1 SUB E : LD E,A LD A,H : SUB D : LD D,A JR C,NO_TIME LD B,60 : XOR A WFT1 ADD A,D : JR C,WFTER DJNZ WFT1 ADD A,E : JR NC,WFT2 WFTER LD A,255 WFT2 OR A : RET NZ NO_TIME XOR A : LD (FLAG),A SCF D_RET RET ANTIGLUK RET ANTIGL0 LD C,#0A : CALL IN_C RLCA : JR C,ANTIGL0 LD C,#02 : CALL IN_C : LD E,A LD C,#04 : CALL IN_C : LD D,A LD A,3 : ADD A,E : DAA : LD E,A CP #60 : JR C,ANTIGL1 SUB #60 : DAA : LD E,A LD A,D : ADD A,1 : DAA : LD D,A CP #24 : JR C,ANTIGL1 SUB #24 : DAA : LD D,A ANTIGL1 LD A,#FF : LD C,#01 : CALL OUT_C LD A,E : LD C,#03 : CALL OUT_C LD A,D : LD C,#05 : CALL OUT_C LD C,#0B : CALL IN_C AND %00100001 OR %00100010 ; BIN 24 ALARM JP OUT_C ANTIGLUK_ON CALL ANTIGLUK_OFF XOR A LD (ANTIGLUK),A LD A,#C9 LD (ANTIGLUK_ON),A JP ANTIGLUK ANTIGLUK_OFF LD C,#0B : CALL IN_C AND %00000001 OR %00000010 CALL OUT_C LD C,#0C CALL IN_C LD C,#0D JP IN_C === Cut ===