Posted on January 14, 2005 at 02:57Hi
; BIOS configuring STPC HOST Register to base addres 5000h
;~~~~~~~~~~~~~~~~~~~~~~~~~
; ~~~ MACROS ~~~~
wr_host_io_b macro rg, m, d
mov dx,5000h
mov al,rg
out dx,al
mov dx,5004h
in al,dx
mov bl,al ; �?² bl - �?¿Ñ€�?¾Ñ‡�?¸Ñ‚�?°�?½�?½Ñ‹�?µ �?´�?°�?½�?½Ñ‹�?µ
and bl,not m
mov al,d
and al,m
or al,bl
out dx,al
endm
rd_host_io_b macro rg, rez
;push dx
mov dx,5000h
mov al,rg
out dx,al
mov dx,5004h
in al,dx
mov rez,al ; �?² rez - �?¿Ñ€�?¾Ñ‡�?¸Ñ‚�?°�?½�?½Ñ‹�?µ �?´�?°�?½�?½Ñ‹�?µ
;pop dx
endm
wr_host_io_dw macro rg, m, d
mov dx,5000h
mov al,rg
out dx,al
mov dx,5004h
in eax,dx
mov ebx,eax ; �?² ebx - �?¿Ñ€�?¾Ñ‡�?¸Ñ‚�?°�?½�?½Ñ‹�?µ �?´�?°�?½�?½Ñ‹�?µ
and ebx,not m
mov eax,d
and eax,m
or eax,ebx
out dx,eax
endm
rd_host_io_dw macro rg, rez
mov dx,5000h
mov al,rg
out dx,al
mov dx,5004h
in eax,dx
mov rez,eax ; �?² rez - �?¿Ñ€�?¾Ñ‡�?¸Ñ‚�?°�?½�?½Ñ‹�?µ �?´�?°�?½�?½Ñ‹�?µ
endm
;~~~~~~~~~~~~~~~~~~~~~~~~~
; ~~~ END MACROS ~~~~
; Programm for working I2C with At24C02 without interrupt
OPTION SCOPED
cseg segment para public 'code'
assume cs:cseg,ds:cseg
.486P
begin:
;Init
wr_host_io_dw 0Ch, 01FFFF0h, 0100FF0h ; Set FIFO -> maximum
wr_host_io_dw 0Ch, 0Fh, 07h ; Soft reset & Flush FIFO
wt: ; wait transmit & receive FIFO empty, I2C not busy
rd_host_io_b 4h, bl
mov al, bl
and al,40h
jz wt
; Write Data to AT24C02 for test
wr_host_io_dw 0Ch, 0FF0h, 08F0h ; Set FIFO -> maximum
;wr_host_io_dw 08h, 07FFFF03h, 03h ; START & STOP transfer I2C
wr_host_io_dw 18h, 0FFFFFFFFh, 0ah ; 8 BYTES transfer I2C to AT24C02
wr_host_io_b 0h, 0FFh, 0A0h ; Address + Write
wr_host_io_b 0h, 0FFh, 0h ; word address
wr_host_io_b 0h, 0FFh, 011h ; data0
wr_host_io_b 0h, 0FFh, 022h ; data1
wr_host_io_b 0h, 0FFh, 033h ; data2
wr_host_io_b 0h, 0FFh, 044h ; data3
wr_host_io_b 0h, 0FFh, 055h ; data4
wr_host_io_b 0h, 0FFh, 066h ; data5
wr_host_io_b 0h, 0FFh, 077h ; data6
wr_host_io_b 0h, 0FFh, 088h ; data7
wr_host_io_dw 08h, 07FFFF03h, 03h ; START & STOP transfer I2C
wt1: ; wait transmit FIFO empty
rd_host_io_b 4h, bl
mov al,bl
and al,10h
jnz wt1
wt11: ; wait I2C busy
rd_host_io_b 4h, bl
mov al,bl
and al,1h
jnz wt11
mov ecx, 0FFFFFFh
pause_wr:
loopd pause_wr
;Read data from AT24C02 for test
wr_host_io_dw 18h, 0FFFFFFFFh, 02h ; 2 BYTE write to I2C (address + word address for read)
wr_host_io_b 0h, 0FFh, 0a0h ; Address + Write
wr_host_io_b 0h, 0FFh, 0h ; Word address = 0
wr_host_io_dw 08h, 03h, 03h ; START & STOP
rt211: ; wait transmit FIFO empty
rd_host_io_b 4h, bl
mov al,bl
and al,010h
jz rt211
rt111: ; wait I2C busy
rd_host_io_b 4h, bl
mov al,bl
and al,1h
jnz rt111
wr_host_io_b 0h, 0FFh, 0a1h ; Addrees + Read
wr_host_io_dw 18h, 0FFFFFFFFh, 08h ; 8 BYTE read from I2C
wr_host_io_dw 08h, 07FFFF03h, 04000003h; START & STOP transfer (read) I2C
rtt: ; wait transmit FIFO empty
rd_host_io_b 4h, bl
mov al,bl
and al,10h
jz rtt
rtr: ; wait Byte received in FIFO
rd_host_io_dw 4h, ebx
mov eax,ebx
ror eax,16
and al,2h
jz rtr
rt11_: ; wait I2C busy
rd_host_io_b 4h, bl
mov al,bl
and al,1h
jnz rt11_
wr_host_io_dw 0Ch, 06h, 06h ; Flush FIFO
wt_fr: ; wait transmit & receive FIFO empty
rd_host_io_b 4h, bl
mov al, bl
and al,40h
jz wt_fr
mov cx,8
read_fifo1:
rd_host_io_b 0h, bl ; 8 cycle read
mov al, bl
call snd_byte
loop read_fifo1
; After I send receive byte to COM-port or check
ad_r dd 0
seg_ad dd 0
ss_n dw 0
sp_n dw 0
cseg ends
end begin
;-----------------------------
Best regards
