mirror of
https://github.com/wwarthen/RomWBW.git
synced 2026-02-06 22:43:15 -06:00
Cleanup
This commit is contained in:
@@ -34,8 +34,8 @@ MPGSEL_2 .EQU $7A ; Z2 MEM MGR BANK 2 PAGE SELECT REG (WRITE ONLY)
|
||||
MPGSEL_3 .EQU $7B ; Z2 MEM MGR BANK 3 PAGE SELECT REG (WRITE ONLY)
|
||||
MPGENA .EQU $7C ; Z2 MEM MGR PAGING ENABLE REGISTER (BIT 0, WRITE ONLY)
|
||||
;
|
||||
RTC .EQU $C0 ; RTC LATCH REGISTER ADR
|
||||
WDOG .EQU $6F ; WATCHDOG REGISTER ADR
|
||||
RTCIO .EQU $C0 ; RTC LATCH REGISTER ADR
|
||||
WDOGIO .EQU $6F ; WATCHDOG REGISTER ADR
|
||||
;
|
||||
CTCENABLE .EQU TRUE ; ENABLE ZILOG CTC SUPPORT
|
||||
CTCBASE .EQU $88 ; CTC BASE I/O ADDRESS
|
||||
|
||||
@@ -51,8 +51,8 @@ MK4_XAR .EQU $88 ; MK4: EXTERNAL ADDRESS REGISTER (XAR) ADR
|
||||
MK4_SD .EQU $89 ; MK4: SD CARD CONTROL REGISTER ADR
|
||||
MK4_RTC .EQU $8A ; MK4: RTC LATCH REGISTER ADR
|
||||
;
|
||||
RTC .EQU $70 ; RTC LATCH REGISTER ADR
|
||||
WDOG .EQU $6F ; WATCHDOG REGISTER ADR
|
||||
RTCIO .EQU $70 ; RTC LATCH REGISTER ADR
|
||||
WDOGIO .EQU $6F ; WATCHDOG REGISTER ADR
|
||||
PPIBASE .EQU $60 ; PRIMARY PARALLEL PORT REGISTERS BASE ADR
|
||||
;
|
||||
CTCENABLE .EQU FALSE ; ENABLE ZILOG CTC SUPPORT
|
||||
|
||||
@@ -40,7 +40,7 @@ MK4_XAR .EQU $88 ; MK4: EXTERNAL ADDRESS REGISTER (XAR) ADR
|
||||
MK4_SD .EQU $89 ; MK4: SD CARD CONTROL REGISTER ADR
|
||||
MK4_RTC .EQU $8A ; MK4: RTC LATCH REGISTER ADR
|
||||
;
|
||||
RTC .EQU MK4_RTC ; RTC LATCH REGISTER ADR
|
||||
RTCIO .EQU MK4_RTC ; RTC LATCH REGISTER ADR
|
||||
;
|
||||
CTCENABLE .EQU FALSE ; ENABLE ZILOG CTC SUPPORT
|
||||
;
|
||||
|
||||
@@ -42,7 +42,7 @@ N8_ACR .EQU $94 ; N8: AUXILLARY CONTROL REGISTER (ACR) ADR
|
||||
N8_RMAP .EQU $96 ; N8: ROM PAGE REGISTER ADR
|
||||
N8_DEFACR .EQU $1B ; N8: AUX CTL REGISTER DEFAULT VALUE (QUIESCIENT STATE)
|
||||
;
|
||||
RTC .EQU N8_RTC ; RTC LATCH REGISTER ADR
|
||||
RTCIO .EQU N8_RTC ; RTC LATCH REGISTER ADR
|
||||
PPIBASE .EQU N8_PPI0 ; PRIMARY PARALLEL PORT REGISTERS BASE ADR
|
||||
;
|
||||
CTCENABLE .EQU FALSE ; ENABLE ZILOG CTC SUPPORT
|
||||
|
||||
@@ -40,7 +40,7 @@ Z180_CLKDIV .EQU 1 ; Z180: CHK DIV: 0=OSC/2, 1=OSC, 2=OSC*2
|
||||
Z180_MEMWAIT .EQU 0 ; Z180: MEMORY WAIT STATES (0-3)
|
||||
Z180_IOWAIT .EQU 1 ; Z180: I/O WAIT STATES TO ADD ABOVE 1 W/S BUILT-IN (0-3)
|
||||
;
|
||||
RTC .EQU $0C ; RTC LATCH REGISTER ADR
|
||||
RTCIO .EQU $0C ; RTC LATCH REGISTER ADR
|
||||
;
|
||||
CTCENABLE .EQU FALSE ; ENABLE ZILOG CTC SUPPORT
|
||||
;
|
||||
|
||||
@@ -34,7 +34,7 @@ MPGSEL_2 .EQU $7A ; Z2 MEM MGR BANK 2 PAGE SELECT REG (WRITE ONLY)
|
||||
MPGSEL_3 .EQU $7B ; Z2 MEM MGR BANK 3 PAGE SELECT REG (WRITE ONLY)
|
||||
MPGENA .EQU $7C ; Z2 MEM MGR PAGING ENABLE REGISTER (BIT 0, WRITE ONLY)
|
||||
;
|
||||
RTC .EQU $C0 ; RTC LATCH REGISTER ADR
|
||||
RTCIO .EQU $C0 ; RTC LATCH REGISTER ADR
|
||||
;
|
||||
CTCENABLE .EQU FALSE ; ENABLE ZILOG CTC SUPPORT
|
||||
;
|
||||
|
||||
@@ -31,7 +31,7 @@ MEMMGR .EQU MM_SBC ; MEMORY MANAGER: MM_[SBC|Z2|N8|Z180]
|
||||
MPCL_RAM .EQU $78 ; SBC MEM MGR RAM PAGE SELECT REG (WRITE ONLY)
|
||||
MPCL_ROM .EQU $7C ; SBC MEM MGR ROM PAGE SELECT REG (WRITE ONLY)
|
||||
;
|
||||
RTC .EQU $70 ; RTC LATCH REGISTER ADR
|
||||
RTCIO .EQU $70 ; RTC LATCH REGISTER ADR
|
||||
PPIBASE .EQU $60 ; PRIMARY PARALLEL PORT REGISTERS BASE ADR
|
||||
;
|
||||
CTCENABLE .EQU FALSE ; ENABLE ZILOG CTC SUPPORT
|
||||
|
||||
@@ -35,7 +35,7 @@ Z180_CLKDIV .EQU 1 ; Z180: CHK DIV: 0=OSC/2, 1=OSC, 2=OSC*2
|
||||
Z180_MEMWAIT .EQU 0 ; Z180: MEMORY WAIT STATES (0-3)
|
||||
Z180_IOWAIT .EQU 1 ; Z180: I/O WAIT STATES TO ADD ABOVE 1 W/S BUILT-IN (0-3)
|
||||
;
|
||||
RTC .EQU $0C ; RTC LATCH REGISTER ADR
|
||||
RTCIO .EQU $0C ; RTC LATCH REGISTER ADR
|
||||
;
|
||||
CTCENABLE .EQU FALSE ; ENABLE ZILOG CTC SUPPORT
|
||||
;
|
||||
|
||||
@@ -31,7 +31,7 @@ MEMMGR .EQU MM_SBC ; MM_[SBC|Z2|N8|Z180]: MEMORY MANAGER
|
||||
MPCL_RAM .EQU $78 ; SBC MEM MGR RAM PAGE SELECT REG (WRITE ONLY)
|
||||
MPCL_ROM .EQU $7C ; SBC MEM MGR ROM PAGE SELECT REG (WRITE ONLY)
|
||||
;
|
||||
RTC .EQU $70 ; RTC LATCH REGISTER ADR
|
||||
RTCIO .EQU $70 ; RTC LATCH REGISTER ADR
|
||||
PPIBASE .EQU $60 ; PRIMARY PARALLEL PORT REGISTERS BASE ADR
|
||||
;
|
||||
CTCENABLE .EQU FALSE ; ENABLE ZILOG CTC SUPPORT
|
||||
|
||||
@@ -34,7 +34,7 @@ MPGSEL_2 .EQU $7A ; Z2 MEM MGR BANK 2 PAGE SELECT REG (WRITE ONLY)
|
||||
MPGSEL_3 .EQU $7B ; Z2 MEM MGR BANK 3 PAGE SELECT REG (WRITE ONLY)
|
||||
MPGENA .EQU $7C ; Z2 MEM MGR PAGING ENABLE REGISTER (BIT 0, WRITE ONLY)
|
||||
;
|
||||
RTC .EQU $70 ; RTC LATCH REGISTER ADR
|
||||
RTCIO .EQU $70 ; RTC LATCH REGISTER ADR
|
||||
PPIBASE .EQU $60 ; PRIMARY PARALLEL PORT REGISTERS BASE ADR
|
||||
;
|
||||
CTCENABLE .EQU TRUE ; ENABLE ZILOG CTC SUPPORT
|
||||
|
||||
@@ -85,7 +85,7 @@
|
||||
;
|
||||
#IF (DSRTCMODE == DSRTCMODE_STD)
|
||||
;
|
||||
DSRTC_BASE .EQU RTC ; RTC PORT
|
||||
DSRTC_BASE .EQU RTCIO ; RTC PORT
|
||||
;
|
||||
DSRTC_DATA .EQU %10000000 ; BIT 7 IS RTC DATA OUT
|
||||
DSRTC_CLK .EQU %01000000 ; BIT 6 IS RTC CLOCK (CLK)
|
||||
|
||||
@@ -1466,7 +1466,7 @@ HB_PCPU:
|
||||
; IF SO, BYPASS SWITCH TO CRT CONSOLE (FAILSAFE MODE)
|
||||
;
|
||||
#IF ((PLATFORM == PLT_SBC) | (PLATFORM == PLT_ZETA) | (PLATFORM == PLT_ZETA2))
|
||||
IN A,(RTC) ; RTC PORT, BIT 6 HAS STATE OF CONFIG JUMPER
|
||||
IN A,(RTCIO) ; RTC PORT, BIT 6 HAS STATE OF CONFIG JUMPER
|
||||
BIT 6,A ; BIT 6 HAS CONFIG JUMPER STATE
|
||||
JR Z,INITSYS3 ; Z=SHORTED, BYPASS CONSOLE SWITCH
|
||||
#ENDIF
|
||||
@@ -1574,7 +1574,8 @@ PC_INITTBLLEN .EQU (($ - PC_INITTBL) / 2)
|
||||
;==================================================================================================
|
||||
;
|
||||
HB_INITTBL:
|
||||
#IF (SPKENABLE & DSRTCENABLE)
|
||||
;#IF (SPKENABLE & DSRTCENABLE)
|
||||
#IF (SPKENABLE)
|
||||
.DW SPK_INIT ; AUDIBLE INDICATOR OF BOOT START
|
||||
#ENDIF
|
||||
#IF (AYENABLE)
|
||||
@@ -2401,7 +2402,7 @@ HB_TIMINT2:
|
||||
;
|
||||
#IF (PLATFORM == PLT_EZZ80)
|
||||
; PULSE WATCHDOG
|
||||
OUT (WDOG),A ; VALUE IS IRRELEVANT
|
||||
OUT (WDOGIO),A ; VALUE IS IRRELEVANT
|
||||
#ENDIF
|
||||
;
|
||||
OR $FF ; NZ SET TO INDICATE INT HANDLED
|
||||
@@ -2806,7 +2807,8 @@ SIZ_TERM .EQU $ - ORG_TERM
|
||||
.ECHO " bytes.\n"
|
||||
#ENDIF
|
||||
;
|
||||
#IF (SPKENABLE & DSRTCENABLE)
|
||||
;#IF (SPKENABLE & DSRTCENABLE)
|
||||
#IF (SPKENABLE)
|
||||
ORG_SPK .EQU $
|
||||
#INCLUDE "spk.asm"
|
||||
SIZ_SPK .EQU $ - ORG_SPK
|
||||
|
||||
@@ -117,9 +117,9 @@ SD_NOPULLUP .EQU TRUE ; ASSUME NO PULLUP
|
||||
;
|
||||
#IF (SDMODE == SDMODE_JUHA) ; JUHA MINI-BOARD
|
||||
SD_DEVCNT .EQU 1 ; NUMBER OF PHYSICAL UNITS (SOCKETS)
|
||||
SD_OPRREG .EQU RTC ; USES RTC LATCHES FOR OPERATION
|
||||
SD_OPRREG .EQU RTCIO ; USES RTC LATCHES FOR OPERATION
|
||||
SD_OPRDEF .EQU %00000001 ; QUIESCENT STATE
|
||||
SD_INPREG .EQU RTC ; INPUT REGISTER IS RTC
|
||||
SD_INPREG .EQU RTCIO ; INPUT REGISTER IS RTC
|
||||
SD_CS .EQU %00000100 ; RTC:2 IS SELECT
|
||||
SD_CLK .EQU %00000010 ; RTC:1 IS CLOCK
|
||||
SD_DI .EQU %00000001 ; RTC:0 IS DATA IN (CARD <- CPU)
|
||||
@@ -128,9 +128,9 @@ SD_DO .EQU %10000000 ; RTC:7 IS DATA OUT (CARD -> CPU)
|
||||
;
|
||||
#IF (SDMODE == SDMODE_N8) ; UNMODIFIED N8-2511
|
||||
SD_DEVCNT .EQU 1 ; NUMBER OF PHYSICAL UNITS (SOCKETS)
|
||||
SD_OPRREG .EQU RTC ; USES RTC LATCHES FOR OPERATION
|
||||
SD_OPRREG .EQU RTCIO ; USES RTC LATCHES FOR OPERATION
|
||||
SD_OPRDEF .EQU %00000001 ; QUIESCENT STATE
|
||||
SD_INPREG .EQU RTC ; INPUT REGISTER IS RTC
|
||||
SD_INPREG .EQU RTCIO ; INPUT REGISTER IS RTC
|
||||
SD_CS .EQU %00000100 ; RTC:2 IS SELECT
|
||||
SD_CLK .EQU %00000010 ; RTC:1 IS CLOCK
|
||||
SD_DI .EQU %00000001 ; RTC:0 IS DATA IN (CARD <- CPU)
|
||||
@@ -139,7 +139,7 @@ SD_DO .EQU %01000000 ; RTC:6 IS DATA OUT (CARD -> CPU)
|
||||
;
|
||||
#IF (SDMODE == SDMODE_CSIO) ; N8-2312
|
||||
SD_DEVCNT .EQU 1 ; NUMBER OF PHYSICAL UNITS (SOCKETS)
|
||||
SD_OPRREG .EQU RTC ; USES RTC LATCHES FOR OPERATION
|
||||
SD_OPRREG .EQU RTCIO ; USES RTC LATCHES FOR OPERATION
|
||||
SD_OPRDEF .EQU %00000000 ; QUIESCENT STATE
|
||||
SD_CS .EQU %00000100 ; RTC:2 IS SELECT
|
||||
SD_CNTR .EQU Z180_CNTR
|
||||
@@ -196,7 +196,7 @@ SD_TRDR .EQU Z180_TRDR
|
||||
;
|
||||
#IF (SDMODE == SDMODE_SC126) ; SC126
|
||||
SD_DEVCNT .EQU 1 ; NUMBER OF PHYSICAL UNITS (SOCKETS)
|
||||
SD_OPRREG .EQU RTC ; USES RTC LATCHES FOR OPERATION
|
||||
SD_OPRREG .EQU RTCIO ; USES RTC LATCHES FOR OPERATION
|
||||
SD_OPRDEF .EQU %00001100 ; QUIESCENT STATE (/CS1 & /CS2 DEASSERTED)
|
||||
SD_CS .EQU %00000100 ; RTC:2 IS SELECT FOR PRIMARY SPI CARD
|
||||
SD_CNTR .EQU Z180_CNTR
|
||||
|
||||
@@ -6,7 +6,7 @@
|
||||
SPK_INIT:
|
||||
CALL NEWLINE ; FORMATTING
|
||||
PRTS("SPK: IO=0x$")
|
||||
LD A,DSRTC_BASE
|
||||
LD A,RTCIO
|
||||
CALL PRTHEXBYTE
|
||||
CALL SPK_BEEP
|
||||
XOR A
|
||||
@@ -23,7 +23,7 @@ SPK_BEEP:
|
||||
LD B,A
|
||||
SPK_BEEP1:
|
||||
LD A,B
|
||||
OUT (DSRTC_BASE),A
|
||||
OUT (RTCIO),A
|
||||
XOR %00000100
|
||||
LD B,A
|
||||
LD DE,17
|
||||
|
||||
Reference in New Issue
Block a user