MirrorRepos
/
RomWBW
mirror of https://github.com/wwarthen/RomWBW.git
1
0
Fork 1
Code Issues Projects Releases Wiki Activity
Browse Source

Reintegrate wbw -> trunk

pull/3/head
wayne 13 years ago
parent
8450dca0b9
commit
a4920532bf
29 changed files with 4180 additions and 150 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Split View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 2
      DiskImg/Build.cmd
  2. 24
      DiskImg/Build.ps1
  3. 3659
      DiskImg/Disk.img
  4. BIN
      Doc/Source/RomWBW Architecture.docx
  5. 6
      Source/Build.ps1
  6. 8
      Source/ansi.asm
  7. 63
      Source/bootapp.asm
  8. 53
      Source/bootrom.asm
  9. 12
      Source/cbios.asm
  10. 27
      Source/config_n8_2312.asm
  11. 1
      Source/cvdu.asm
  12. 5
      Source/fd.asm
  13. 154
      Source/hbios.asm
  14. 1
      Source/hdsk.asm
  15. 1
      Source/ide.asm
  16. 1
      Source/kbd.asm
  17. 4
      Source/makefile
  18. 12
      Source/n8v.asm
  19. 7
      Source/ppide.asm
  20. 1
      Source/ppk.asm
  21. 1
      Source/ppp.asm
  22. 1
      Source/prp.asm
  23. 1
      Source/sd.asm
  24. 19
      Source/std.asm
  25. 1
      Source/tty.asm
  26. 71
      Source/uart.asm
  27. 98
      Source/util.asm
  28. 1
      Source/vdu.asm
  29. 76
      Source/xio.asm

2
DiskImg/Build.cmd
View File

@ -1,4 +1,6 @@
@echo off
PowerShell .\Build.ps1 %*
goto :eof
setlocal
set path=..\tools\cpmtools;%path%

24
DiskImg/Build.ps1
View File

@ -9,16 +9,30 @@ $ImgFile = "Disk.img"
$Blank = ([byte[]](0xE5) * (128KB * 65))
"Creating work file..."
Set-Content -Value $Blank -Encoding byte -Path Blank.img
"Creating output file..."
Set-Content -Path $ImgFile -Value $null
if (!(Test-Path('Blank.img'))) {Set-Content -Value $Blank -Encoding byte -Path 'Blank.img'}
"Adding files to partition 0..."
copy Blank.img hd0.tmp
if (Test-Path ('hd0\*')) {cpmcp -f hd0 hd0.tmp hd0/*.* 0:}
copy /b hd*.tmp Disk.img
"Adding files to partition 1..."
copy Blank.img hd1.tmp
if (Test-Path ('hd1\*')) {cpmcp -f hd0 hd1.tmp hd1/*.* 0:}
"Adding files to partition 2..."
copy Blank.img hd2.tmp
if (Test-Path ('hd2\*')) {cpmcp -f hd0 hd2.tmp hd2/*.* 0:}
"Adding files to partition 3..."
copy Blank.img hd3.tmp
if (Test-Path ('hd3\*')) {cpmcp -f hd0 hd3.tmp hd3/*.* 0:}
"Adding slices to image..."
#gc hd0.tmp -Enc Byte -Read 512 | Add-Content -Enc Byte $ImgFile
#gc hd0.tmp -Enc Byte -Read 10240 | sc x.x -Enc Byte
&$env:COMSPEC /c copy /b hd*.tmp $ImgFile
Remove-Item *.tmp
return

3659
DiskImg/Disk.img
View File

File diff suppressed because one or more lines are too long

BIN
Doc/Source/RomWBW Architecture.docx
View File

Binary file not shown.

6
Source/Build.ps1
View File

@ -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

8
Source/ansi.asm
View File

@ -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
;

63
Source/bootapp.asm
View File

@ -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!

53
Source/bootrom.asm
View File

@ -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

12
Source/cbios.asm
View File

@ -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

27
Source/config_n8_2312.asm
View File

@ -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)

1
Source/cvdu.asm
View File

@ -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

5
Source/fd.asm
View File

@ -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

154
Source/bnk1.asm → Source/hbios.asm
View File

@ -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,85 +23,152 @@
;
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:
LD (CONDEV),A ; SET THE ACTIVE CONSOLE DEVICE
#ENDIF
LD (CONDEV),A ; SET THE ACTIVE CONSOLE DEVICE
;
; PERFORM DEVICE INITIALIZATION
; DISPLAY THE POST-INITIALIZATION BANNER
;
CALL NEWLINE
CALL NEWLINE
PRTX(STR_BANNER)
CALL NEWLINE
;
RET
;
;==================================================================================================
; TABLE OF INITIALIZATION ENTRY POINTS
;==================================================================================================
;
HB_INITTBL:
#IF (UARTENABLE)
CALL UART_INIT
.DW UART_INIT
#ENDIF
#IF (VDUENABLE)
CALL VDU_INIT
.DW VDU_INIT
#ENDIF
#IF (CVDUENABLE)
CALL CVDU_INIT
.DW CVDU_INIT
#ENDIF
#IF (UPD7220ENABLE)
CALL UPD7220_INIT
.DW UPD7220_INIT
#ENDIF
#IF (N8VENABLE)
LD HL,CHARSET ; tell init to use built-in bitmaps
CALL N8V_VDAINI
.DW N8V_INIT
#ENDIF
#IF (PRPENABLE)
CALL PRP_INIT
.DW PRP_INIT
#ENDIF
#IF (PPPENABLE)
CALL PPP_INIT
.DW PPP_INIT
#ENDIF
#IF (DSKYENABLE)
CALL DSKY_INIT
.DW DSKY_INIT
#ENDIF
#IF (FDENABLE)
CALL FD_INIT
.DW FD_INIT
#ENDIF
#IF (IDEENABLE)
CALL IDE_INIT
.DW IDE_INIT
#ENDIF
#IF (PPIDEENABLE)
CALL PPIDE_INIT
.DW PPIDE_INIT
#ENDIF
#IF (SDENABLE)
CALL SD_INIT
.DW SD_INIT
#ENDIF
#IF (HDSKENABLE)
CALL HDSK_INIT
.DW HDSK_INIT
#ENDIF
#IF (PPKENABLE)
CALL PPK_INIT
.DW PPK_INIT
#ENDIF
#IF (KBDENABLE)
CALL KBD_INIT
.DW KBD_INIT
#ENDIF
#IF (TTYENABLE)
CALL TTY_INIT
.DW TTY_INIT
#ENDIF
#IF (ANSIENABLE)
CALL ANSI_INIT
.DW ANSI_INIT
#ENDIF
;
LD DE,STR_BANNER
CALL WRITESTR
;
RET
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"
;

1
Source/hdsk.asm
View File

@ -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

1
Source/ide.asm
View File

@ -81,6 +81,7 @@ IDE_MEDIA:
;
;
IDE_INIT:
PRTS("IDE:$")
CALL IDE_RESET
XOR A
DEC A ; INITIAL STATUS IS NOT READY $FF

1
Source/kbd.asm
View File

@ -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

4
Source/makefile
View File

@ -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

12
Source/n8v.asm
View File

@ -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

7
Source/ppide.asm
View File

@ -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

1
Source/ppk.asm
View File

@ -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

1
Source/ppp.asm
View File

@ -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

1
Source/prp.asm
View File

@ -7,6 +7,7 @@
; GLOBAL PARPORTPROP INITIALIZATION
;
PRP_INIT:
PRTS("PRPSD:$")
CALL PRPSD_INIT ; SD CARD INITIALIZATION
RET

1
Source/sd.asm
View File

@ -99,6 +99,7 @@ SD_MEDIA:
RET
;
SD_INIT:
PRTS("SD:$")
LD A,20H ; PUT RTC LATCH TO IDLE
OUT (RTC),A
#IF (PPISD)

19
Source/std.asm
View File

@ -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)

1
Source/tty.asm
View File

@ -8,6 +8,7 @@
; - SOME FUNCTIONS ARE NOT IMPLEMENTED!!!
;
TTY_INIT:
PRTS("TTY:$")
JR TTY_INI ; REUSE THE INI FUNCTION BELOW
;
;

71
Source/uart.asm
View File

@ -18,23 +18,22 @@ 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,6 +41,23 @@ 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
@ -50,6 +66,24 @@ UART_INIT:
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
@ -67,6 +117,7 @@ UART_INIT:
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
@ -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

98
Source/util.asm
View File

@ -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
;==================================================================================================

1
Source/vdu.asm
View File

@ -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
Source/xio.asm
View 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
Write Preview
Loading…
Cancel
Save