mirror of https://github.com/wwarthen/RomWBW.git
b1ackmai1er
5 years ago
8 changed files with 729 additions and 15 deletions
@ -0,0 +1,14 @@ |
|||
@echo off |
|||
setlocal |
|||
|
|||
set TOOLS=../../../Tools |
|||
set PATH=%TOOLS%\tasm32;%PATH% |
|||
set TASMTABS=%TOOLS%\tasm32 |
|||
|
|||
tasm -t180 -g3 -fFF i2cscan.asm i2cscan.com i2cscan.lst |
|||
tasm -t180 -g3 -fFF rtcds7.asm rtcds7.com rtcds7.lst |
|||
|
|||
if errorlevel 1 goto :eof |
|||
|
|||
copy /Y i2cscan*.com ..\..\..\Binary\Apps\ |
|||
copy /Y rtcds7*.com ..\..\..\Binary\Apps\ |
|||
@ -0,0 +1,5 @@ |
|||
@echo off |
|||
setlocal |
|||
|
|||
if exist *.com del *.com |
|||
if exist *.lst del *.lst |
|||
@ -0,0 +1,527 @@ |
|||
|
|||
.ECHO "I2CSCAN"/N |
|||
|
|||
; I2C BUS SCANNER |
|||
; |
|||
_io .equ 0A0h |
|||
_sda .equ 0 |
|||
_scl .equ 1 |
|||
_idle .equ 00000011B |
|||
|
|||
; |
|||
;----------------------------------------------------------------------------- |
|||
; |
|||
PCF_BASE .EQU 0F0H |
|||
PCF_ID .EQU 0AAH |
|||
CPU_CLK .EQU 12 |
|||
; |
|||
PCF_RS0 .EQU PCF_BASE |
|||
PCF_RS1 .EQU PCF_RS0+1 |
|||
PCF_OWN .EQU (PCF_ID >> 1) ; PCF'S ADDRESS IN SLAVE MODE |
|||
|
|||
.org 100h |
|||
|
|||
ld sp,stack |
|||
|
|||
ld hl,signon |
|||
call _strout |
|||
|
|||
ld c,' ' |
|||
call _cout |
|||
call _cout |
|||
call _cout |
|||
|
|||
|
|||
|
|||
; display x axis header 00-0F |
|||
|
|||
xor a |
|||
ld (x),a |
|||
ld b, 16 |
|||
lp1: ld c,' ' |
|||
call _cout |
|||
ld a,(x) |
|||
ld c,a |
|||
inc a |
|||
ld (x),a |
|||
call _hexout |
|||
djnz lp1 |
|||
call _eolout |
|||
|
|||
; start of line loop 00-07 |
|||
|
|||
xor a ; display |
|||
ld (y),a ; y-axis |
|||
ld (addr),a ; prefix |
|||
ld d,8 |
|||
lp3b: ld a,(y) |
|||
ld c,a |
|||
add a,10h |
|||
ld (y),a |
|||
call _hexout |
|||
ld c,':' |
|||
call _cout |
|||
|
|||
; set up x axis loop |
|||
|
|||
xor a |
|||
ld (x),a |
|||
ld e,16 |
|||
lp2b: push de |
|||
|
|||
ld c,' ' |
|||
call _cout |
|||
|
|||
; i2c challenge |
|||
; . issue device start command |
|||
; . write address to device |
|||
; . issue device stop command. |
|||
; . delay |
|||
; . display response |
|||
|
|||
; call _i2c_start |
|||
; ld a,(addr) |
|||
; ld c,a |
|||
; call _i2c_write |
|||
; ld (rc),a |
|||
; call _i2c_stop |
|||
|
|||
CALL PCF_WAIT_FOR_BB |
|||
JP NZ,PCF_BBERR |
|||
; |
|||
LD A,(addr) |
|||
OUT (PCF_RS0),A |
|||
CALL PCF_START ; GENERATE START CONDITION |
|||
; |
|||
ld bc,100 ; delay |
|||
lp6: nop |
|||
dec bc |
|||
ld a,c |
|||
or b |
|||
jr nz,lp6 |
|||
|
|||
CALL PCF_WAIT_FOR_ACK; AND ISSUE THE SLAVE ADDRESS |
|||
or a |
|||
jp nz,lp4f |
|||
|
|||
ld c,'-' ; display no |
|||
call _cout ; response |
|||
call _cout |
|||
jp lp5f |
|||
|
|||
lp4f: ld a,(addr) ; adjust address |
|||
ld c,a ; and display it |
|||
srl c |
|||
call _hexout |
|||
|
|||
lp5f: ld a,(addr) ; next address |
|||
add a,2 ; adjust for |
|||
ld (addr),a ; 7-bit |
|||
|
|||
CALL PCF_STOP |
|||
|
|||
pop de ; check if |
|||
dec e ; reached end |
|||
jp nz,lp2b ; of line |
|||
call _eolout |
|||
|
|||
dec d ; loop until |
|||
jp nz,lp3b ; all done |
|||
|
|||
jp 0 |
|||
|
|||
signon: .db "I2C Bus Scanner" |
|||
.db 13, 10, 13, 10, 0, "$" |
|||
|
|||
_strout: |
|||
st1: ld a,(hl) ; display |
|||
CP '$' ; zero |
|||
ret z ; terminated |
|||
ld c,a ; string |
|||
call _cout |
|||
inc hl |
|||
jp st1 |
|||
|
|||
_hexout: ; display |
|||
ld a,c ; A in hex |
|||
srl a |
|||
srl a |
|||
srl a |
|||
srl a |
|||
add a,30h |
|||
cp 3Ah |
|||
jp c,h1 |
|||
add a,7 |
|||
h1: ld h,a |
|||
ld a,c |
|||
and 0Fh |
|||
add a,30h |
|||
cp 3Ah |
|||
jp c,h2 |
|||
add a,7 |
|||
h2: ld l,a |
|||
ld c,h |
|||
call _cout |
|||
ld c,l |
|||
call _cout |
|||
ret |
|||
|
|||
_eolout: ; newline |
|||
ld c,13 |
|||
call _cout |
|||
ld c,10 |
|||
call _cout |
|||
ret |
|||
|
|||
_cout: ; character |
|||
push af ; output |
|||
push bc |
|||
push de |
|||
push hl |
|||
ld e,c |
|||
ld c,02h |
|||
call 5 |
|||
pop hl |
|||
pop de |
|||
pop bc |
|||
pop af |
|||
ret |
|||
|
|||
;----------------------------------------------------------------------------- |
|||
_i2c_start: |
|||
PCF_START: |
|||
LD A,PCF_START_ |
|||
OUT (PCF_RS1),A |
|||
RET |
|||
; |
|||
;_i2c_start: |
|||
ld a,_idle ; issue |
|||
out (_io),a ; start |
|||
; command |
|||
res _sda,a |
|||
out (_io),a |
|||
nop |
|||
nop |
|||
res _scl,a |
|||
out (_io),a |
|||
|
|||
ld (oprval),a |
|||
ret |
|||
|
|||
; |
|||
;----------------------------------------------------------------------------- |
|||
; |
|||
; CONTROL REGISTER BITS |
|||
; |
|||
PCF_PIN .EQU 10000000B |
|||
PCF_ES0 .EQU 01000000B |
|||
PCF_ES1 .EQU 00100000B |
|||
PCF_ES2 .EQU 00010000B |
|||
PCF_EN1 .EQU 00001000B |
|||
PCF_STA .EQU 00000100B |
|||
PCF_STO .EQU 00000010B |
|||
PCF_ACK .EQU 00000001B |
|||
; |
|||
; STATUS REGISTER BITS |
|||
; |
|||
;PCF_PIN .EQU 10000000B |
|||
PCF_INI .EQU 01000000B ; 1 if not initialized |
|||
PCF_STS .EQU 00100000B |
|||
PCF_BER .EQU 00010000B |
|||
PCF_AD0 .EQU 00001000B |
|||
PCF_LRB .EQU 00001000B |
|||
PCF_AAS .EQU 00000100B |
|||
PCF_LAB .EQU 00000010B |
|||
PCF_BB .EQU 00000001B |
|||
; |
|||
PCF_START_ .EQU (PCF_PIN | PCF_ES0 | PCF_STA | PCF_ACK) |
|||
PCF_STOP_ .EQU (PCF_PIN | PCF_ES0 | PCF_STO | PCF_ACK) |
|||
; |
|||
; TIMEOUT AND DELAY VALUES (ARBITRARY) |
|||
; |
|||
PCF_PINTO .EQU 65000 |
|||
PCF_ACKTO .EQU 65000 |
|||
PCF_BBTO .EQU 65000 |
|||
PCF_LABDLY .EQU 65000 |
|||
; |
|||
;----------------------------------------------------------------------------- |
|||
; |
|||
; RETURN A=00/Z IF SUCCESSFULL |
|||
; RETURN A=FF/NZ IF TIMEOUT |
|||
; RETURN A=01/NZ IF LOST ARBITRATION |
|||
; PCF_STATUS HOLDS LAST PCF STATUS |
|||
; |
|||
PCF_WAIT_FOR_PIN: |
|||
PUSH HL |
|||
LD HL,PCF_PINTO ; SET TIMEOUT VALUE |
|||
|
|||
PCF_WFP0: |
|||
IN A,(PCF_RS1) ; GET BUS |
|||
LD (PCF_STATUS),A ; STATUS |
|||
LD B,A |
|||
|
|||
DEC HL ; HAVE WE |
|||
LD A,H ; TIMED OUT |
|||
OR L |
|||
JR Z,PCF_WFP1 ; YES WE HAVE, GO ACTION IT |
|||
|
|||
LD A,B ; |
|||
AND PCF_PIN ; IS TRANSMISSION COMPLETE? |
|||
JR NZ,PCF_WFP0 ; KEEP ASKING IF NOT OR |
|||
POP HL ; YES COMPLETE (PIN=0) RETURN WITH ZERO |
|||
RET |
|||
PCF_WFP1: |
|||
LD A,B ; DID WE LOSE ARBITRATION? |
|||
AND PCF_LAB ; IF A=0 THEN NO |
|||
CPL |
|||
JR NZ,PCF_WFP2 ; NO |
|||
CALL PCF_HANDLE_LAB ; YES GO HANDLE IT |
|||
LD (PCF_STATUS),A |
|||
XOR A ; RETURN NZ, A=01H |
|||
INC A |
|||
PCF_WFP2: |
|||
POP HL ; RET NZ, A=FF IF TIMEOUT |
|||
RET |
|||
; |
|||
PCF_STATUS .DB 00H |
|||
|
|||
;-------------------------------------------------------------------------------- |
|||
; |
|||
; RETURN NZ/FF IF TIMEOUT ERROR |
|||
; RETURN NZ/01 IF FAILED TO RECEIVE ACKNOWLEDGE |
|||
; RETURN Z/00 IF RECEIVED ACKNOWLEDGE |
|||
; |
|||
PCF_WAIT_FOR_ACK: |
|||
PUSH HL |
|||
LD HL,PCF_ACKTO |
|||
; |
|||
PCF_WFA0: |
|||
IN A,(PCF_RS1) ; READ PIN |
|||
LD (PCF_STATUS),A ; STATUS |
|||
LD B,A |
|||
; |
|||
DEC HL ; SEE IF WE HAVE TIMED |
|||
LD A,H ; OUT WAITING FOR PIN |
|||
OR L ; EXIT IF |
|||
JR Z,PCF_WFA1 ; WE HAVE |
|||
; |
|||
LD A,B ; OTHERWISE KEEP LOOPING |
|||
AND PCF_PIN ; UNTIL WE GET PIN |
|||
JR NZ,PCF_WFA0 ; OR TIMEOUT |
|||
; |
|||
LD A,B ; WE GOT PIN SO NOW |
|||
AND PCF_LRB ; CHECK WE HAVE |
|||
LD A,1 |
|||
JR Z,PCF_WFA2 ; RECEIVED ACKNOWLEDGE |
|||
XOR A |
|||
JR PCF_WFA2 |
|||
PCF_WFA1: |
|||
CPL ; TIMOUT ERROR |
|||
PCF_WFA2: |
|||
POP HL ; EXIT WITH NZ = FF |
|||
RET |
|||
; |
|||
;----------------------------------------------------------------------------- |
|||
; |
|||
; POLL THE BUS BUSY BIT TO DETERMINE IF BUS IS FREE. |
|||
; RETURN WITH A=00H/Z STATUS IF BUS IS FREE |
|||
; RETURN WITH A=FFH/NZ STATUS IF BUS |
|||
; |
|||
; AFTER RESET THE BUS BUSY BIT WILL BE SET TO 1 I.E. NOT BUSY |
|||
; |
|||
PCF_WAIT_FOR_BB: |
|||
LD HL,PCF_BBTO |
|||
PCF_WFBB0: |
|||
IN A,(PCF_RS1) |
|||
AND PCF_BB |
|||
RET Z ; BUS IS FREE RETURN ZERO |
|||
DEC HL |
|||
LD A,H |
|||
OR L |
|||
JR NZ,PCF_WFBB0 ; REPEAT IF NOT TIMED OUT |
|||
CPL ; RET NZ IF TIMEOUT |
|||
RET |
|||
; |
|||
;----------------------------------------------------------------------------- |
|||
PCF_HANDLE_LAB: |
|||
; |
|||
LD A,PCF_PIN |
|||
OUT (PCF_RS1),A |
|||
LD A,PCF_ES0 |
|||
OUT (PCF_RS1),A |
|||
; |
|||
LD HL,PCF_LABDLY |
|||
PCF_LABLP: |
|||
LD A,H |
|||
OR L |
|||
DEC HL |
|||
JR NZ,PCF_LABLP |
|||
; |
|||
IN A,(PCF_RS1) |
|||
RET |
|||
; |
|||
;----------------------------------------------------------------------------- |
|||
; DISPLAY ERROR MESSAGES |
|||
; |
|||
PCF_RDERR: |
|||
PUSH HL |
|||
LD HL,PCF_RDFAIL |
|||
JR PCF_PRTERR |
|||
; |
|||
PCF_INIERR: |
|||
PUSH HL |
|||
LD HL,PCF_NOPCF |
|||
JR PCF_PRTERR |
|||
; |
|||
PCF_SETERR: |
|||
PUSH HL |
|||
LD HL,PCF_WRTFAIL |
|||
JR PCF_PRTERR |
|||
; |
|||
PCF_REGERR: |
|||
PUSH HL |
|||
LD HL,PCF_REGFAIL |
|||
JR PCF_PRTERR |
|||
; |
|||
PCF_CLKERR: |
|||
PUSH HL |
|||
LD HL,PCF_CLKFAIL |
|||
JR PCF_PRTERR |
|||
; |
|||
PCF_IDLERR: |
|||
PUSH HL |
|||
LD HL,PCF_IDLFAIL |
|||
JR PCF_PRTERR |
|||
; |
|||
PCF_ACKERR: |
|||
PUSH HL |
|||
LD HL,PCF_ACKFAIL |
|||
JR PCF_PRTERR |
|||
; |
|||
PCF_RDBERR: |
|||
PUSH HL |
|||
LD HL,PCF_RDBFAIL |
|||
JR PCF_PRTERR |
|||
; |
|||
PCF_TOERR: |
|||
PUSH HL |
|||
LD HL,PCF_TOFAIL |
|||
JR PCF_PRTERR |
|||
; |
|||
PCF_ARBERR: |
|||
PUSH HL |
|||
LD HL,PCF_ARBFAIL |
|||
JR PCF_PRTERR |
|||
; |
|||
PCF_PINERR: |
|||
PUSH HL |
|||
LD HL,PCF_PINFAIL |
|||
JR PCF_PRTERR |
|||
; |
|||
PCF_BBERR: |
|||
PUSH HL |
|||
LD HL,PCF_BBFAIL |
|||
JR PCF_PRTERR |
|||
; |
|||
PCF_PRTERR: |
|||
CALL _strout |
|||
CALL _eolout |
|||
POP HL |
|||
RET |
|||
; |
|||
; |
|||
PCF_NOPCF .DB "NO DEVICE FOUND$" |
|||
PCF_WRTFAIL .DB "SETTING DEVICE ID FAILED$" |
|||
PCF_REGFAIL .DB "CLOCK REGISTER SELECT ERROR$" |
|||
PCF_CLKFAIL .DB "CLOCK SET FAIL$" |
|||
PCF_IDLFAIL .DB "BUS IDLE FAILED$" |
|||
PCF_ACKFAIL .DB "FAILED TO RECEIVE ACKNOWLEDGE$" |
|||
PCF_RDFAIL .DB "READ FAILED$" |
|||
PCF_RDBFAIL .DB "READBYTES FAILED$" |
|||
PCF_TOFAIL .DB "TIMEOUT ERROR$" |
|||
PCF_ARBFAIL .DB "LOST ARBITRATION$" |
|||
PCF_PINFAIL .DB "PIN FAIL$" |
|||
PCF_BBFAIL .DB "BUS BUSY$" |
|||
; |
|||
;----------------------------------------------------------------------------- |
|||
_i2c_stop: |
|||
PCF_STOP: |
|||
LD A,PCF_STOP_ ; issue |
|||
OUT (PCF_RS1),A ; stop |
|||
RET ; command |
|||
|
|||
;_i2c_stop: |
|||
ld a,(oprval) |
|||
res _scl,a |
|||
res _sda,a |
|||
out (_io),a |
|||
|
|||
set _scl,a |
|||
out (_io),a |
|||
nop |
|||
nop |
|||
set _sda,a |
|||
out (_io),a |
|||
|
|||
ld (oprval),a |
|||
ret |
|||
|
|||
_i2c_write: ; write |
|||
ld a,(oprval) ; to i2c |
|||
; bus |
|||
ld b,8 |
|||
i2c1: res _sda,a |
|||
rl c |
|||
jr nc,i2c2 |
|||
set _sda,a |
|||
i2c2: out (_io),a |
|||
set _scl,a |
|||
out (_io),a |
|||
|
|||
; COND SC126=0 |
|||
; ld d,a |
|||
;i2c3: in a,(_io) |
|||
; bit _scl,a |
|||
; jr z,i2c3 |
|||
; ld a,d |
|||
; ENDC |
|||
|
|||
res _scl,a |
|||
out (_io),a |
|||
djnz i2c1 |
|||
|
|||
set _sda,a |
|||
out (_io),a |
|||
set _scl,a |
|||
out (_io),a |
|||
|
|||
ld d,a |
|||
i2c4: in a,(_io) |
|||
; COND SC126=0 |
|||
; bit _scl,a |
|||
; jr z,4b |
|||
; ENDC |
|||
ld c,a |
|||
ld a,d |
|||
|
|||
res _scl,a |
|||
out (_io),a |
|||
ld (oprval),a |
|||
|
|||
xor a |
|||
bit _sda,c |
|||
ret z |
|||
inc a |
|||
|
|||
ret |
|||
|
|||
|
|||
oprval: .db 0 |
|||
x: .db 0 |
|||
y: .db 0 |
|||
addr: .db 0 |
|||
rc: .db 0 |
|||
|
|||
.fill 128 |
|||
stack: |
|||
.end |
|||
@ -0,0 +1,12 @@ |
|||
OBJECTS = I2CSCAN.COM |
|||
DEST = ../../../Binary/Apps |
|||
TOOLS = ../../../Tools |
|||
|
|||
include $(TOOLS)/Makefile.inc |
|||
|
|||
DEPS := I2CSCAN.ASM $(shell find . -name '*.inc') |
|||
|
|||
I2CSCAN.COM: $(DEPS) |
|||
$(TASM) -dWBW I2CSCAN.ASM I2CSCAN.COM I2CSCAN.LST |
|||
|
|||
|
|||
Loading…
Reference in new issue