File DATUM.FT (FORTRAN source file)

Directory of image this file is from
This file as a plain text file

C	EINGABE DES OS/8-DATUMS
C	AUS 12-BIT-SIG NEWS #27/MARCH 78
C	MODIF.ST.25-JAN-79
C
S	DUMMY DATE
S	DUMMY DATEX
	WRITE(1,1)
1	FORMAT(/'DATUM EINGEBEN'/)
2	READ(1,3)IDA2
3	FORMAT('TAG  :',I2)
	IF(31-IDA2)2,4,4
4	READ(1,5)IDA1
5	FORMAT('MONAT:',I2)
	IF(12-IDA1)4,6,6
6	READ(1,7)IDA3
7	FORMAT('JAHR :',I4)
	IF(78-IDA3)8,8,6
8	IDA3=IDA3-78
	IF(IDA3)6,10,10
10	IDEXT=(IDA3+8)/8
S	CLA CLL
S	TAD \IDA1
S	AND (17
S	CLL RAR
S	RTR
S	RTR
S	DCA TEMP
S	TAD \IDA2
S	AND (37
S	CLL RAL
S	RTL
S	TAD TEMP
S	DCA TEMP
S	TAD \IDA3
S	AND (7
S	TAD TEMP
S	DCA I DATE
S	TAD \IDEXT
S	AND (3
S	CLL RTR
S	RTR
S	RTR
S	DCA \IDEXT
S	TAD I DATEX
S	AND (7177
S	TAD \IDEXT
S	DCA I DATEX
	CALL EXIT
S	CPAGE 4
SDATE,	6211
S	7666
SDATEX,	6201
S	7777
STEMP,	0
	END



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search