falso
/
zxuno-git
mirror of https://github.com/zxdos/zxuno.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

optimizo también date

This commit is contained in:
antoniovillena 2022-12-29 22:42:39 +01:00
parent b0392db0dc
commit e9f34f62c1
2 changed files with 5 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
SD/BIN/DATE
View File

Binary file not shown.

13
utils/date.asm
View File

@ -137,15 +137,12 @@ LoopSendMess ld a, (hl) ;y en un bucle, me pongo a enviar uno tr
or a or a
ret ret
SendByte ;Enviar un byte por I2C. Byte en A. BC=puerto de datos del ZXUNO ya apuntando a I2CREG. Usa y modifica: A, D, flags SendByte scf ;Enviar un byte por I2C. Byte en A. BC=puerto de datos del ZXUNO ya
scf adc a, a ;apuntando a I2CREG. Usa y modifica: A, D, flags
TransBit adc a, a ;A otro bit Trans call c, Send1
jr z, Endbyte
call c, Send1
call nc, Send0 call nc, Send0
and a add a, a
jr TransBit jr nz, Trans
Endbyte ; Wait for ACK
Send1 ld d, SCL0SDA1 Send1 ld d, SCL0SDA1
out (c), d out (c), d
ld d, SCL1SDA1 ld d, SCL1SDA1