

start_trsdos	PUMP	DEVICE.console,ipldone$			; Report IPL done & splash 6.3.1 startup screen on console.

		DELAY	100					; Delay a bit, let this awesumness settle in a bit on user viewing display ;-)

		DATE.get	lsdosdate			; Put current date in IPL screen.
		TIME.get	lsdostime			; Put current time in IPL screen.

		PUMP	DEVICE.console,vt100_home$		; Cursor upper left corner.
		PUMP	DEVICE.console,vt100_clear$		; Clear video screen on terminal...make nice clean.
		PUMP	DEVICE.console,lsdos631$-4		; Show LS-DOS 6.3.1 LOGO.
		MVC	lsdos631$,zspace.VIDEO$,(splash$_len)	; Place a copy of this in video RAM also.

		DELAY	125

		ld	a,(quiet_default+1)			; Get original instruction at beginning of UART driver.
		ld	(U0DVR),a				; Stuff in driver to renable driver.

real_time_video	cls						; I just cannot get it to work correctly if I dont CLS.

		ld	a,(pump_switch_value)			; Get value to set pump switch to.
		ld	(pump_switch),a				; When pump switch is updated it uses this value.

		ld	a,(autoflg$)				; Get auto.
		cp	'y'					; Auto command available?
		IF_NE_BRANCH	no_auto

		ld	a,(safeipl$)				; Get safe flag.
		cp	'y'					; Are we in safe mode?
		IF_NE_BRANCH	run_auto				; Handle AUTO command? If safe mode no.
			
		PUMP	DEVICE.console,crlf+1	
		PUMP	DEVICE.console,runauto$			; Prompt, run AUTO?
		call	GET.yn					; Get response.
		cp	'y'
		IF_NE_BRANCH	no_auto				; If NO, skip AUTO COMMAND.

run_auto	ld	hl,0000h				; Recover pointer to INBUF$.
HLsav		equ	$-2					; For execution of INBUF$ pointer adjusted for '*'.
		GOTO	zCMNDI					; No return from zCMNDI -->* THE END *<-- were booted!

no_auto		PUMP	DEVICE.console,vt100_home$		; Cursor upper left corner.
		PUMP	DEVICE.console,vt100_clear$		; Clear video screen on terminal...make nice clean.
		
		locate.CURSOR 22,0

		ld	a,(session_cmd$)			; Get 1st char.
		cp	' '					; No command?
		IF_NE_BRANCH	session_cmd

		SYS_EXIT	0				; Normal system EXIT-->* THE END *<-- were booted!

session_cmd	ld	hl,session_cmd$				; Pointer to session driver.

		GOTO	zCMNDI					; No AUTO command, normal system EXIT-->* THE END *<-- were booted!

;		>* THE END *<