hours of glitch :(

Howdy, Sergei! 11/13/2001 at 01:25 Sergei Chikalev wrote to Valerij Kozhevnikoff: SC> Result: And things are still there (c) Krylov Don't cry! Here are two raw materials for you. The first one can read CMOS, recognize BCD/BIN, Y2K fixed Written as a driver for Lara. Worked on Dallas with inclusion access. There were no glitches. The second one can write in CMOS and is used exclusively for launching subjects into operation, since it immediately fills the memory kmosa with the required values. Dezhi... === Cut === ORG #5b00 JR init JR load JR read load RET init LD (bufadr+1),HL LD(close+1),A OR#80 LD (read+1),A LD BC,#eff7 OUT(C),A LD A,#0b CALL reg_a AND #04 JR NZ,read LD HL,#0000 LD (bcd),HL read LD A,#80 LD BC,#eff7 OUT(C),A LD A,#0c CALL reg_a AND #10 SCF JR Z,close bufadr LD HL,#0000 LD DE,line PUSH HL loop LD A,(DE) OR A JR Z,eloop DEC A CALL reg_a bcd JR bin PUSH DE LD B,A AND #0f LD C,A LD A,B SRL A SRL A SRL A SRL A OR A JR Z,mini LD B,A XOR A LD D,#0a maxi ADD A,D DJNZ maxi mini ADD A,C POP DE bin LD (HL),A INC HL XOR A LD (HL),A INC HL INC DE JR loop eloop POP DE LD A,(DE) CP 99 LD HL,2000 JR C,milleny LD HL,1900 milleny LD B,#00 LD C,A ADD HL,BC EX DE,HL LD (HL),E INC HL LD (HL),D SCF CCF close LD A,#00 LD BC,#eff7 OUT (C),A RET reg_a LD BC,#dff7 PUSH AF busy LD A,#0a OUT (C),A RLC B IN A,(C) RRC B RLA JR C,busy POP AF OUT (C),A RLC B IN A,(C) RET line DB #0a,#09,#08,#05,#03,#01,#00 === Cut === === Cut === ORG #8000 DI LD A,#80 LD BC,#eff7 OUT (C),A LD HL,dump XOR A loop LD E,(HL) reg_a LD BC,#dff7 PUSH AF busy LD A,#0a OUT (C),A RLC B IN A,(C) RRC B RLA JR C,busy POP AF OUT (C),A RLC B OUT (C),E INC A CP #40 JR Z,close INC HL JR loop close LD BC,#eff7 XOR A OUT (C),A EI RET dump DB #00,#00,#12,#00,#23,#00,#06 DB #03,#02,#01,#20,#02,#00,#00 DB #00,#00,#00,#00,#00,#00,#00 DB #00,#00,#00,#00,#00,#00,#00 DB #00,#00,#00,#00,#00,#00,#00 DB #00,#00,#00,#00,#00,#00,#00 DB #00,#00,#00,#00,#00,#00,#00 DB #00,#00,#00,#00,#00,#00,#00 DB #00,#00,#00,#00,#00,#00,#00 DB #00 === Cut === Все! Пока, Юрий. [I.ZX] [Химики] [За полную адресацию] [Лыжные палки] /_500:322/33@ZXNet_/ /_dangercorp@bigfoot.com_/ /_dangercorp@mail.ru_/ /_2:462/93.33@FidoNet_/