C	PROGRAM TIME.FT
C	================
C
C
C	P LEMKIN
C	NIH
C	BETHESDA, MD 20014
C
C
C
C	PURPOSE
C	-------
C	READ THE REAL TIME CLOCK IN HOURS AND MINUTES
C	AND PRINT IT ON THE TTY:
C
C
C
C       PDP8E IOTS NOT DEFINED IN SABR
C       -------------------------------
C
S	OPDEF	EXADR	6450
S	OPDEF	EXIN	6333
S       OPDEF BSW 7002
S       OPDEF MQL 7421
S       OPDEF MQA 7501
C
	DIMENSION IA(2),IB(2)
C
100	CONTINUE
S	TAD (1 /CHANNEL 1
S	EXADR
S	EXIN
S	DCA \IA /HOURS(10,1), MINUTES(10)
C
S	TAD (0
S	EXADR
S	EXIN
S	DCA \IA# /MINUTES(1), SECONDS (10,1) IN BCD
C
C	GENERATE TIME= HH:MM
S	TAD \IA
S	RTR /H10==>2:5
S	AND (1700
S	MQL
S	TAD \IA
S	RTR;RTR /H1==>8:11
S	AND (0017
S	MQA
S	TAD (6060
S	DCA \IB
C
S	TAD \IA
S	BSW /M10, 8:11==>2:5
S	AND (1700
S	MQL
S	TAD \IA#
S	BSW; RTR /M1==>8:11
S	AND (0017
S	MQA
S	TAD (6060
S	DCA \IB#
C
C	GET THE SECONDS
S	TAD \IA#
S	RTL
S	AND (1700
S	MQL
S	TAD \IA#
S	AND (0017
S	MQA
S	TAD (6060
S	DCA \IC
C
	WRITE(1,111)IB,IC
111	FORMAT(' TIME IS ',A2,':',A2,':',A2)
	GOTO 100
	END