#IF CRTACT
;
; BIOS IS CONFIGURED TO AUTO ACTIVATE CRT DEVICE.  FIRST,
; CHECK TO SEE IF WE HAVE A VALID CRT DEVICE TO USE.
;
	LD	A,(CB_CRTDEV)		; GET THE CRT DEVICE
	INC	A			; INCREMENT TO TEST FOR $FF
	JR	Z,INITSYS3		; IF NO CRT DEVICE, BYPASS CONSOLE SWITCH
;
; IF PLATFORM HAS A CONFIG JUMPER, CHECK TO SEE IF IT IS JUMPERED.
; IF SO, BYPASS SWITCH TO CRT CONSOLE (FAILSAFE MODE)
;
#IF ((PLATFORM != PLT_N8) & (PLATFORM != PLT_MK4) & (PLATFORM != PLT_RC) & (PLATFORM != PLT_RC180) & (PLATFORM != PLT_EZZ80))
	IN	A,(RTC)			; 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

TMS_VDARES:
	LD	DE,0			; ROW = 0, COL = 0
	CALL	TMS_XY			; SEND CURSOR TO TOP LEFT
	LD	A,' '			; BLANK THE SCREEN              <<<<<<<<<<< change to LD A,'*'
	LD	DE,TMS_ROWS * TMS_COLS	; FILL ENTIRE BUFFER
	CALL	TMS_FILL		; DO IT
	LD	DE,0			; ROW = 0, COL = 0
	CALL	TMS_XY			; SEND CURSOR TO TOP LEFT
	XOR	A
	DEC	A
	LD	(TMS_CURSAV),A
	CALL	TMS_SETCUR		; SET CURSOR
	
	XOR	A			; SIGNAL SUCCESS
	RET

INITSYS3:
;
	LD	A,(CB_CRTDEV)		; GET CRT DISPLAY DEVICE                ***** add this line
	LD	(CB_CONDEV),A		; SAVE IT AS ACTIVE CONSOLE DEVICE      ***** and this line
	CALL	PRTSUM			; PRINT UNIT/DEVICE SUMMARY TABLE
;
; CHAIN TO OS LOADER

INITSYS3:
;
	LD	A,(CB_CRTDEV)		; GET CRT DISPLAY DEVICE                ***** add this line
	LD	(CB_CONDEV),A		; SAVE IT AS ACTIVE CONSOLE DEVICE      ***** and this line
	CALL	PRTSUM			; PRINT UNIT/DEVICE SUMMARY TABLE
	
        CALL	NEWLINE2		; ****** add this new line
	PRTX(STR_PLATFORM)		; ****** add this new line
	PRTS(" @ $")			; ****** add this new line
	LD	HL,(CB_CPUKHZ)		; ****** add this new line
	CALL	PRTD3M			; ****** add this new line
	PRTS("MHz$")			; ****** add this new line


; CHAIN TO OS LOADER

;	0 means	Z80
;	1 means Z180 - 80180
;	2 means Z180 S-class, SL1960 version
;	3 means Z180 advanced S-class, with Baud Rate Generator
;	Courtesy John Coffman UnaBIOS

cpu_type:
	ld	hl,0		; L = 0 means Z80
	ld	de,$0506	; 5 x 6
	mlt	de		; DE = 30 if Z180
	ld	a,e		; check if multiply happened
	cp	30
	jr	nz,cpux		; it is a Z80 if != 30

	inc	l		; flag Z180
        out0    (Z180_ASTC1L),d	; D = 0 at this point

        in0     a,(Z180_FRC)    ; supposedly only on S-class
        inc     a		; FF or 00 -> 0 or 1 (weak S-class or higher)
	add	a,l
	ld	l,a		; result to L and A

        in0     a,(Z180_ASTC1L) ; counter reg
        inc     a		; FF or 00 -> 0 or 1 (super-S)
	add	a,l
	ld	l,a
cpux:	ld	a,$30
	add	a,l
	PRTS(" Type: $")
	CALL	COUT