mirror of
https://github.com/wwarthen/RomWBW.git
synced 2026-02-06 22:33:12 -06:00
Reintegrate wbw -> trunk
This commit is contained in:
wayne
@@ -113,7 +113,7 @@ Asm 'bootrom'
|
||||
Asm 'bootapp'
|
||||
Asm 'loader'
|
||||
Asm 'pgzero'
|
||||
Asm 'bnk1'
|
||||
Asm 'hbios'
|
||||
Asm 'hbfill'
|
||||
Asm 'romfill'
|
||||
|
||||
@@ -124,8 +124,8 @@ Asm 'romfill'
|
||||
Concat 'cp.bin','dos.bin','cbios.bin' 'os.bin'
|
||||
Concat 'prefix.bin','os.bin' $SysImgFile
|
||||
Concat 'pgzero.bin','bootrom.bin','syscfg.bin','loader.bin','romfill.bin','dbgmon.bin','os.bin','hbfill.bin' 'rom0.bin'
|
||||
Concat 'pgzero.bin','bootrom.bin','syscfg.bin','loader.bin','bnk1.bin' 'rom1.bin'
|
||||
Concat 'bootapp.bin','syscfg.bin','loader.bin','bnk1.bin','dbgmon.bin','os.bin' $LoaderFile
|
||||
Concat 'pgzero.bin','bootrom.bin','syscfg.bin','loader.bin','hbios.bin' 'rom1.bin'
|
||||
Concat 'bootapp.bin','syscfg.bin','loader.bin','hbios.bin','dbgmon.bin','os.bin' $LoaderFile
|
||||
|
||||
# Create the RomDisk image
|
||||
|
||||
|
||||
@@ -2,6 +2,13 @@
|
||||
|
||||
; Status: Still very experimental, either doesn't work or is buggy
|
||||
|
||||
; WBW: BOGUS EQUATE TO GET MODULE TO BUILD FOR NON-N8 HARDWARE
|
||||
; NEEDS TO BE FIXED BEFORE IT WILL WORK FOR ANYTHING OTHER THAN N8
|
||||
#IF (!N8VENABLE)
|
||||
#DEFINE N8V_OFFSET PANIC
|
||||
#ENDIF
|
||||
|
||||
;
|
||||
;==================================================================================================
|
||||
; ANSI EMULATION MODULE
|
||||
;==================================================================================================
|
||||
@@ -150,6 +157,7 @@ ANSI_STATE2_NOT_SEMI:
|
||||
JP ANSI_CMD_DISP
|
||||
|
||||
ANSI_INIT:
|
||||
PRTS("ANSI:$")
|
||||
JR ANSI_INI ; REUSE THE INI FUNCTION BELOW
|
||||
;
|
||||
|
||||
|
||||
@@ -9,11 +9,23 @@
|
||||
;
|
||||
#INCLUDE "std.asm"
|
||||
;
|
||||
.ORG 0100H
|
||||
.ORG $100
|
||||
;
|
||||
DI ; NO INTERRUPTS
|
||||
IM 1 ; INTERRUPT MODE 1
|
||||
|
||||
LD SP,$FF00 ; START WITH SP BELOW HBIOS PROXY LOCATION
|
||||
;
|
||||
; LD BC,0
|
||||
;XXX:
|
||||
; DJNZ XXX
|
||||
; DEC C
|
||||
; JR NZ,XXX
|
||||
;
|
||||
; EMIT FIRST SIGN OF LIFE TO SERIAL PORT
|
||||
;
|
||||
CALL XIO_INIT ; INIT SERIAL PORT
|
||||
LD HL,STR_BOOT ; POINT TO MESSAGE
|
||||
CALL XIO_OUTS ; SAY HELLO
|
||||
;
|
||||
; PERFORM MINIMAL Z180 SPECIFIC INITIALIZATION
|
||||
;
|
||||
@@ -38,17 +50,22 @@
|
||||
LD A,(RAMSIZE - 64) >> 2
|
||||
OUT0 (CPU_CBR),A ; COMMON BASE = LAST (TOP) BANK
|
||||
#ENDIF
|
||||
|
||||
;
|
||||
CALL XIO_DOT
|
||||
;
|
||||
; RELOCATE MONITOR/OS CODE FROM 8000H TO C000H
|
||||
; - HBIOS PROXY AT $FF00 IS OVERLAID, BUT WE DON'T CARE
|
||||
; ABOUT IT ANYMORE, IT WILL BE REFRESHED DURING HBIOS
|
||||
; INIT LATER.
|
||||
;
|
||||
LD HL,8000H ; COPY MEMORY FROM 8000
|
||||
LD DE,0C000H ; TO C000
|
||||
LD BC,4000H ; COPY 16K
|
||||
; NOTE: STACK IS WIPED OUT, STACK IS ASSUMED TO BE EMPTY HERE!!!!
|
||||
;
|
||||
LD HL,$8000 ; COPY MEMORY FROM 8000
|
||||
LD DE,$C000 ; TO C000
|
||||
LD BC,$4000 ; COPY 16K
|
||||
LDIR
|
||||
;
|
||||
CALL XIO_DOT ; MARK PROGRESS
|
||||
;
|
||||
; COPY FIRST $1000 BYTES TO $8000 (UPPER, NON-BANKED MEMORY)
|
||||
; THIS INCLUDES OURSELVES AND THE LOADER CODE
|
||||
@@ -56,13 +73,21 @@
|
||||
;
|
||||
; RELOCATE BOOT PHASE 2 AND LOADER CODE FROM 0000H TO 8000H
|
||||
;
|
||||
LD HL,0000H ; COPY MEMORY FROM 0000
|
||||
LD DE,8000H ; TO 8000H
|
||||
LD BC,1000H ; COPY 1000H BYTES
|
||||
LD HL,$0000 ; COPY MEMORY FROM 0000
|
||||
LD DE,$8000 ; TO 8000H
|
||||
LD BC,$1000 ; COPY 1000H BYTES
|
||||
LDIR
|
||||
;
|
||||
CALL XIO_DOT ; MARK PROGRESS
|
||||
;
|
||||
JP PHASE2 ; JUMP TO PHASE 2 BOOT IN UPPER MEMORY
|
||||
;
|
||||
STR_BOOT .DB "Boot$"
|
||||
;
|
||||
; IMBED DIRECT SERIAL I/O ROUTINES
|
||||
;
|
||||
#INCLUDE "xio.asm"
|
||||
;
|
||||
;______________________________________________________________________________________________________________________
|
||||
;
|
||||
; THIS IS THE PHASE 2 CODE THAT MUST EXECUTE IN UPPER MEMORY
|
||||
@@ -70,14 +95,14 @@
|
||||
.ORG $ + $8000 ; WE ARE NOW EXECUTING IN UPPER MEMORY
|
||||
;
|
||||
PHASE2:
|
||||
LD SP,9000H ; INIT BOOT STACK
|
||||
CALL XIO_DOT ; MARK PROGRESS
|
||||
;
|
||||
; COPY RAMPG0 TO RAMPG1
|
||||
;
|
||||
LD HL,0000H ; HL = LOCATION IN LOMEM TO COPY FROM/TO
|
||||
LD HL,0 ; HL = LOCATION IN LOMEM TO COPY FROM/TO
|
||||
LOOP:
|
||||
LD DE,09000H ; DE = BUFFER ADDRESS
|
||||
LD BC,1000H ; BYTES TO COPY (4K CHUNKS)
|
||||
LD DE,$9000 ; DE = BUFFER ADDRESS
|
||||
LD BC,$1000 ; BYTES TO COPY (4K CHUNKS)
|
||||
PUSH BC ; SAVE COPY SIZE
|
||||
PUSH DE ; SAVE COPY DEST
|
||||
PUSH HL ; SAVE COPY SOURCE
|
||||
@@ -92,21 +117,21 @@ LOOP:
|
||||
LDIR ; COPY BUFFER -> RAM
|
||||
EX DE,HL ; GET LOMEM POINTER BACK TO HL
|
||||
LD A,H ; HIGH BYTE OF POINTER TO A
|
||||
CP 80H ; HIGH BYTE WILL BE 80H WHEN WE ARE DONE
|
||||
CP $80 ; HIGH BYTE WILL BE 80H WHEN WE ARE DONE
|
||||
JP NZ,LOOP ; IF NOT DONE, LOOP TO DO NEXT 4K CHUNK
|
||||
;
|
||||
CALL XIO_DOT ; MARK PROGRESS
|
||||
;
|
||||
; INITIALIZE HBIOS AND JUMP TO LOADER
|
||||
;
|
||||
; CALL HBIOS HARDWARE INITIALIZATION
|
||||
LD A,1 ; SETUP TO SELECT PAGE 1
|
||||
CALL RAMPG ; SELECT RAM PAGE 1 (WHICH IS NOW LOADED WITH BNK1 CODE)
|
||||
CALL 1000H ; CALL HBIOS INITIALIZATION
|
||||
CALL $1000 ; CALL HBIOS INITIALIZATION
|
||||
;
|
||||
; CALL HBIOS PROXY INITIALIZATION
|
||||
CALL RAMPGZ ; MAKE SURE RAM PAGE ZERO IS MAPPED TO LOWER 32K
|
||||
CALL 0FF20H ; CALL HBIOS PROXY INITIALIZATION
|
||||
CALL $FF20 ; CALL HBIOS PROXY INITIALIZATION
|
||||
;
|
||||
JP 8400H ; JUMP TO LOADER
|
||||
JP $8400 ; JUMP TO LOADER
|
||||
;______________________________________________________________________________________________________________________
|
||||
;
|
||||
; NOTE THAT MEMORY MANAGER CODE IS IN UPPER MEMORY!
|
||||
|
||||
@@ -9,11 +9,17 @@
|
||||
;
|
||||
#INCLUDE "std.asm"
|
||||
;
|
||||
.ORG 0100H
|
||||
.ORG $100
|
||||
;
|
||||
DI ; NO INTERRUPTS
|
||||
IM 1 ; INTERRUPT MODE 1
|
||||
|
||||
LD SP,$FF00 ; START WITH SP BELOW HBIOS PROXY LOCATION
|
||||
;
|
||||
; EMIT FIRST SIGN OF LIFE TO SERIAL PORT
|
||||
;
|
||||
CALL XIO_INIT ; INIT SERIAL PORT
|
||||
LD HL,STR_BOOT ; POINT TO MESSAGE
|
||||
CALL XIO_OUTS ; SAY HELLO
|
||||
;
|
||||
; PERFORM MINIMAL Z180 SPECIFIC INITIALIZATION
|
||||
;
|
||||
@@ -31,14 +37,15 @@
|
||||
OUT0 (CPU_DCNTL),A
|
||||
|
||||
; MMU SETUP
|
||||
LD A,80H
|
||||
LD A,$80
|
||||
OUT0 (CPU_CBAR),A ; SETUP FOR 32K/32K BANK CONFIG
|
||||
XOR A
|
||||
OUT0 (CPU_BBR),A ; BANK BASE = 0
|
||||
LD A,(RAMSIZE - 64) >> 2
|
||||
OUT0 (CPU_CBR),A ; COMMON BASE = LAST (TOP) BANK
|
||||
#ENDIF
|
||||
|
||||
;
|
||||
CALL XIO_DOT
|
||||
;
|
||||
; COPY ENTIRE CONTENTS OF ROM BANK 0 TO HI RAM
|
||||
; THIS INCLUDES OURSELVES AND THE LOADER CODE
|
||||
@@ -46,13 +53,23 @@
|
||||
; BECAUSE IT WILL BE REFRESHED DURING HBIOS
|
||||
; INIT LATER.
|
||||
;
|
||||
LD HL,0000H ; COPY MEMORY FROM LOMEM (0000H)
|
||||
LD DE,8000H ; TO HIMEM (8000H)
|
||||
LD BC,8000H ; COPY ENTIRE BANK, 8000H BYTES
|
||||
; NOTE: STACK IS WIPED OUT, STACK IS ASSUMED TO BE EMPTY HERE!!!!
|
||||
;
|
||||
LD HL,$0000 ; COPY MEMORY FROM LOMEM (0000H)
|
||||
LD DE,$8000 ; TO HIMEM (8000H)
|
||||
LD BC,$8000 ; COPY ENTIRE BANK, 8000H BYTES
|
||||
LDIR
|
||||
;
|
||||
CALL XIO_DOT ; MARK PROGRESS
|
||||
;
|
||||
JP PHASE2 ; JUMP TO PHASE 2 BOOT IN UPPER MEMORY
|
||||
;
|
||||
STR_BOOT .DB "Boot$"
|
||||
;
|
||||
; IMBED DIRECT SERIAL I/O ROUTINES
|
||||
;
|
||||
#INCLUDE "xio.asm"
|
||||
;
|
||||
;______________________________________________________________________________________________________________________
|
||||
;
|
||||
; THIS IS THE PHASE 2 CODE THAT MUST EXECUTE IN UPPER MEMORY
|
||||
@@ -60,14 +77,14 @@
|
||||
.ORG $ + $8000 ; WE ARE NOW EXECUTING IN UPPER MEMORY
|
||||
;
|
||||
PHASE2:
|
||||
LD SP,9000H ; INIT BOOT STACK
|
||||
CALL XIO_DOT ; MARK PROGRESS
|
||||
;
|
||||
; COPY ROMPG1 TO RAMPG1
|
||||
;
|
||||
LD HL,0000H ; HL = LOCATION IN LOMEM TO COPY FROM/TO
|
||||
LD HL,0 ; HL = LOCATION IN LOMEM TO COPY FROM/TO
|
||||
LOOP:
|
||||
LD DE,09000H ; DE = BUFFER ADDRESS
|
||||
LD BC,1000H ; BYTES TO COPY (4K CHUNKS)
|
||||
LD DE,$9000 ; DE = BUFFER ADDRESS
|
||||
LD BC,$1000 ; BYTES TO COPY (4K CHUNKS)
|
||||
PUSH BC ; SAVE COPY SIZE
|
||||
PUSH DE ; SAVE COPY DEST
|
||||
PUSH HL ; SAVE COPY SOURCE
|
||||
@@ -82,21 +99,21 @@ LOOP:
|
||||
LDIR ; COPY BUFFER -> RAM
|
||||
EX DE,HL ; GET LOMEM POINTER BACK TO HL
|
||||
LD A,H ; HIGH BYTE OF POINTER TO A
|
||||
CP 80H ; HIGH BYTE WILL BE 80H WHEN WE ARE DONE
|
||||
CP $80 ; HIGH BYTE WILL BE $80 WHEN WE ARE DONE
|
||||
JP NZ,LOOP ; IF NOT DONE, LOOP TO DO NEXT 4K CHUNK
|
||||
;
|
||||
CALL XIO_DOT ; MARK PROGRESS
|
||||
;
|
||||
; INITIALIZE HBIOS AND JUMP TO LOADER
|
||||
;
|
||||
; CALL HBIOS HARDWARE INITIALIZATION
|
||||
LD A,1 ; SETUP TO SELECT PAGE 1
|
||||
CALL RAMPG ; SELECT RAM PAGE 1 (WHICH IS NOW LOADED WITH BNK1 CODE)
|
||||
CALL 1000H ; CALL HBIOS INITIALIZATION
|
||||
CALL $1000 ; CALL HBIOS INITIALIZATION
|
||||
;
|
||||
; CALL HBIOS PROXY INITIALIZATION
|
||||
CALL RAMPGZ ; MAKE SURE RAM PAGE ZERO IS MAPPED TO LOWER 32K
|
||||
CALL 0FF20H ; CALL HBIOS PROXY INITIALIZATION
|
||||
CALL $FF20 ; CALL HBIOS PROXY INITIALIZATION
|
||||
;
|
||||
JP 8400H ; JUMP TO LOADER
|
||||
JP $8400 ; JUMP TO LOADER
|
||||
;______________________________________________________________________________________________________________________
|
||||
;
|
||||
; NOTE THAT MEMORY MANAGER CODE IS IN UPPER MEMORY!
|
||||
@@ -107,6 +124,6 @@ LOOP:
|
||||
; PAD OUT REMAINDER OF PAGE
|
||||
;
|
||||
.ORG $ - $8000 ; ORG BACK TO LOWER MEMORY
|
||||
.FILL $0200 - $,$FF ; PAD OUT REMAINDER OF PAGE
|
||||
.FILL $200 - $,$FF ; PAD OUT REMAINDER OF PAGE
|
||||
;
|
||||
.END
|
||||
|
||||
@@ -2029,15 +2029,11 @@ INIT:
|
||||
|
||||
#IF (PLATFORM != PLT_N8)
|
||||
IN A,(RTC) ; RTC PORT, BIT 6 HAS STATE OF CONFIG JUMPER
|
||||
; LD A,40H ; *DEBUG* SIMULATE JUMPER OPEN
|
||||
; LD A,00H ; *DEBUG* SIMULATE JUMPER SHORTED
|
||||
AND 40H ; ISOLATE BIT 6
|
||||
JR Z,INIT1 ; IF BIT6=0, SHORTED, USE ALT IOBYTE
|
||||
LD A,DEFIOBYTE ; LOAD DEF IOBYTE VALUE
|
||||
JR INIT2 ; CONTINUE
|
||||
INIT1:
|
||||
BIT 6,A ; BIT 6 HAS CONFIG JUMPER STATE
|
||||
LD A,DEFIOBYTE ; ASSUME WE WANT DEFAULT IOBYTE VALUE
|
||||
JR NZ,INIT1 ; IF BIT6=1, NOT SHORTED, CONTINUE WITH DEFAULT
|
||||
LD A,ALTIOBYTE ; LOAD ALT IOBYTE VALUE
|
||||
INIT2:
|
||||
INIT1:
|
||||
LD (IOBYTE),A ; SET THE ACTIVE IOBYTE
|
||||
#ENDIF
|
||||
|
||||
|
||||
@@ -3,34 +3,21 @@
|
||||
; ROMWBW 2.X CONFIGURATION FOR N8 5/8/2012
|
||||
;==================================================================================================
|
||||
;
|
||||
; About Doug's configuration
|
||||
;
|
||||
; The CPU Frequency is specified as 18 (MHz)
|
||||
; The Platform is PLT_N8
|
||||
; The default VDA is the TMS9918 (N8V)
|
||||
; The default emulation is ANSI
|
||||
; The DSKMAP is DM_PPIDE
|
||||
; The N8VENABLE is TRUE
|
||||
; The PPIDEENABLE is TRUE
|
||||
; The PPIDECAPACITY is 200*9
|
||||
; The TTYENABLE AND ANSIENABLE ARE TRUE
|
||||
|
||||
|
||||
; BUILD CONFIGURATION OPTIONS
|
||||
;
|
||||
CPUFREQ .EQU 18 ; IN MHZ, USED TO COMPUTE DELAY FACTORS
|
||||
CPUFREQ .EQU 20 ; IN MHZ, USED TO COMPUTE DELAY FACTORS
|
||||
;
|
||||
PLATFORM .EQU PLT_N8 ; PLT_N8VEM, PLT_ZETA, PLT_N8
|
||||
;
|
||||
DEFCON .EQU CIODEV_UART ; DEFAULT CONSOLE DEVICE (LOADER AND MONITOR): CIODEV_UART, CIODEV_VDU, DIODEV_PRPCON
|
||||
ALTCON .EQU DEFCON ; ALT CONSOLE DEVICE (USED WHEN CONFIG JUMPER SHORTED)
|
||||
DEFVDA .EQU VDADEV_N8V ; DEFAULT VDA (VDADEV_NONE, VDADEV_VDU, VDADEV_CVDU, VDADEV_7220, VDADEV_N8V)
|
||||
DEFEMU .EQU EMUTYP_ANSI ; EMUTYP_TTY ; DEFAULT EMULATION TYPE (EMUTYP_TTY, EMUTYP_ANSI, ...)
|
||||
DEFEMU .EQU EMUTYP_TTY ; DEFAULT EMULATION TYPE (EMUTYP_TTY, EMUTYP_ANSI, ...)
|
||||
;
|
||||
RAMSIZE .EQU 512 ; SIZE OF RAM IN KB, MUST MATCH YOUR HARDWARE!!!
|
||||
CLRRAMDISK .EQU CLR_AUTO ; CLR_ALWAYS, CLR_NEVER, CLR_AUTO (CLEAR IF INVALID DIR AREA)
|
||||
;
|
||||
DSKMAP .EQU DM_PPIDE ; DM_ROM, DM_RAM, DM_FD, DM_IDE, DM_PPIDE, DM_SD, DM_PRPSD, DM_PPPSD
|
||||
DSKMAP .EQU DM_RAM ; DM_ROM, DM_RAM, DM_FD, DM_IDE, DM_PPIDE, DM_SD, DM_PRPSD, DM_PPPSD
|
||||
;
|
||||
DSKYENABLE .EQU FALSE ; TRUE FOR DSKY SUPPORT (DO NOT COMBINE WITH PPIDE)
|
||||
;
|
||||
@@ -61,16 +48,16 @@ IDETRACE .EQU 1 ; 0=SILENT, 1=ERRORS, 2=EVERYTHING (ONLY RELEVANT IF IDEENABLE
|
||||
IDE8BIT .EQU FALSE ; USE IDE 8BIT TRANSFERS (PROBABLY ONLY WORKS FOR CF CARDS!)
|
||||
IDECAPACITY .EQU 64 ; CAPACITY OF DEVICE (IN MB)
|
||||
;
|
||||
PPIDEENABLE .EQU TRUE ; TRUE FOR PPIDE SUPPORT (DO NOT COMBINE WITH DSKYENABLE)
|
||||
PPIDEENABLE .EQU FALSE ; TRUE FOR PPIDE SUPPORT (DO NOT COMBINE WITH DSKYENABLE)
|
||||
PPIDEMODE .EQU PPIDEMODE_STD ; PPIDEMODE_STD, PPIDEMODE_DIO3
|
||||
PPIDETRACE .EQU 1 ; 0=SILENT, 1=ERRORS, 2=EVERYTHING (ONLY RELEVANT IF PPIDEENABLE = TRUE)
|
||||
PPIDE8BIT .EQU FALSE ; USE IDE 8BIT TRANSFERS (PROBABLY ONLY WORKS FOR CF CARDS!)
|
||||
PPIDECAPACITY .EQU 200*9 ; CAPACITY OF DEVICE (IN MB)
|
||||
PPIDECAPACITY .EQU 64 ; CAPACITY OF DEVICE (IN MB)
|
||||
PPIDESLOW .EQU FALSE ; ADD DELAYS TO HELP PROBLEMATIC HARDWARE (TRY THIS IF PPIDE IS UNRELIABLE)
|
||||
;
|
||||
SDENABLE .EQU TRUE ; TRUE FOR SD SUPPORT
|
||||
SDTRACE .EQU 2 ; 0=SILENT, 1=ERRORS, 2=EVERYTHING (ONLY RELEVANT IF IDEENABLE = TRUE)
|
||||
SDCAPACITY .EQU 200*9 ; CAPACITY OF DEVICE (IN MB)
|
||||
SDTRACE .EQU 1 ; 0=SILENT, 1=ERRORS, 2=EVERYTHING (ONLY RELEVANT IF IDEENABLE = TRUE)
|
||||
SDCAPACITY .EQU 64 ; CAPACITY OF DEVICE (IN MB)
|
||||
SDCSIO .EQU TRUE ; TRUE IF USING THE CSIO PORT (N8 ONLY)
|
||||
SDCSIOFAST .EQU FALSE ; TRUE IF USING THE LOOKUP TABLE RATHER THAN SHIFTS AND ROTATES (N8 ONLY)
|
||||
PPISD .EQU FALSE ; TRUE IF USING PPISD MINI-BOARD (DO NOT COMBINE WITH PPIDE)
|
||||
|
||||
@@ -24,6 +24,7 @@ CVDU_DATA .EQU $EC ; READ/WRITE M8563 DATA
|
||||
;======================================================================
|
||||
;
|
||||
CVDU_INIT:
|
||||
PRTS("CVDU:$")
|
||||
CALL CVDU_CRTINIT ; SETUP THE CVDU CHIP REGISTERS
|
||||
CALL CVDU_LOADFONT ; LOAD FONT DATA FROM ROM TO CVDU STRORAGE
|
||||
|
||||
|
||||
@@ -429,6 +429,11 @@ FD_MEDIA3:
|
||||
; FD_INIT
|
||||
;
|
||||
FD_INIT:
|
||||
PRTS("FD: IO=0x$")
|
||||
LD A,FDC_MSR
|
||||
CALL PRTHEXBYTE
|
||||
PRTS(" UNITS=2$")
|
||||
|
||||
LD A,FDMEDIA
|
||||
LD (FCD_U0MEDIA),A
|
||||
LD (FCD_U1MEDIA),A
|
||||
|
||||
@@ -1,7 +1,7 @@
|
||||
;__________________________________________________________________________________________________
|
||||
;
|
||||
; BANK1
|
||||
;__________________________________________________________________________________________________
|
||||
;==================================================================================================
|
||||
; HBIOS
|
||||
;==================================================================================================
|
||||
;
|
||||
|
||||
; bnk1.asm 11/16/2012 dwg - specify hl=0 before calling N8V_INIT
|
||||
@@ -14,7 +14,6 @@
|
||||
; INCLUDE GENERIC STUFF
|
||||
;
|
||||
#INCLUDE "std.asm"
|
||||
|
||||
;
|
||||
;==================================================================================================
|
||||
; SYSTEM INITIALIZATION
|
||||
@@ -24,87 +23,154 @@
|
||||
;
|
||||
INITSYS:
|
||||
;
|
||||
; ANNOUNCE HBIOS
|
||||
;
|
||||
CALL NEWLINE
|
||||
CALL NEWLINE
|
||||
PRTX(STR_PLATFORM)
|
||||
PRTS(" @ $")
|
||||
LD HL,CPUFREQ
|
||||
CALL PRTDEC
|
||||
PRTS("MHz ROM=$")
|
||||
LD HL,ROMSIZE
|
||||
CALL PRTDEC
|
||||
PRTS("KB RAM=$")
|
||||
LD HL,RAMSIZE
|
||||
CALL PRTDEC
|
||||
PRTS("KB$")
|
||||
;
|
||||
; INSTALL HBIOS PROXY IN UPPER MEMORY
|
||||
;
|
||||
LD HL,HB_IMG
|
||||
LD DE,HB_LOC
|
||||
LD BC,HB_SIZ
|
||||
LDIR
|
||||
LD HL,HB_IMG ; HL := SOURCE OF HBIOS PROXY IMAGE
|
||||
LD DE,HB_LOC ; DE := DESTINATION TO INSTALL IT
|
||||
LD BC,HB_SIZ ; SIZE
|
||||
LDIR ; DO THE COPY
|
||||
;
|
||||
; DURING INITIALIZATION, CONSOLE IS UART!
|
||||
; POST-INITIALIZATION, WILL BE SWITCHED TO USER CONFIGURED CONSOLE
|
||||
;
|
||||
LD A,CIODEV_UART
|
||||
LD (CONDEV),A
|
||||
;
|
||||
; PERFORM DEVICE INITIALIZATION
|
||||
;
|
||||
LD B,HB_INITTBLLEN
|
||||
LD DE,HB_INITTBL
|
||||
INITSYS2:
|
||||
CALL NEWLINE
|
||||
LD A,(DE)
|
||||
LD L,A
|
||||
INC DE
|
||||
LD A,(DE)
|
||||
LD H,A
|
||||
INC DE
|
||||
PUSH DE
|
||||
PUSH BC
|
||||
CALL JPHL
|
||||
OR A
|
||||
JR Z,INITSYS3
|
||||
PUSH AF
|
||||
CALL PC_SPACE
|
||||
POP AF
|
||||
CALL PC_LBKT
|
||||
CALL PRTHEXBYTE
|
||||
CALL PC_RBKT
|
||||
JR INITSYS4
|
||||
INITSYS3:
|
||||
PRTS(" [OK]$")
|
||||
INITSYS4:
|
||||
POP BC
|
||||
POP DE
|
||||
DJNZ INITSYS2
|
||||
;
|
||||
; SET UP THE DEFAULT DISK BUFFER ADDRESS
|
||||
;
|
||||
LD HL,$8000 ; DEFAULT DISK XFR BUF ADDRESS
|
||||
LD (DIOBUF),HL ; SAVE IT
|
||||
;
|
||||
#IF (PLATFORM != PLT_N8)
|
||||
; NOW SWITCH TO USER CONFIGURED CONSOLE
|
||||
;
|
||||
#IF (PLATFORM == PLT_N8)
|
||||
LD A,DEFCON
|
||||
#ELSE
|
||||
IN A,(RTC) ; RTC PORT, BIT 6 HAS STATE OF CONFIG JUMPER
|
||||
LD A,DEFCON ; ASSUME WE WANT DEFAULT CONSOLE
|
||||
BIT 6,A ; BIT 6 HAS CONFIG JUMPER STATE
|
||||
LD A,DEFCON ; ASSUME WE WANT DEFAULT CONSOLE
|
||||
JR NZ,INITSYS1 ; IF NZ, JUMPER OPEN, DEF CON IS CORRECT
|
||||
LD A,ALTCON ; JUMPER SHORTED, USE ALTERNATE CONSOLE
|
||||
INITSYS1:
|
||||
#ENDIF
|
||||
LD (CONDEV),A ; SET THE ACTIVE CONSOLE DEVICE
|
||||
#ENDIF
|
||||
;
|
||||
; PERFORM DEVICE INITIALIZATION
|
||||
; DISPLAY THE POST-INITIALIZATION BANNER
|
||||
;
|
||||
#IF (UARTENABLE)
|
||||
CALL UART_INIT
|
||||
#ENDIF
|
||||
#IF (VDUENABLE)
|
||||
CALL VDU_INIT
|
||||
#ENDIF
|
||||
#IF (CVDUENABLE)
|
||||
CALL CVDU_INIT
|
||||
#ENDIF
|
||||
#IF (UPD7220ENABLE)
|
||||
CALL UPD7220_INIT
|
||||
#ENDIF
|
||||
#IF (N8VENABLE)
|
||||
LD HL,CHARSET ; tell init to use built-in bitmaps
|
||||
CALL N8V_VDAINI
|
||||
#ENDIF
|
||||
#IF (PRPENABLE)
|
||||
CALL PRP_INIT
|
||||
#ENDIF
|
||||
#IF (PPPENABLE)
|
||||
CALL PPP_INIT
|
||||
#ENDIF
|
||||
#IF (DSKYENABLE)
|
||||
CALL DSKY_INIT
|
||||
#ENDIF
|
||||
#IF (FDENABLE)
|
||||
CALL FD_INIT
|
||||
#ENDIF
|
||||
#IF (IDEENABLE)
|
||||
CALL IDE_INIT
|
||||
#ENDIF
|
||||
#IF (PPIDEENABLE)
|
||||
CALL PPIDE_INIT
|
||||
#ENDIF
|
||||
#IF (SDENABLE)
|
||||
CALL SD_INIT
|
||||
#ENDIF
|
||||
#IF (HDSKENABLE)
|
||||
CALL HDSK_INIT
|
||||
#ENDIF
|
||||
#IF (PPKENABLE)
|
||||
CALL PPK_INIT
|
||||
#ENDIF
|
||||
#IF (KBDENABLE)
|
||||
CALL KBD_INIT
|
||||
#ENDIF
|
||||
#IF (TTYENABLE)
|
||||
CALL TTY_INIT
|
||||
#ENDIF
|
||||
#IF (ANSIENABLE)
|
||||
CALL ANSI_INIT
|
||||
#ENDIF
|
||||
;
|
||||
LD DE,STR_BANNER
|
||||
CALL WRITESTR
|
||||
CALL NEWLINE
|
||||
CALL NEWLINE
|
||||
PRTX(STR_BANNER)
|
||||
CALL NEWLINE
|
||||
;
|
||||
RET
|
||||
;
|
||||
;==================================================================================================
|
||||
; TABLE OF INITIALIZATION ENTRY POINTS
|
||||
;==================================================================================================
|
||||
;
|
||||
HB_INITTBL:
|
||||
#IF (UARTENABLE)
|
||||
.DW UART_INIT
|
||||
#ENDIF
|
||||
#IF (VDUENABLE)
|
||||
.DW VDU_INIT
|
||||
#ENDIF
|
||||
#IF (CVDUENABLE)
|
||||
.DW CVDU_INIT
|
||||
#ENDIF
|
||||
#IF (UPD7220ENABLE)
|
||||
.DW UPD7220_INIT
|
||||
#ENDIF
|
||||
#IF (N8VENABLE)
|
||||
.DW N8V_INIT
|
||||
#ENDIF
|
||||
#IF (PRPENABLE)
|
||||
.DW PRP_INIT
|
||||
#ENDIF
|
||||
#IF (PPPENABLE)
|
||||
.DW PPP_INIT
|
||||
#ENDIF
|
||||
#IF (DSKYENABLE)
|
||||
.DW DSKY_INIT
|
||||
#ENDIF
|
||||
#IF (FDENABLE)
|
||||
.DW FD_INIT
|
||||
#ENDIF
|
||||
#IF (IDEENABLE)
|
||||
.DW IDE_INIT
|
||||
#ENDIF
|
||||
#IF (PPIDEENABLE)
|
||||
.DW PPIDE_INIT
|
||||
#ENDIF
|
||||
#IF (SDENABLE)
|
||||
.DW SD_INIT
|
||||
#ENDIF
|
||||
#IF (HDSKENABLE)
|
||||
.DW HDSK_INIT
|
||||
#ENDIF
|
||||
#IF (PPKENABLE)
|
||||
.DW PPK_INIT
|
||||
#ENDIF
|
||||
#IF (KBDENABLE)
|
||||
.DW KBD_INIT
|
||||
#ENDIF
|
||||
#IF (TTYENABLE)
|
||||
.DW TTY_INIT
|
||||
#ENDIF
|
||||
#IF (ANSIENABLE)
|
||||
.DW ANSI_INIT
|
||||
#ENDIF
|
||||
;
|
||||
HB_INITTBLLEN .EQU (($ - HB_INITTBL) / 2)
|
||||
;
|
||||
;==================================================================================================
|
||||
; IDLE
|
||||
;==================================================================================================
|
||||
;
|
||||
@@ -672,10 +738,10 @@ SIZ_ANSI .EQU $ - ORG_ANSI
|
||||
#INCLUDE "util.asm"
|
||||
;
|
||||
;==================================================================================================
|
||||
; BANK ONE GLOBAL DATA
|
||||
; HBIOS GLOBAL DATA
|
||||
;==================================================================================================
|
||||
;
|
||||
CONDEV .DB DEFCON
|
||||
CONDEV .DB CIODEV_UART
|
||||
;
|
||||
IDLECOUNT .DB 0
|
||||
;
|
||||
@@ -690,18 +756,20 @@ DIOBUF .DW $FD00 ; PTR TO 512 BYTE DISK XFR BUFFER
|
||||
;
|
||||
STR_BANNER .DB "N8VEM HBIOS v", BIOSVER, " ("
|
||||
VAR_LOC .DB VARIANT, "-"
|
||||
TST_LOC .DB TIMESTAMP, ")\r\n"
|
||||
.DB PLATFORM_NAME, DSKYLBL, VDULBL, CVDULBL, UPD7220LBL, N8VLBL,
|
||||
.DB FDLBL, IDELBL, PPIDELBL, SDLBL, PRPLBL, PPPLBL, HDSKLBL, "\r\n$"
|
||||
TST_LOC .DB TIMESTAMP, ")"
|
||||
; .DB "\r\n", PLATFORM_NAME, DSKYLBL, VDULBL, CVDULBL, UPD7220LBL, N8VLBL
|
||||
; .DB FDLBL, IDELBL, PPIDELBL, SDLBL, PRPLBL, PPPLBL, HDSKLBL
|
||||
.DB "$"
|
||||
STR_PLATFORM .DB PLATFORM_NAME, "$"
|
||||
;
|
||||
;==================================================================================================
|
||||
; FILL REMAINDER OF BANK
|
||||
; FILL REMAINDER OF HBIOS
|
||||
;==================================================================================================
|
||||
;
|
||||
SLACK: .EQU (7F00H - $)
|
||||
.FILL SLACK,0FFH
|
||||
;
|
||||
.ECHO "BNK1 space remaining: "
|
||||
.ECHO "HBIOS space remaining: "
|
||||
.ECHO SLACK
|
||||
.ECHO " bytes.\n"
|
||||
;
|
||||
@@ -780,7 +848,7 @@ HB_ENTRY:
|
||||
PGRAMF(1) ; MAP RAM PAGE 1 INTO LOWER 32K
|
||||
|
||||
LD (HB_STKSAV),SP ; SAVE ORIGINAL STACK FRAME
|
||||
LD SP,8000H ; SETUP NEW STACK FRAME AT END OF BANK 1
|
||||
LD SP,8000H ; SETUP NEW STACK FRAME AT END OF HBIOS
|
||||
|
||||
CALL BIOS_DISPATCH ; CALL HBIOS FUNCTION DISPATCHER
|
||||
|
||||
@@ -797,7 +865,7 @@ HB_ENTRY:
|
||||
HB_STKSAV .DW 0 ; PREVIOUS STACK POINTER
|
||||
;
|
||||
HB_SLACK .EQU (HB_END - $)
|
||||
.ECHO "HBIOS space remaining: "
|
||||
.ECHO "STACK space remaining: "
|
||||
.ECHO HB_SLACK
|
||||
.ECHO " bytes.\n"
|
||||
;
|
||||
@@ -54,6 +54,7 @@ HDSK_MEDIA:
|
||||
;
|
||||
;
|
||||
HDSK_INIT:
|
||||
PRTS("HDSK: UNITS=4$")
|
||||
XOR A
|
||||
DEC A ; INITIAL STATUS IS NOT READY $FF
|
||||
LD (HDSK_STAT),A ; SAVE IT
|
||||
|
||||
@@ -81,6 +81,7 @@ IDE_MEDIA:
|
||||
;
|
||||
;
|
||||
IDE_INIT:
|
||||
PRTS("IDE:$")
|
||||
CALL IDE_RESET
|
||||
XOR A
|
||||
DEC A ; INITIAL STATUS IS NOT READY $FF
|
||||
|
||||
@@ -62,6 +62,7 @@ KBD_IDLE .DB 0 ; IDLE COUNT
|
||||
;__________________________________________________________________________________________________
|
||||
;
|
||||
KBD_INIT:
|
||||
PRTS("KBD:$")
|
||||
LD A,KBD_DEFRPT ; GET DEFAULT REPEAT RATE
|
||||
LD (KBD_REPEAT),A ; SAVE IT
|
||||
LD A,KBD_DEFSTATE ; GET DEFAULT STATE
|
||||
|
||||
@@ -182,7 +182,7 @@ os.bin: $(CPBIN) $(DOSBIN) cbios.bin
|
||||
rom0.bin: pgzero.bin bootrom.bin syscfg.bin loader.bin romfill.bin dbgmon.bin os.bin hbfill.bin
|
||||
copy /B $(subst $(SPACE),+,$(^)) $@
|
||||
|
||||
rom1.bin: pgzero.bin bootrom.bin syscfg.bin loader.bin bnk1.bin
|
||||
rom1.bin: pgzero.bin bootrom.bin syscfg.bin loader.bin hbios.bin
|
||||
copy /B $(subst $(SPACE),+,$(^)) $@
|
||||
|
||||
$(OUTDIR)\$(ROMNAME).rom: rom0.bin rom1.bin $(ROMDISKFILES) $(OUTDIR)\$(ROMNAME).sys
|
||||
@@ -191,7 +191,7 @@ $(OUTDIR)\$(ROMNAME).rom: rom0.bin rom1.bin $(ROMDISKFILES) $(OUTDIR)\$(ROMNAME)
|
||||
$(CPMCP) -f rom$(ROMSIZE)KB RomDisk.tmp ../Output/$(ROMNAME).sys 0:$(SYS).sys
|
||||
copy /B rom0.bin+rom1.bin+RomDisk.tmp $@
|
||||
|
||||
$(OUTDIR)\$(ROMNAME).com: bootapp.bin syscfg.bin loader.bin bnk1.bin dbgmon.bin os.bin
|
||||
$(OUTDIR)\$(ROMNAME).com: bootapp.bin syscfg.bin loader.bin hbios.bin dbgmon.bin os.bin
|
||||
copy /B $(subst $(SPACE),+,$(^)) $@
|
||||
|
||||
$(OUTDIR)\$(ROMNAME).sys: prefix.bin os.bin
|
||||
|
||||
@@ -23,7 +23,14 @@ DATAP: .EQU BASE+24
|
||||
;_________________________________________________________________________
|
||||
; BOARD INITIALIZATION
|
||||
;_________________________________________________________________________
|
||||
|
||||
;
|
||||
N8V_INIT:
|
||||
PRTS("N8V:$")
|
||||
LD HL,CHARSET
|
||||
CALL N8V_VDAINI
|
||||
XOR A
|
||||
RET
|
||||
;
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
; This routine is called from bnk1.asm to init the TMS9918 ;
|
||||
; If HL is non-zero, it specifies the character bitmaps to load ;
|
||||
@@ -269,7 +276,8 @@ BAN_LOOP3:
|
||||
BAN_DONE3:
|
||||
; fall through...
|
||||
|
||||
CALL PPK_INIT
|
||||
; WBW: PPK_INIT SHOULD ONLY BE CALLED FROM HBIOS INIT
|
||||
; CALL PPK_INIT
|
||||
; fall through...
|
||||
|
||||
XOR A
|
||||
|
||||
@@ -123,6 +123,13 @@ PPIDE_MEDIA:
|
||||
;
|
||||
;
|
||||
PPIDE_INIT:
|
||||
PRTS("PPIDE: IO=0x$")
|
||||
LD A,IDELSB
|
||||
CALL PRTHEXBYTE
|
||||
PRTS(" UNITS=2$")
|
||||
#IF (PPIDESLOW)
|
||||
PRTS(" SLOW$")
|
||||
#ENDIF
|
||||
CALL PPIDE_RESET
|
||||
XOR A
|
||||
DEC A ; INITIAL STATUS IS NOT READY $FF
|
||||
|
||||
@@ -69,6 +69,7 @@ PPK_IDLE .DB 0 ; IDLE COUNT
|
||||
;__________________________________________________________________________________________________
|
||||
;
|
||||
PPK_INIT:
|
||||
PRTS("PPK:$")
|
||||
CALL PPK_INITPORT ; SETS PORT C SO CAN INPUT AND OUTPUT
|
||||
|
||||
LD A,PPK_DEFRPT ; GET DEFAULT REPEAT RATE
|
||||
|
||||
@@ -36,6 +36,7 @@ PPP_CMDRESET .EQU $F0 ; SOFT RESET PROPELLER
|
||||
; GLOBAL PARPORTPROP INITIALIZATION
|
||||
;
|
||||
PPP_INIT:
|
||||
PRTS("PPP:$")
|
||||
LD A,$9B ; PPI MODE 0, ALL PINS INPUT
|
||||
OUT (PPIX),A ; SEND IT
|
||||
|
||||
|
||||
@@ -7,6 +7,7 @@
|
||||
; GLOBAL PARPORTPROP INITIALIZATION
|
||||
;
|
||||
PRP_INIT:
|
||||
PRTS("PRPSD:$")
|
||||
CALL PRPSD_INIT ; SD CARD INITIALIZATION
|
||||
|
||||
RET
|
||||
|
||||
@@ -99,6 +99,7 @@ SD_MEDIA:
|
||||
RET
|
||||
;
|
||||
SD_INIT:
|
||||
PRTS("SD:$")
|
||||
LD A,20H ; PUT RTC LATCH TO IDLE
|
||||
OUT (RTC),A
|
||||
#IF (PPISD)
|
||||
|
||||
@@ -129,13 +129,6 @@ IDEMODE_DIDE .EQU 2 ; DUAL IDE
|
||||
;
|
||||
PPIDEMODE_STD .EQU 1 ; STANDARD N8VEM PARALLEL PORT
|
||||
PPIDEMODE_DIO3 .EQU 2 ; DISKIO V3 PARALLEL PORT
|
||||
;;
|
||||
;; CONSOLE DEVICE CHOICES FOR LDRCON AND DBGCON IN CONFIG SETTINGS
|
||||
;;
|
||||
;CON_UART .EQU 1
|
||||
;CON_VDU .EQU 2
|
||||
;CON_PRP .EQU 3
|
||||
;CON_PPP .EQU 4
|
||||
;
|
||||
; CONSOLE TERMINAL TYPE CHOICES
|
||||
;
|
||||
@@ -173,7 +166,7 @@ SYS .EQU BLD_SYS
|
||||
#IF (SYS == SYS_CPM)
|
||||
DOS .EQU DOS_BDOS
|
||||
CP .EQU CP_CCP
|
||||
#DEFINE OSLBL "CP/M-80 2.2C"
|
||||
#DEFINE OSLBL "CP/M-80 2.2"
|
||||
#ENDIF
|
||||
;
|
||||
#IF (SYS == SYS_ZSYS)
|
||||
@@ -660,3 +653,13 @@ CCPSIZ: .EQU 00800H
|
||||
.ECHO PPPLBL
|
||||
.ECHO HISTLBL
|
||||
.ECHO "\n"
|
||||
;
|
||||
; HELPER MACROS
|
||||
;
|
||||
#DEFINE PRTC(C) CALL PRTCH \ .DB C ; PRINT CHARACTER C TO CONSOLE - PRTC('X')
|
||||
#DEFINE PRTS(S) CALL PRTSTRD \ .DB S ; PRINT STRING S TO CONSOLE - PRTD("HELLO")
|
||||
#DEFINE PRTX(X) CALL PRTSTRI \ .DW X ; PRINT STRING AT ADDRESS X TO CONSOLE - PRTI(STR_HELLO)
|
||||
;
|
||||
#DEFINE XIO_PRTC(C) CALL XIO_PRTCH \ .DB C ; PRINT CHARACTER C TO CONSOLE - PRTC('X')
|
||||
#DEFINE XIO_PRTS(S) CALL XIO_PRTSTRD \ .DB S ; PRINT STRING S TO CONSOLE - PRTD("HELLO")
|
||||
#DEFINE XIO_PRTX(X) CALL XIO_PRTSTRI \ .DW X ; PRINT STRING AT ADDRESS X TO CONSOLE - PRTI(STR_HELLO)
|
||||
|
||||
@@ -8,6 +8,7 @@
|
||||
; - SOME FUNCTIONS ARE NOT IMPLEMENTED!!!
|
||||
;
|
||||
TTY_INIT:
|
||||
PRTS("TTY:$")
|
||||
JR TTY_INI ; REUSE THE INI FUNCTION BELOW
|
||||
;
|
||||
;
|
||||
|
||||
@@ -12,29 +12,28 @@ UART0_DIV .EQU (1843200 / (16 * BAUDRATE))
|
||||
; B: FUNCTION (IN)
|
||||
; C: CHARACTER (IN/OUT)
|
||||
; E: DEVICE/UNIT (IN)
|
||||
;
|
||||
;
|
||||
;
|
||||
UART_DISPATCH:
|
||||
#IF (PLATFORM == PLT_N8)
|
||||
LD A,C ; GET DEVICE/UNIT
|
||||
AND $0F ; ISOLATE UNIT
|
||||
JR Z,UART0
|
||||
JP Z,UART0
|
||||
DEC A
|
||||
JR Z,UART1
|
||||
JP Z,UART1
|
||||
CALL PANIC
|
||||
#ENDIF
|
||||
;
|
||||
UART0:
|
||||
; LD C,E ; FIX: COMPAT W/OLD DRIVERS, GET CHAR INTO C
|
||||
LD A,B ; GET REQUESTED FUNCTION
|
||||
AND $0F ; ISOLATE SUB-FUNCTION
|
||||
JR Z,UART0_IN
|
||||
JP Z,UART0_IN
|
||||
DEC A
|
||||
JR Z,UART0_OUT
|
||||
JP Z,UART0_OUT
|
||||
DEC A
|
||||
JR Z,UART0_IST
|
||||
JP Z,UART0_IST
|
||||
DEC A
|
||||
JR Z,UART0_OST
|
||||
JP Z,UART0_OST
|
||||
CALL PANIC
|
||||
;
|
||||
;
|
||||
@@ -42,14 +41,49 @@ UART0:
|
||||
UART_INIT:
|
||||
#IF (PLATFORM == PLT_N8)
|
||||
; ASCI0
|
||||
PRTS("ASCI0: IO=0x$")
|
||||
LD A,CPU_TDR0
|
||||
CALL PRTHEXBYTE
|
||||
CALL PC_COMMA
|
||||
LD A,CPU_RDR0
|
||||
CALL PRTHEXBYTE
|
||||
PRTS(" BAUD=$")
|
||||
#IF ((BAUDRATE / 100) > 0)
|
||||
LD HL,BAUDRATE / 100
|
||||
CALL PRTDEC
|
||||
#ENDIF
|
||||
#IF ((BAUDRATE % 100) < 10)
|
||||
PRTC("0")
|
||||
#ENDIF
|
||||
LD HL,BAUDRATE % 100
|
||||
CALL PRTDEC
|
||||
|
||||
LD A,66H
|
||||
OUT0 (CPU_ASEXT0),A
|
||||
LD A,64H
|
||||
OUT0 (CPU_CNTLA0),A
|
||||
LD A,Z180_CNTLB0
|
||||
OUT0 (CPU_CNTLB0),A
|
||||
|
||||
|
||||
; ASCI1
|
||||
CALL NEWLINE
|
||||
PRTS("ASCI1: IO=0x$")
|
||||
LD A,CPU_TDR1
|
||||
CALL PRTHEXBYTE
|
||||
CALL PC_COMMA
|
||||
LD A,CPU_RDR1
|
||||
CALL PRTHEXBYTE
|
||||
PRTS(" BAUD=$")
|
||||
#IF ((BAUDRATE / 100) > 0)
|
||||
LD HL,BAUDRATE / 100
|
||||
CALL PRTDEC
|
||||
#ENDIF
|
||||
#IF ((BAUDRATE % 100) < 10)
|
||||
PRTC("0")
|
||||
#ENDIF
|
||||
LD HL,BAUDRATE % 100
|
||||
CALL PRTDEC
|
||||
|
||||
LD A,66H
|
||||
OUT0 (CPU_ASEXT1),A
|
||||
LD A,64H
|
||||
@@ -57,6 +91,22 @@ UART_INIT:
|
||||
LD A,Z180_CNTLB1
|
||||
OUT0 (CPU_CNTLB1),A
|
||||
#ELSE
|
||||
PRTS("UART0: IO=0x$")
|
||||
LD A,SIO_BASE
|
||||
CALL PRTHEXBYTE
|
||||
PRTS(" BAUD=$")
|
||||
#IF ((BAUDRATE / 100) > 0)
|
||||
LD HL,BAUDRATE / 100
|
||||
CALL PRTDEC
|
||||
#ENDIF
|
||||
#IF ((BAUDRATE % 100) < 10)
|
||||
PRTC("0")
|
||||
#ENDIF
|
||||
LD HL,BAUDRATE % 100
|
||||
CALL PRTDEC
|
||||
|
||||
CALL PC_SPACE
|
||||
|
||||
LD A,80H
|
||||
OUT (SIO_LCR),A ; DLAB ON
|
||||
LD A,UART0_DIV
|
||||
@@ -65,8 +115,9 @@ UART_INIT:
|
||||
OUT (SIO_DLM),A ; SET DIVISOR (MS)
|
||||
|
||||
LD B,03H ; B = DEFAULT SETTING FOR MCR (DTR + RTS)
|
||||
|
||||
|
||||
#IF (UARTAFC)
|
||||
PRTS(" AFC$")
|
||||
LD A,$55 ; TEST VALUE
|
||||
OUT (SIO_SCR),A ; SET SCRATCH REG TO TEST VALUE
|
||||
LD A,0BFH
|
||||
@@ -76,12 +127,12 @@ UART_INIT:
|
||||
JR NZ,UART_AFC1 ; NZ, HAVE EFR, DO IT
|
||||
SET 5,B ; ENABLE AUTO FLOW CONTROL
|
||||
JR UART_AFC2
|
||||
UART_AFC1:
|
||||
UART_AFC1:
|
||||
LD A,0C0H ; ENABLE CTS/RTS FLOW CONTROL
|
||||
OUT (SIO_EFR),A ; SAVE IT
|
||||
UART_AFC2:
|
||||
#ENDIF
|
||||
|
||||
|
||||
LD A,03H
|
||||
OUT (SIO_LCR),A ; DLAB OFF, 8 DATA, 1 STOP, NO PARITY
|
||||
|
||||
@@ -89,8 +140,10 @@ UART_AFC2:
|
||||
OUT (SIO_MCR),A ; SAVE IT
|
||||
|
||||
#IF (UARTFIFO)
|
||||
LD A,07H ; ENABLE AND RESET FIFOS
|
||||
OUT (SIO_FCR),A
|
||||
; LD A,07H ; ENABLE AND RESET FIFOS
|
||||
LD A,01H ; ENABLE AND RESET FIFOS
|
||||
OUT (SIO_FCR),A ; ENABLE FIFOS
|
||||
PRTS(" FIFO$")
|
||||
#ENDIF
|
||||
|
||||
#ENDIF
|
||||
@@ -103,7 +156,7 @@ UART0_IN:
|
||||
OR A
|
||||
JR Z,UART0_IN
|
||||
#IF (PLATFORM == PLT_N8)
|
||||
IN0 A,(CPU_RDR0) ; READ THE CHAR FROM THE UART
|
||||
IN0 A,(CPU_RDR0) ; READ THE CHAR FROM THE UART
|
||||
#ELSE
|
||||
IN A,(SIO_RBR) ; READ THE CHAR FROM THE UART
|
||||
#ENDIF
|
||||
@@ -118,7 +171,7 @@ UART0_IST:
|
||||
IN0 A,(CPU_STAT0)
|
||||
AND 70H ; PARITY, FRAMING, OR OVERRUN ERROR
|
||||
JR Z,UART0_IST1 ; ALL IS WELL, CHECK FOR DATA
|
||||
|
||||
|
||||
; CLEAR ERROR(S) OR NOTHING FURTHER CAN BE RECEIVED!!!
|
||||
IN0 A,(CPU_CNTLA0)
|
||||
RES 3,A ; CLEAR EFR (ERROR FLAG RESET)
|
||||
@@ -126,7 +179,7 @@ UART0_IST:
|
||||
|
||||
UART0_IST1: ; CHECK FOR STAT0.RDRF (DATA READY)
|
||||
IN0 A,(CPU_STAT0) ; READ LINE STATUS REGISTER
|
||||
AND $80 ; TEST IF DATA IN RECEIVE BUFFER
|
||||
AND $80 ; TEST IF DATA IN RECEIVE BUFFER
|
||||
#ELSE
|
||||
IN A,(SIO_LSR) ; READ LINE STATUS REGISTER
|
||||
AND $01 ; TEST IF DATA IN RECEIVE BUFFER
|
||||
@@ -196,7 +249,7 @@ UART1_IST:
|
||||
IN0 A,(CPU_STAT1)
|
||||
AND 70H ; PARITY, FRAMING, OR OVERRUN ERROR
|
||||
JR Z,UART1_IST1 ; ALL IS WELL, CHECK FOR DATA
|
||||
|
||||
|
||||
; CLEAR ERROR(S) OR NOTHING FURTHER CAN BE RECEIVED!!!
|
||||
IN0 A,(CPU_CNTLA1)
|
||||
RES 3,A ; CLEAR EFR (ERROR FLAG RESET)
|
||||
@@ -204,7 +257,7 @@ UART1_IST:
|
||||
|
||||
UART1_IST1: ; CHECK FOR STAT0.RDRF (DATA READY)
|
||||
IN0 A,(CPU_STAT1) ; READ LINE STATUS REGISTER
|
||||
AND $80 ; TEST IF DATA IN RECEIVE BUFFER
|
||||
AND $80 ; TEST IF DATA IN RECEIVE BUFFER
|
||||
JP Z,CIO_IDLE ; DO IDLE PROCESSING AND RETURN
|
||||
XOR A
|
||||
INC A ; SIGNAL CHAR READY, A = 1
|
||||
|
||||
@@ -88,6 +88,73 @@ NEWLINE:
|
||||
CALL PC_LF
|
||||
RET
|
||||
;
|
||||
; PRINT A CHARACTER REFERENCED BY POINTER AT TOP OF STACK
|
||||
; USAGE:
|
||||
; CALL PRTCH
|
||||
; .DB 'X'
|
||||
;
|
||||
PRTCH:
|
||||
EX (SP),HL
|
||||
PUSH AF
|
||||
LD A,(HL)
|
||||
CALL COUT
|
||||
POP AF
|
||||
INC HL
|
||||
EX (SP),HL
|
||||
RET
|
||||
;
|
||||
; PRINT A STRING AT ADDRESS SPECIFIED IN HL
|
||||
; STRING MUST BE TERMINATED BY '$'
|
||||
; USAGE:
|
||||
; LD HL,MYSTR
|
||||
; CALL PRTSTR
|
||||
; ...
|
||||
; MYSTR: .DB "HELLO$"
|
||||
;
|
||||
PRTSTR:
|
||||
LD A,(HL)
|
||||
INC HL
|
||||
CP '$'
|
||||
RET Z
|
||||
CALL COUT
|
||||
JR PRTSTR
|
||||
;
|
||||
; PRINT A STRING DIRECT: REFERENCED BY POINTER AT TOP OF STACK
|
||||
; STRING MUST BE TERMINATED BY '$'
|
||||
; USAGE:
|
||||
; CALL PRTSTR
|
||||
; .DB "HELLO$"
|
||||
; ...
|
||||
;
|
||||
PRTSTRD:
|
||||
EX (SP),HL
|
||||
PUSH AF
|
||||
CALL PRTSTR
|
||||
POP AF
|
||||
EX (SP),HL
|
||||
RET
|
||||
;
|
||||
; PRINT A STRING INDIRECT: REFERENCED BY INDIRECT POINTER AT TOP OF STACK
|
||||
; STRING MUST BE TERMINATED BY '$'
|
||||
; USAGE:
|
||||
; CALL PRTSTRI(MYSTRING)
|
||||
; MYSTRING .DB "HELLO$"
|
||||
;
|
||||
PRTSTRI:
|
||||
EX (SP),HL
|
||||
PUSH AF
|
||||
LD A,(HL)
|
||||
INC HL
|
||||
PUSH HL
|
||||
LD H,(HL)
|
||||
LD L,A
|
||||
CALL PRTSTR
|
||||
POP HL
|
||||
INC HL
|
||||
POP AF
|
||||
EX (SP),HL
|
||||
RET
|
||||
;
|
||||
; PRINT THE HEX BYTE VALUE IN A
|
||||
;
|
||||
PRTHEXBYTE:
|
||||
@@ -378,8 +445,8 @@ LDELAY:
|
||||
RET
|
||||
;
|
||||
; MULTIPLY 8-BIT VALUES
|
||||
; IN: MULTIPLY H WITH E
|
||||
; OUT: HL = RESULT
|
||||
; IN: MULTIPLY H BY E
|
||||
; OUT: HL = RESULT, E = 0, B = 0
|
||||
;
|
||||
MULT8:
|
||||
LD D,0
|
||||
@@ -393,6 +460,33 @@ MULT8_NOADD:
|
||||
DJNZ MULT8_LOOP
|
||||
RET
|
||||
;
|
||||
; PRINT VALUE OF HL IN DECIMAL WITH LEADING ZERO SUPPRESSION
|
||||
;
|
||||
PRTDEC:
|
||||
LD E,'0'
|
||||
LD BC,-10000
|
||||
CALL PRTDEC1
|
||||
LD BC,-1000
|
||||
CALL PRTDEC1
|
||||
LD BC,-100
|
||||
CALL PRTDEC1
|
||||
LD C,-10
|
||||
CALL PRTDEC1
|
||||
LD E,0
|
||||
LD C,-1
|
||||
PRTDEC1:
|
||||
LD A,'0' - 1
|
||||
PRTDEC2:
|
||||
INC A
|
||||
ADD HL,BC
|
||||
JR C,PRTDEC2
|
||||
SBC HL,BC
|
||||
CP E
|
||||
RET Z
|
||||
LD E,0
|
||||
CALL COUT
|
||||
RET
|
||||
;
|
||||
;==================================================================================================
|
||||
; DSKY KEYBOARD ROUTINES
|
||||
;==================================================================================================
|
||||
|
||||
@@ -28,6 +28,7 @@ VDU_DATA .EQU 0F3h ; VDU DATA REGISTER
|
||||
;======================================================================
|
||||
;
|
||||
VDU_INIT:
|
||||
PRTS("VDU:$")
|
||||
CALL VDU_CRTINIT ; INIT SY6845 VDU CHIP
|
||||
|
||||
VDU_RESET:
|
||||
|
||||
76
trunk/Source/xio.asm
Normal file
76
trunk/Source/xio.asm
Normal file
@@ -0,0 +1,76 @@
|
||||
;___XIO________________________________________________________________________________________________________________
|
||||
;
|
||||
; DIRECT SERIAL I/O
|
||||
;
|
||||
; PROVIDES INTERFACE TO PLATFORM BASE SERIAL I/O DEVICE
|
||||
; ALLOWS USER MESSAGING/INTERACTION PRIOR TO AND DURING HBIOS INIT
|
||||
;______________________________________________________________________________________________________________________
|
||||
;
|
||||
XIO_INIT: ; MINIMAL UART INIT
|
||||
#IF (PLATFORM == PLT_N8)
|
||||
; ASCI0
|
||||
LD A,66H
|
||||
OUT0 (CPU_ASEXT0),A
|
||||
LD A,64H
|
||||
OUT0 (CPU_CNTLA0),A
|
||||
LD A,Z180_CNTLB0
|
||||
OUT0 (CPU_CNTLB0),A
|
||||
RET
|
||||
#ELSE
|
||||
XIO_DIV .EQU (1843200 / (16 * BAUDRATE))
|
||||
|
||||
LD A,$80 ; LCR := DLAB ON
|
||||
OUT (SIO_LCR),A ; SET LCR
|
||||
LD A,XIO_DIV ; BAUD RATE DIVISOR (LSB)
|
||||
OUT (SIO_DLL),A ; SET DIVISOR (LSB)
|
||||
XOR A ; BAUD RATE DIVISOR (MSB), ALWAYS 0
|
||||
OUT (SIO_DLM),A ; SET DIVISOR (MSB)
|
||||
LD A,03H ; VALUE FOR LCR AND MCR
|
||||
OUT (SIO_LCR),A ; LCR := 3, DLAB OFF, 8 DATA, 1 STOP, NO PARITY
|
||||
OUT (SIO_MCR),A ; MCR := 3, DTR ON, RTS ON
|
||||
LD A,6 ; DISABLE & RESET FIFO'S
|
||||
OUT (SIO_FCR),A ; DO IT
|
||||
RET
|
||||
#ENDIF
|
||||
;
|
||||
XIO_CRLF: ; OUTPUT A NEWLINE
|
||||
LD A,13 ; A = CR
|
||||
CALL XIO_OUTC ; WRITE IT
|
||||
LD A,10 ; A = LF
|
||||
JR XIO_OUTC ; WRITE IT
|
||||
;
|
||||
XIO_SPACE: ; OUTPUT A SPACE CHARACTER
|
||||
LD A,' '
|
||||
JR XIO_OUTC
|
||||
;
|
||||
XIO_DOT: ; OUTPUT A DOT (MARK PROGRESS)
|
||||
LD A,'.'
|
||||
;
|
||||
XIO_OUTC: ; OUTPUT BYTE IN A
|
||||
#IF (PLATFORM == PLT_N8)
|
||||
PUSH AF ; SAVE INCOMING BYTE
|
||||
XIO_OUTC1:
|
||||
IN0 A,(CPU_STAT0)
|
||||
AND $02
|
||||
JR Z,XIO_OUTC1
|
||||
POP AF
|
||||
OUT0 (CPU_TDR0),A
|
||||
RET
|
||||
#ELSE
|
||||
PUSH AF ; SAVE INCOMING BYTE
|
||||
XIO_OUTC1:
|
||||
IN A,(SIO_LSR) ; READ LINE STATUS REGISTER
|
||||
AND $20 ; ISOLATE THRE
|
||||
JR Z,XIO_OUTC1 ; LOOP TILL READY (EMPTY)
|
||||
POP AF ; RECOVER BYTE TO WRITE
|
||||
OUT (SIO_THR),A ; WRITE THE CHAR TO UART
|
||||
RET
|
||||
#ENDIF
|
||||
;
|
||||
XIO_OUTS: ; OUTPUT '$' TERMINATED STRING AT ADDRESS IN HL
|
||||
LD A,(HL) ; GET NEXT BYTE
|
||||
CP '$' ; END OF STRING?
|
||||
RET Z ; YES, GET OUT
|
||||
CALL XIO_OUTC ; OTHERWISE, WRITE IT
|
||||
INC HL ; POINT TO NEXT BYTE
|
||||
JR XIO_OUTS ; AND LOOP
|
||||
Reference in New Issue
Block a user