mirror of
https://github.com/wwarthen/RomWBW.git
synced 2026-02-06 22:43:15 -06:00
Create I2C directory. Add i2cscan
This commit is contained in:
b1ackmai1er
@@ -20,7 +20,6 @@ call :asm Mode || goto :eof
|
||||
call :asm RTC || goto :eof
|
||||
call :asm Timer || goto :eof
|
||||
call :asm180 IntTest || goto :eof
|
||||
call :asm rtcds7 || goto :eof
|
||||
call :asm rtchb || goto :eof
|
||||
|
||||
zx Z80ASM -SYSGEN/F
|
||||
@@ -32,6 +31,7 @@ setlocal & cd XM && call Build || exit /b 1 & endlocal
|
||||
setlocal & cd FDU && call Build || exit /b 1 & endlocal
|
||||
setlocal & cd Tune && call Build || exit /b 1 & endlocal
|
||||
setlocal & cd FAT && call Build || exit /b 1 & endlocal
|
||||
setlocal & cd I2C && call Build || exit /b 1 & endlocal
|
||||
|
||||
copy *.com %APPBIN%\
|
||||
|
||||
|
||||
14
Source/Apps/I2C/Build.cmd
Normal file
14
Source/Apps/I2C/Build.cmd
Normal file
@@ -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\
|
||||
5
Source/Apps/I2C/Clean.cmd
Normal file
5
Source/Apps/I2C/Clean.cmd
Normal file
@@ -0,0 +1,5 @@
|
||||
@echo off
|
||||
setlocal
|
||||
|
||||
if exist *.com del *.com
|
||||
if exist *.lst del *.lst
|
||||
527
Source/Apps/I2C/I2CSCAN.ASM
Normal file
527
Source/Apps/I2C/I2CSCAN.ASM
Normal file
@@ -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
|
||||
12
Source/Apps/I2C/Makefile
Normal file
12
Source/Apps/I2C/Makefile
Normal file
@@ -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
|
||||
|
||||
|
||||
@@ -6,9 +6,12 @@ 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
|
||||
|
||||
REGS0 .EQU PCF_BASE
|
||||
REGS1 .EQU REGS0+1
|
||||
PCF_OWN .EQU (PCF_ID >> 1) ; PCF'S ADDRESS IN SLAVE MODE
|
||||
;
|
||||
;T4LC512D .EQU 10100000B ; DEVICE IDENTIFIER
|
||||
;T4LC512A1 .EQU 00000000B ; DEVICE ADDRESS
|
||||
@@ -103,15 +106,94 @@ DS7_READ .EQU (DS7_DS1307 | DS7_R) ; READ
|
||||
DS7_WRITE .EQU (DS7_DS1307 | DS7_W) ; WRITE
|
||||
;
|
||||
DS7_CTL .EQU (DS7_OUT | DS7_SQWE | DS7_RATE)
|
||||
;
|
||||
CLIARGS .EQU $81
|
||||
RESTART .EQU $0000 ; CP/M restart vector
|
||||
BDOS .EQU $0005 ; BDOS invocation vector
|
||||
FCB .EQU $5C ; Location of default FCB
|
||||
;
|
||||
.ORG 100H
|
||||
;
|
||||
DS7_START:
|
||||
CALL DS7_PROBE ; PROBE FRO DEVICE
|
||||
RET Z ; EXIT IF DEVICE NOT FOUND
|
||||
;
|
||||
LD A,(FCB+1) ; GET FIRST CHAR
|
||||
CP ' ' ; COMPARE TO BLANK. IF SO NO
|
||||
JR Z,DS7_ST0 ; ARGUMENTS SO DISLAY TIME AND DATE
|
||||
;
|
||||
LD A,(FCB+1) ; GET FIRST CHAR
|
||||
CP '/' ; IS IT INDICATING AN ARGUMENT
|
||||
JR NZ,DS7_ST0 ;
|
||||
;
|
||||
LD A,(FCB+2) ; GET NEXT CHARACTER
|
||||
CP 'D' ;
|
||||
JR NZ,DS7_ST1 ;
|
||||
;
|
||||
; /D SET DATE
|
||||
;
|
||||
RET
|
||||
;
|
||||
DS7_ST1:
|
||||
LD A,(FCB+2) ; GET NEXT CHARACTER
|
||||
CP 'T' ;
|
||||
JR NZ,DS7_ST2 ;
|
||||
;
|
||||
; /T SET TIME
|
||||
;
|
||||
RET
|
||||
;
|
||||
DS7_ST2:
|
||||
LD A,(FCB+2) ; GET NEXT CHARACTER
|
||||
CP 'S' ;
|
||||
JR NZ,DS7_ST3 ;
|
||||
;
|
||||
; /S SET TIME AND DATE
|
||||
;
|
||||
RET
|
||||
;
|
||||
DS7_ST3:
|
||||
;
|
||||
; UNREGOGNIZED ARGUMENT
|
||||
;
|
||||
RET
|
||||
;
|
||||
DS7_ST0:
|
||||
CALL DS7_RDC ; READ CLOCK DATA INTO BUFFER
|
||||
CALL DS7_DISP ; DISPLAY TIME AND DATE FROM BUFFER
|
||||
RET
|
||||
;
|
||||
;-----------------------------------------------------------------------------
|
||||
; RETURN 00/Z IF NOT FOUND
|
||||
; NZ IF FOUND
|
||||
;
|
||||
;
|
||||
DS7_PROBE:
|
||||
LD A,PCF_PIN ; SET PIN BIT
|
||||
OUT (PCF_RS1),A
|
||||
NOP
|
||||
IN A,(PCF_RS1) ; CHECK IF SET
|
||||
AND 07FH
|
||||
JR NZ,DS7_PR0 ; ERROR IF NOT SET
|
||||
|
||||
LD A,'%'
|
||||
CALL COUT
|
||||
|
||||
OR 0FFH ; SUCCESS
|
||||
RET
|
||||
|
||||
DS7_PR0:
|
||||
LD A,PCF_OWN ; LOAD OWN ADDRESS IN S0,
|
||||
OUT (PCF_RS0),A ; EFFECTIVE ADDRESS IS (OWN <<1)
|
||||
|
||||
LD A,PCF_IDLE_
|
||||
OUT (PCF_RS1),A
|
||||
|
||||
CALL PCF_INIERR ; DISLAY ERROR
|
||||
XOR A ; SET ERROR
|
||||
RET
|
||||
;
|
||||
;-----------------------------------------------------------------------------
|
||||
; RTC READ
|
||||
;
|
||||
; 1. ISSUE SLAVE ADDRESS WITH START CONDITION AND WRITE STATUS
|
||||
@@ -572,7 +654,7 @@ PCF_BBFAIL .DB "BUS BUSY$"
|
||||
;
|
||||
;-----------------------------------------------------------------------------
|
||||
;
|
||||
BDOS .EQU 5 ;ENTRY BDOS
|
||||
;BDOS .EQU 5 ;ENTRY BDOS
|
||||
BS .EQU 8 ;BACKSPACE
|
||||
TAB .EQU 9 ;TABULATOR
|
||||
LF .EQU 0AH ;LINE-FEED
|
||||
@@ -581,7 +663,7 @@ CR .EQU 0DH ;CARRIAGE-RETURN
|
||||
; OUTPUT TEXT AT HL
|
||||
;
|
||||
PRTSTR: LD A,(HL)
|
||||
OR A
|
||||
CP '$'
|
||||
RET Z
|
||||
CALL PRINP
|
||||
INC HL
|
||||
@@ -2,7 +2,7 @@ OBJECTS = SysGen.com Survey.com \
|
||||
SysCopy.com Assign.com Format.com Talk.com Mode.com RTC.com \
|
||||
Timer.com IntTest.com RTCds7.com RTChb.com
|
||||
OTHERS = *.hex *.com
|
||||
SUBDIRS = XM FDU FAT Tune
|
||||
SUBDIRS = XM FDU FAT Tune I2C
|
||||
DEST = ../../Binary/Apps
|
||||
TOOLS =../../Tools
|
||||
|
||||
|
||||
@@ -3,24 +3,104 @@
|
||||
;==================================================================================================
|
||||
;
|
||||
; HBIOS FORMAT = YYMMDDHHMMSS
|
||||
;
|
||||
;-----------------------------------------------------------------------------
|
||||
; GENERIC CP/M STUFF
|
||||
;
|
||||
BS .EQU 8 ; BACKSPACE
|
||||
TAB .EQU 9 ; TABULATOR
|
||||
LF .EQU 0AH ; LINE-FEED
|
||||
CR .EQU 0DH ; CARRIAGE-RETURN
|
||||
CLIARGS .EQU $81
|
||||
RESTART .EQU $0000 ; CP/M restart vector
|
||||
BDOS .EQU $0005 ; BDOS invocation vector
|
||||
FCB .EQU $5C ; Location of default FCB
|
||||
;
|
||||
;-----------------------------------------------------------------------------
|
||||
;
|
||||
.ORG 100H
|
||||
;
|
||||
HBC_START:
|
||||
LD A,(FCB+1) ; GET FIRST CHAR
|
||||
CP ' ' ; COMPARE TO BLANK. IF SO NO
|
||||
JR Z,HBC_ST0 ; ARGUMENTS SO DISLAY TIME AND DATE
|
||||
;
|
||||
LD B,$20 ; READ CLOCK DATA INTO BUFFER
|
||||
LD HL,HBC_BUF ; DISPLAY TIME AND DATE FROM BUFFER
|
||||
LD A,(FCB+1) ; GET FIRST CHAR
|
||||
CP '/' ; IS IT INDICATING AN ARGUMENT
|
||||
JR NZ,HBC_ST0 ;
|
||||
;
|
||||
LD A,(FCB+2) ; GET NEXT CHARACTER
|
||||
CP 'D' ;
|
||||
JR NZ,HBC_ST1 ;
|
||||
;
|
||||
; /D SET DATE DDMMYY
|
||||
;
|
||||
LD B,$21 ; WRITE CLOCK DATA INTO BUFFER
|
||||
LD HL,HBC_BUF1
|
||||
RST 08
|
||||
;
|
||||
LD HL,FCB+3
|
||||
;
|
||||
LD A,(HL)
|
||||
CP 0
|
||||
; JP HBC_ST4 ; EXIT IF END OF BUFFER
|
||||
LD B,6
|
||||
|
||||
|
||||
|
||||
|
||||
JP HBC_ST0
|
||||
;
|
||||
HBC_ST1:
|
||||
LD A,(FCB+2) ; GET NEXT CHARACTER
|
||||
CP 'T' ;
|
||||
JR NZ,HBC_ST2 ;
|
||||
;
|
||||
; /T SET TIME HHMMSS
|
||||
;
|
||||
LD B,$21 ; WRITE CLOCK DATA INTO BUFFER
|
||||
LD HL,HBC_BUF1
|
||||
RST 08
|
||||
JP HBC_ST0
|
||||
;
|
||||
HBC_ST2:
|
||||
LD A,(FCB+2) ; GET NEXT CHARACTER
|
||||
CP 'S' ;
|
||||
JR NZ,HBC_ST3 ;
|
||||
;
|
||||
; /S SET TIME AND DATE
|
||||
;
|
||||
JP HBC_ST0
|
||||
;
|
||||
HBC_ST3:
|
||||
;
|
||||
; UNREGOGNIZED ARGUMENT
|
||||
;
|
||||
RET
|
||||
;
|
||||
HBC_ST0:
|
||||
LD B,$20 ; READ CLOCK DATA INTO BUFFER
|
||||
LD HL,HBC_BUF
|
||||
RST 08
|
||||
;
|
||||
#IF (0)
|
||||
LD A,6
|
||||
LD DE,HBC_BUF ; DISLAY DATA READ
|
||||
LD DE,HBC_BUF ; DISLAY DATA READ
|
||||
; CALL PRTHEXBUF
|
||||
CALL NEWLINE
|
||||
#ENDIF
|
||||
;
|
||||
CALL HBC_DISP
|
||||
RET
|
||||
|
||||
;
|
||||
HBC_BUF1:
|
||||
.DB 099H
|
||||
.DB 011H
|
||||
.DB 022H
|
||||
.DB 008H
|
||||
.DB 031H
|
||||
.DB 000H
|
||||
;
|
||||
HBC_BUF .FILL 6,0
|
||||
;
|
||||
;-----------------------------------------------------------------------------
|
||||
@@ -87,12 +167,6 @@ HBC_FAIL .DB "ERROR$"
|
||||
;-----------------------------------------------------------------------------
|
||||
; GENERIC CP/M ROUTINES
|
||||
;
|
||||
BDOS .EQU 5 ;ENTRY BDOS
|
||||
BS .EQU 8 ;BACKSPACE
|
||||
TAB .EQU 9 ;TABULATOR
|
||||
LF .EQU 0AH ;LINE-FEED
|
||||
CR .EQU 0DH ;CARRIAGE-RETURN
|
||||
;
|
||||
; OUTPUT TEXT AT HL
|
||||
;
|
||||
PRTSTR: LD A,(HL)
|
||||
|
||||
Reference in New Issue
Block a user