;THIS IS AN ATTEMPT TO
			;FORCE THE 1990 REAL-TIME CLOCK
			;TO KEEP INITIALIZING IT'S SELF
			;IN AN ENDLESS LOOP

BASE	EQU	48H	;BASE I/O PORT ADDRESS
GRPSEL	EQU	BASE+7	;PORT ADDRESS OF GROUP SELECT PORT
GROUP0	EQU	0	;FOR GROUP 0 SELECTION
CLK	EQU	BASE+2
C2	EQU	10H
STB	EQU	20H
			;END OF EQUATES
BEGIN	ORG	100H
LOOP	MVI A,	GROUP0	;FIX GROUP
	OUT	GRPSEL	;SELECT GROUP 0
	MVI A,	C2	;FIX CONTROL
	OUT	CLK	;OUTPUT TO CLOCK
	NOP		;DELAY
	NOP
	NOP
	ADI	STB	;CHANGE STROBE TO HIGH
	OUT	CLK	;OUTPUT AGAIN
	NOP		;DELAY
	NOP
	NOP
	SUI	STB	;CHANGE STROBE BACK TO LOW
	OUT	CLK	;LAST OUTPUT
	MVI C,	11	;FIX CONSOL STATUS FETCH
	CALL	5	;CALL BDOS
	CPI	0	;CONSOL CHARACTER ?
	JZ	LOOP
	MVI C,	1	;FIX CONIN
	CALL	5	;GET CHARACTER
	CPI	3	;^C ?
	JZ	0	;WARM BOOT
	JMP	LOOP	;DO IT OVER
	HLT		;DOES IT EVER GET HERE ?