mirror of https://github.com/wwarthen/RomWBW.git
Wayne Warthen
5 years ago
committed by
GitHub
GitHub
19 changed files with 1790 additions and 47 deletions
File diff suppressed because it is too large
@ -0,0 +1,446 @@ |
|||||
|
; |
||||
|
;================================================================================================== |
||||
|
; RP5C01 CLOCK DRIVER |
||||
|
;================================================================================================== |
||||
|
; |
||||
|
RP5RTC_BUFSIZ .EQU 6 ; SIX BYTE BUFFER (YYMMDDHHMMSS) |
||||
|
; |
||||
|
; RTC DEVICE INITIALIZATION ENTRY |
||||
|
; |
||||
|
|
||||
|
; TODO: |
||||
|
; set the day of week register |
||||
|
; read block of nvram |
||||
|
; write block of nvram |
||||
|
; set alarm/get alarm???? |
||||
|
|
||||
|
;; NOTES FOR USING DRIVER IN Z-DOS |
||||
|
; First load the LDDS datestamper |
||||
|
; A:LDDS |
||||
|
; next prepare and drives with datestamper info: |
||||
|
; eg: a:putds -d=g: -V |
||||
|
; then view date time of files with: |
||||
|
; a:filedate |
||||
|
|
||||
|
|
||||
|
RP5RTC_REG .EQU $B4 |
||||
|
RP5RTC_DAT .EQU $B5 |
||||
|
|
||||
|
REG_1SEC .EQU $00 |
||||
|
REG_10SEC .EQU $01 |
||||
|
REG_1MIN .EQU $02 |
||||
|
REG_10MIN .EQU $03 |
||||
|
REG_1HR .EQU $04 |
||||
|
REG_10HR .EQU $05 |
||||
|
REG_DAYWEEK .EQU $06 ; NOT USED BY THIS DRIVER |
||||
|
REG_1DAY .EQU $07 |
||||
|
REG_10DAY .EQU $08 |
||||
|
REG_1MNTH .EQU $09 |
||||
|
REG_10MNTH .EQU $0A |
||||
|
REG_1YEAR .EQU $0B |
||||
|
REG_10YEAR .EQU $0C |
||||
|
REG_MODE .EQU $0D |
||||
|
REG_TEST .EQU $0E |
||||
|
REG_RESET .EQU $0F |
||||
|
|
||||
|
|
||||
|
REG_12_24 .EQU $0A |
||||
|
REG_LEAPYR .EQU $0B |
||||
|
|
||||
|
MODE_TIMEST .EQU 0 |
||||
|
MODE_ALRMST .EQU 1 |
||||
|
MODE_RAM0 .EQU 2 |
||||
|
MODE_RAM1 .EQU 3 |
||||
|
|
||||
|
MD_TIME .EQU 8 |
||||
|
MD_ALRM .EQU 4 |
||||
|
|
||||
|
RP5RTC_INIT: |
||||
|
LD A, (RTC_DISPACT) ; RTC DISPATCHER ALREADY SET? |
||||
|
OR A ; SET FLAGS |
||||
|
RET NZ ; IF ALREADY ACTIVE, ABORT |
||||
|
|
||||
|
CALL NEWLINE ; FORMATTING |
||||
|
PRTS("RP5C01 RTC: $") |
||||
|
|
||||
|
; PRINT RTC LATCH PORT ADDRESS |
||||
|
PRTS("IO=0x$") ; LABEL FOR IO ADDRESS |
||||
|
LD A,RP5RTC_REG ; GET IO ADDRESS |
||||
|
CALL PRTHEXBYTE ; PRINT IT |
||||
|
CALL PC_SPACE ; FORMATTING |
||||
|
|
||||
|
; CHECK PRESENCE STATUS |
||||
|
CALL RP5RTC_DETECT ; HARDWARE DETECTION |
||||
|
JR Z, RP5RTC_INIT1 ; IF ZERO, ALL GOOD |
||||
|
PRTS("NOT PRESENT$") ; NOT ZERO, H/W NOT PRESENT |
||||
|
OR $FF ; SIGNAL FAILURE |
||||
|
RET ; BAIL OUT |
||||
|
|
||||
|
RP5RTC_INIT1: |
||||
|
; ENSURE DEVICE IS RESET AND NOT IN TEST MODE |
||||
|
LD A, REG_TEST ; SELECT TEST REGISTER |
||||
|
OUT (RP5RTC_REG), A |
||||
|
CALL DLY16 |
||||
|
XOR A |
||||
|
OUT (RP5RTC_DAT), A ; TURN OFF ALL TEST MODE BITS |
||||
|
|
||||
|
LD B, MODE_ALRMST |
||||
|
CALL RP5RTC_SETMD |
||||
|
|
||||
|
CALL RP5RTC_ENTIME |
||||
|
|
||||
|
LD A, REG_12_24 ; SET TO 24 HOUR CLOCK |
||||
|
OUT (RP5RTC_REG), A |
||||
|
LD A, 1 |
||||
|
OUT (RP5RTC_DAT), A |
||||
|
|
||||
|
CALL RP5RTC_RDTIM |
||||
|
|
||||
|
; DISPLAY CURRENT TIME |
||||
|
LD HL, RP5RTC_BCDBUF ; POINT TO BCD BUF |
||||
|
CALL PRTDT |
||||
|
; |
||||
|
LD BC, RP5RTC_DISPATCH |
||||
|
CALL RTC_SETDISP |
||||
|
; |
||||
|
XOR A ; SIGNAL SUCCESS |
||||
|
RET |
||||
|
; |
||||
|
; DETECT RTC HARDWARE PRESENCE |
||||
|
; |
||||
|
RP5RTC_DETECT: |
||||
|
LD C, 0 ; NVRAM INDEX 0 |
||||
|
CALL RP5RTC_GETBYT ; GET VALUE |
||||
|
LD A, E ; TO ACCUM |
||||
|
LD L, A ; SAVE IT |
||||
|
XOR $FF ; FLIP ALL BITS |
||||
|
LD E, A ; TO E |
||||
|
LD C, 0 ; NVRAM INDEX 0 |
||||
|
CALL RP5RTC_SETBYT ; WRITE IT |
||||
|
LD C, 0 ; NVRAM INDEX 0 |
||||
|
CALL RP5RTC_GETBYT ; GET VALUE |
||||
|
LD A, L ; GET SAVED VALUE |
||||
|
XOR $FF ; FLIP ALL BITS |
||||
|
CP E ; COMPARE WITH VALUE READ |
||||
|
LD A, 0 ; ASSUME OK |
||||
|
JR Z, RP5RTC_DETECT1 ; IF MATCH, GO AHEAD |
||||
|
LD A, $FF ; ELSE STATUS IS ERROR |
||||
|
|
||||
|
RP5RTC_DETECT1: |
||||
|
PUSH AF ; SAVE STATUS |
||||
|
LD A, L ; GET SAVED VALUE |
||||
|
LD C, 0 ; NVRAM INDEX 0 |
||||
|
CALL RP5RTC_SETBYT ; SAVE IT |
||||
|
POP AF ; RECOVER STATUS |
||||
|
OR A ; SET FLAGS |
||||
|
RET |
||||
|
; |
||||
|
; RTC DEVICE FUNCTION DISPATCH ENTRY |
||||
|
; A: RESULT (OUT), 0=OK, Z=OK, NZ=ERR |
||||
|
; B: FUNCTION (IN) |
||||
|
; |
||||
|
RP5RTC_DISPATCH: |
||||
|
LD A,B ; GET REQUESTED FUNCTION |
||||
|
AND $0F ; ISOLATE SUB-FUNCTION |
||||
|
JP Z,RP5RTC_GETTIM ; GET TIME |
||||
|
DEC A |
||||
|
JP Z,RP5RTC_SETTIM ; SET TIME |
||||
|
DEC A |
||||
|
JP Z,RP5RTC_GETBYT ; GET NVRAM BYTE VALUE |
||||
|
DEC A |
||||
|
JP Z,RP5RTC_SETBYT ; SET NVRAM BYTE VALUE |
||||
|
DEC A |
||||
|
JP Z,RP5RTC_GETBLK ; GET NVRAM DATA BLOCK VALUES |
||||
|
DEC A |
||||
|
JP Z,RP5RTC_SETBLK ; SET NVRAM DATA BLOCK VALUES |
||||
|
DEC A |
||||
|
JP Z,RP5RTC_GETALM ; GET ALARM |
||||
|
DEC A |
||||
|
JP Z,RP5RTC_SETALM ; SET ALARM |
||||
|
DEC A |
||||
|
JP Z,RP5RTC_DEVICE ; REPORT RTC DEVICE INFO |
||||
|
CALL SYSCHK |
||||
|
LD A, ERR_NOFUNC |
||||
|
OR A |
||||
|
RET |
||||
|
; |
||||
|
; RTC GET NVRAM BYTE |
||||
|
; C: INDEX |
||||
|
; E: VALUE (OUTPUT) |
||||
|
; A:0 IF OK, ERR_RANGE IF OUT OF RANGE |
||||
|
; |
||||
|
RP5RTC_GETBYT: |
||||
|
LD A, C |
||||
|
CP $0D |
||||
|
JR NC, RP5RTC_BADIDX |
||||
|
|
||||
|
LD B, MODE_RAM0 |
||||
|
CALL RP5RTC_SETMD |
||||
|
LD A, C ; SELECT NVRAM INDEX |
||||
|
OUT (RP5RTC_REG), A |
||||
|
IN A, (RP5RTC_DAT) |
||||
|
AND $0F ; RETRIEVE UNIT NIBBLE |
||||
|
LD E, A |
||||
|
|
||||
|
LD B, MODE_RAM1 |
||||
|
CALL RP5RTC_SETMD |
||||
|
LD A, C ; SELECT NVRAM INDEX |
||||
|
OUT (RP5RTC_REG), A |
||||
|
IN A, (RP5RTC_DAT) |
||||
|
AND $0F ; RETRIEVE UNIT NIBBLE |
||||
|
RLCA |
||||
|
RLCA |
||||
|
RLCA |
||||
|
RLCA |
||||
|
OR E |
||||
|
LD E, A |
||||
|
|
||||
|
XOR A ; SIGNAL SUCCESS |
||||
|
RET ; AND RETURN |
||||
|
|
||||
|
RP5RTC_BADIDX: |
||||
|
LD E, 00 |
||||
|
LD A, ERR_RANGE |
||||
|
RET |
||||
|
; |
||||
|
; RTC SET NVRAM BYTE |
||||
|
; C: INDEX |
||||
|
; E: VALUE |
||||
|
; A:0 IF OK, ERR_RANGE IF OUT OF RANGE |
||||
|
; |
||||
|
RP5RTC_SETBYT: |
||||
|
LD A, C |
||||
|
CP $0D |
||||
|
JR NC, RP5RTC_BADIDX |
||||
|
|
||||
|
LD B, MODE_RAM0 |
||||
|
CALL RP5RTC_SETMD |
||||
|
LD A, C ; SELECT NVRAM INDEX |
||||
|
OUT (RP5RTC_REG), A |
||||
|
LD A, E |
||||
|
AND $0F |
||||
|
OUT (RP5RTC_DAT), A |
||||
|
|
||||
|
LD B, MODE_RAM1 |
||||
|
CALL RP5RTC_SETMD |
||||
|
LD A, C ; SELECT NVRAM INDEX |
||||
|
OUT (RP5RTC_REG), A |
||||
|
LD A, E |
||||
|
AND $F0 |
||||
|
RRCA |
||||
|
RRCA |
||||
|
RRCA |
||||
|
RRCA |
||||
|
OUT (RP5RTC_DAT), A |
||||
|
|
||||
|
XOR A ; SIGNAL SUCCESS |
||||
|
RET ; AND RETURN |
||||
|
|
||||
|
RP5RTC_GETBLK: |
||||
|
RP5RTC_SETBLK: |
||||
|
RP5RTC_GETALM: |
||||
|
RP5RTC_SETALM: |
||||
|
LD A, ERR_NOTIMPL |
||||
|
CALL SYSCHK |
||||
|
OR A |
||||
|
RET |
||||
|
; |
||||
|
; RTC GET TIME |
||||
|
; A: RESULT (OUT), 0=OK, Z=OK, NZ=ERR |
||||
|
; HL: DATE/TIME BUFFER (OUT) |
||||
|
; BUFFER FORMAT IS BCD: YYMMDDHHMMSS |
||||
|
; 24 HOUR TIME FORMAT IS ASSUMED |
||||
|
; |
||||
|
RP5RTC_GETTIM: |
||||
|
; GET THE TIME INTO TEMP BUF |
||||
|
PUSH HL ; SAVE PTR TO CALLERS BUFFER |
||||
|
; |
||||
|
CALL RP5RTC_RDTIM |
||||
|
|
||||
|
; NOW COPY TO REAL DESTINATION (INTERBANK SAFE) |
||||
|
LD A,BID_BIOS ; COPY FROM BIOS BANK |
||||
|
LD (HB_SRCBNK),A ; SET IT |
||||
|
LD A,(HB_INVBNK) ; COPY TO CURRENT USER BANK |
||||
|
LD (HB_DSTBNK),A ; SET IT |
||||
|
LD HL,RP5RTC_BCDBUF ; SOURCE ADR |
||||
|
POP DE ; DEST ADR |
||||
|
LD BC,RP5RTC_BUFSIZ ; LENGTH |
||||
|
CALL HB_BNKCPY ; COPY THE CLOCK DATA |
||||
|
|
||||
|
XOR A ; SIGNAL SUCCESS |
||||
|
RET ; AND RETURN |
||||
|
; |
||||
|
; |
||||
|
; RTC SET TIME |
||||
|
; A: RESULT (OUT), 0=OK, Z=OK, NZ=ERR |
||||
|
; HL: DATE/TIME BUFFER (IN) |
||||
|
; BUFFER FORMAT IS BCD: YYMMDDHHMMSSWW |
||||
|
; 24 HOUR TIME FORMAT IS ASSUMED |
||||
|
; |
||||
|
RP5RTC_SETTIM: |
||||
|
; COPY TO BCD BUF |
||||
|
LD A,(HB_INVBNK) ; COPY FROM CURRENT USER BANK |
||||
|
LD (HB_SRCBNK),A ; SET IT |
||||
|
LD A,BID_BIOS ; COPY TO BIOS BANK |
||||
|
LD (HB_DSTBNK),A ; SET IT |
||||
|
LD DE,RP5RTC_BCDBUF ; DEST ADR |
||||
|
LD BC,RP5RTC_BUFSIZ ; LENGTH |
||||
|
CALL HB_BNKCPY ; COPY THE CLOCK DATA |
||||
|
; |
||||
|
LD B, MODE_TIMEST |
||||
|
CALL RP5RTC_SETMD |
||||
|
|
||||
|
LD B, REG_1SEC |
||||
|
LD A, (RP5RTC_SS) |
||||
|
CALL RP5RTC_WRVL |
||||
|
|
||||
|
LD B, REG_1MIN |
||||
|
LD A, (RP5RTC_MM) |
||||
|
CALL RP5RTC_WRVL |
||||
|
|
||||
|
LD B, REG_1HR |
||||
|
LD A, (RP5RTC_HH) |
||||
|
CALL RP5RTC_WRVL |
||||
|
|
||||
|
LD B, REG_1DAY |
||||
|
LD A, (RP5RTC_DT) |
||||
|
CALL RP5RTC_WRVL |
||||
|
|
||||
|
LD B, REG_1MNTH |
||||
|
LD A, (RP5RTC_MO) |
||||
|
CALL RP5RTC_WRVL |
||||
|
|
||||
|
LD B, REG_1YEAR |
||||
|
LD A, (RP5RTC_YR) |
||||
|
CALL RP5RTC_WRVL |
||||
|
|
||||
|
LD B, MODE_ALRMST |
||||
|
CALL RP5RTC_SETMD |
||||
|
|
||||
|
LD A, (RP5RTC_YR) |
||||
|
CALL BCD2BYTE |
||||
|
AND 3 |
||||
|
LD B, REG_LEAPYR |
||||
|
CALL RP5RTC_WRVL |
||||
|
|
||||
|
CALL RP5RTC_ENTIME |
||||
|
|
||||
|
XOR A ; SIGNAL SUCCESS |
||||
|
RET ; AND RETURN |
||||
|
; |
||||
|
; REPORT RTC DEVICE INFO |
||||
|
; |
||||
|
RP5RTC_DEVICE: |
||||
|
LD D,RTCDEV_RP5 ; D := DEVICE TYPE |
||||
|
LD E,0 ; E := PHYSICAL DEVICE NUMBER |
||||
|
LD H,0 ; H := 0, DRIVER HAS NO MODES |
||||
|
LD L,0 ; L := 0, NO I/O ADDRESS |
||||
|
XOR A ; SIGNAL SUCCESS |
||||
|
RET |
||||
|
|
||||
|
; |
||||
|
; READ OUT THE TIME |
||||
|
RP5RTC_RDTIM: |
||||
|
LD B, MODE_TIMEST |
||||
|
CALL RP5RTC_SETMD |
||||
|
|
||||
|
LD B, REG_1SEC |
||||
|
CALL RP5RTC_RDVL |
||||
|
LD (RP5RTC_SS), A |
||||
|
|
||||
|
LD B, REG_1MIN |
||||
|
CALL RP5RTC_RDVL |
||||
|
LD (RP5RTC_MM), A |
||||
|
|
||||
|
LD B, REG_1HR |
||||
|
CALL RP5RTC_RDVL |
||||
|
LD (RP5RTC_HH), A |
||||
|
|
||||
|
LD B, REG_1DAY |
||||
|
CALL RP5RTC_RDVL |
||||
|
LD (RP5RTC_DT), A |
||||
|
|
||||
|
LD B, REG_1MNTH |
||||
|
CALL RP5RTC_RDVL |
||||
|
LD (RP5RTC_MO), A |
||||
|
|
||||
|
LD B, REG_1YEAR |
||||
|
CALL RP5RTC_RDVL |
||||
|
LD (RP5RTC_YR), A |
||||
|
|
||||
|
RET |
||||
|
|
||||
|
; SET MODE |
||||
|
; MODE IN B (MODE_TIMEST, MODE_ALRMST, MODE_RAM0, MODE_RAM1) |
||||
|
RP5RTC_SETMD: |
||||
|
LD A, REG_MODE ; SELECT MODE REGISTER |
||||
|
OUT (RP5RTC_REG), A |
||||
|
|
||||
|
IN A, (RP5RTC_DAT) |
||||
|
AND MD_TIME | MD_ALRM |
||||
|
OR B |
||||
|
OUT (RP5RTC_DAT), A ; ASSIGN MODE |
||||
|
RET |
||||
|
|
||||
|
; ENABLE THE TIME COUNTER |
||||
|
RP5RTC_ENTIME: |
||||
|
LD B, MD_TIME |
||||
|
JP RP5RTC_SETMD |
||||
|
|
||||
|
; READ OUT 2 REGISTERS - 2 NIBBLES TO 1 BYTE |
||||
|
; REGISTER IN B |
||||
|
RP5RTC_RDVL: |
||||
|
LD A, B ; SELECT UNIT REGISTER |
||||
|
OUT (RP5RTC_REG), A |
||||
|
IN A, (RP5RTC_DAT) |
||||
|
AND $0F ; RETRIEVE UNIT NIBBLE |
||||
|
LD L, A |
||||
|
|
||||
|
INC B |
||||
|
LD A, B ; SELECT TENS REGISTER |
||||
|
OUT (RP5RTC_REG), A |
||||
|
IN A, (RP5RTC_DAT) |
||||
|
AND $0F |
||||
|
RLCA |
||||
|
RLCA |
||||
|
RLCA |
||||
|
RLCA ; MOVE TO TOP NIBBLE |
||||
|
OR L ; MERGE IN LOW NIBBLE |
||||
|
LD H, A ; A = VALUE AS BCD |
||||
|
|
||||
|
RET |
||||
|
|
||||
|
; WRITE OUT 2 REGISTERS - 1 BYTE TO 2 NIBBLES |
||||
|
; REGISTER IN B (B+1) |
||||
|
; VALUE IN A |
||||
|
RP5RTC_WRVL: |
||||
|
LD C, A |
||||
|
LD A, B ; SELECT UNIT REGISTER |
||||
|
OUT (RP5RTC_REG), A |
||||
|
|
||||
|
LD A, C ; WRITE C (ONLY LOW NIBBLE WILL BE USED) |
||||
|
OUT (RP5RTC_DAT), A |
||||
|
|
||||
|
INC B |
||||
|
LD A, B ; SELECT TENS REGISTER |
||||
|
OUT (RP5RTC_REG), A |
||||
|
|
||||
|
LD A, C ; SHIFT TOP NIBBLE TO LOW NIBBLE |
||||
|
RRCA |
||||
|
RRCA |
||||
|
RRCA |
||||
|
RRCA |
||||
|
OUT (RP5RTC_DAT), A ; WRITE IT |
||||
|
|
||||
|
RET |
||||
|
; |
||||
|
; REGISTER EXTRACTED VALUES |
||||
|
; |
||||
|
RP5RTC_BCDBUF: |
||||
|
RP5RTC_YR .DB 20 |
||||
|
RP5RTC_MO .DB 01 |
||||
|
RP5RTC_DT .DB 01 |
||||
|
RP5RTC_HH .DB 00 |
||||
|
RP5RTC_MM .DB 00 |
||||
|
RP5RTC_SS .DB 00 |
||||
|
|
||||
Loading…
Reference in new issue