Browse Source

Cleanup

pull/48/head
Wayne Warthen 7 years ago
parent
commit
3a1e9f3b72
  1. 42
      Source/HBIOS/hbios.asm

42
Source/HBIOS/hbios.asm

@ -945,11 +945,13 @@ HB_START1: ; BNKCALL ARRIVES HERE, BUT NOW RUNNING IN RAM BANK
LD HL,MSG_HBVER LD HL,MSG_HBVER
CALL DSKY_SHOWSEG CALL DSKY_SHOWSEG
#ENDIF #ENDIF
#IF (WBWDEBUG=USEMIO) ; BUFFER OUTPUT UNTIL
;
#IF (WBWDEBUG == USEMIO) ; BUFFER OUTPUT UNTIL
CALL MIO_INIT ; WE GET TO BOOT MESSAGE CALL MIO_INIT ; WE GET TO BOOT MESSAGE
#ENDIF #ENDIF
; ;
#IF 0
;
; TEST DEBUG *************************************************************************************** ; TEST DEBUG ***************************************************************************************
; ;
PRTS("DEBUG-IVT$") PRTS("DEBUG-IVT$")
@ -959,6 +961,7 @@ HB_START1: ; BNKCALL ARRIVES HERE, BUT NOW RUNNING IN RAM BANK
; ;
; TEST DEBUG *************************************************************************************** ; TEST DEBUG ***************************************************************************************
; ;
#ENDIF
; ;
; DISCOVER CPU TYPE ; DISCOVER CPU TYPE
; ;
@ -1031,7 +1034,8 @@ HB_CPU1:
; ;
; PRE-CONSOLE INITIALIZATION ; PRE-CONSOLE INITIALIZATION
; ;
#IF 0
;
; TEST DEBUG *************************************************************************************** ; TEST DEBUG ***************************************************************************************
; ;
CALL NEWLINE CALL NEWLINE
@ -1039,6 +1043,8 @@ HB_CPU1:
; ;
; TEST DEBUG *************************************************************************************** ; TEST DEBUG ***************************************************************************************
; ;
#ENDIF
;
#IF (ASCIENABLE) #IF (ASCIENABLE)
CALL ASCI_PREINIT CALL ASCI_PREINIT
#ENDIF #ENDIF
@ -1054,12 +1060,17 @@ HB_CPU1:
#IF (PIO_4P | PIO_ZP) #IF (PIO_4P | PIO_ZP)
CALL PIO_PREINIT CALL PIO_PREINIT
#ENDIF #ENDIF
;
#IF 0
;
; TEST DEBUG *************************************************************************************** ; TEST DEBUG ***************************************************************************************
; ;
CALL NEWLINE CALL NEWLINE
CALL REGDMP CALL REGDMP
; ;
; TEST DEBUG *************************************************************************************** ; TEST DEBUG ***************************************************************************************
;
#ENDIF
; ;
DIAG(%01111111) DIAG(%01111111)
; ;
@ -1070,7 +1081,7 @@ HB_CPU1:
XOR A ; INITIALLY, FIRST SERIAL UNIT IS CONSOLE XOR A ; INITIALLY, FIRST SERIAL UNIT IS CONSOLE
LD (CB_CONDEV),A ; SAVE IT, ACTIVATES CONSOLE ON HBIOS LD (CB_CONDEV),A ; SAVE IT, ACTIVATES CONSOLE ON HBIOS
#IF (WBWDEBUG=USEMIO) ; OUTPUT ANY CACHED DEBUG TEXT
#IF (WBWDEBUG == USEMIO) ; OUTPUT ANY CACHED DEBUG TEXT
LD HL,MIOOUTPTR LD HL,MIOOUTPTR
LD E,(HL) LD E,(HL)
INC HL INC HL
@ -1088,6 +1099,8 @@ NXTMIO: LD A,(HL)
; CALL WRITESTR ; WRITESTR WILL WORK WILL ONLY PRINT UP TO FIRST $ ; CALL WRITESTR ; WRITESTR WILL WORK WILL ONLY PRINT UP TO FIRST $
#ENDIF #ENDIF
; ;
#IF 0
;
; TEST DEBUG *************************************************************************************** ; TEST DEBUG ***************************************************************************************
; ;
CALL NEWLINE2 CALL NEWLINE2
@ -1097,6 +1110,8 @@ NXTMIO: LD A,(HL)
; ;
; TEST DEBUG *************************************************************************************** ; TEST DEBUG ***************************************************************************************
; ;
#ENDIF
;
; ANNOUNCE HBIOS ; ANNOUNCE HBIOS
; ;
CALL NEWLINE2 CALL NEWLINE2
@ -2762,10 +2777,10 @@ SIZ_PIO .EQU $ - ORG_PIO
#INCLUDE "bcd.asm" #INCLUDE "bcd.asm"
#INCLUDE "decode.asm" #INCLUDE "decode.asm"
; ;
#IF WBWDEBUG=USEXIO
#IF (WBWDEBUG == USEXIO)
#INCLUDE "xio.asm" #INCLUDE "xio.asm"
#ENDIF #ENDIF
#IF WBWDEBUG=USEMIO
#IF (WBWDEBUG == USEMIO)
#INCLUDE "mio.asm" #INCLUDE "mio.asm"
#ENDIF #ENDIF
; ;
@ -3560,11 +3575,12 @@ COUT:
; ;
COUT1: COUT1:
; ;
#IF WBWDEBUG=USEXIO
#IF (WBWDEBUG == USEXIO)
LD A,E ; GET OUTPUT CHAR BACK TO ACCUM LD A,E ; GET OUTPUT CHAR BACK TO ACCUM
CALL XIO_OUTC ; OUTPUT VIA XIO CALL XIO_OUTC ; OUTPUT VIA XIO
#ENDIF #ENDIF
#IF WBWDEBUG=USEMIO
;
#IF (WBWDEBUG == USEMIO)
LD A,E LD A,E
CALL MIO_OUTC ; OUTPUT VIA MIO CALL MIO_OUTC ; OUTPUT VIA MIO
#ENDIF #ENDIF
@ -3598,10 +3614,11 @@ CIN:
; ;
CIN1: CIN1:
; ;
#IF WBWDEBUG=USEXIO
#IF (WBWDEBUG == USEXIO)
CALL XIO_INC ; GET CHAR CALL XIO_INC ; GET CHAR
#ENDIF #ENDIF
#IF WBWDEBUG=USEMIO
;
#IF (WBWDEBUG == USEMIO)
CALL MIO_INC ; GET CHAR CALL MIO_INC ; GET CHAR
#ENDIF #ENDIF
; ;
@ -3633,10 +3650,11 @@ CST:
; ;
CST1: CST1:
; ;
#IF WBWDEBUG=USEXIO
#IF (WBWDEBUG == USEXIO)
CALL XIO_IST ; GET STATUS CALL XIO_IST ; GET STATUS
#ENDIF #ENDIF
#IF WBWDEBUG=USEMIO
;
#IF (WBWDEBUG == USEMIO)
CALL MIO_IST ; GET STATUS CALL MIO_IST ; GET STATUS
#ENDIF #ENDIF
; ;

Loading…
Cancel
Save