File DATUM.SB (8k SABR macro assembler source file)

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

/ SUBROUTINE DATUM IN SABR
/ SPEICHERT DIE DATUM-ZAHLEN IN IYR(I4), IDAY(I2) UND IMO(I2)
/ WIRD GERUFEN : CALL DATUM(IYR,IDAY,IMO)
	ENTRY DATUM
	DUMMY DA
	DUMMY DB
	DUMMY IYR
	DUMMY IDAY
	DUMMY IMO
IYR,	BLOCK 2
IDAY,	BLOCK 2
IMO,	BLOCK 2
	CPAGE 4
DA,	6211		/ CDF : CHANGE TO DATA FIELD 1
	7666
DB,	6201		/ CDF : CHANGE TO DATA FIELD 0
	7777
ENPT,	IYR
PNTR,	0
CNTR,	0
TEMP,	0
DATUM,	BLOCK 2
	TAD ENPT
	DCA PNTR
	TAD (-6
	DCA CNTR
A1,	TAD I DATUM
	INC DATUM#
	DCA I PNTR
	INC PNTR
	ISZ CNTR
	JMP A1
	TAD I DA
	DCA TEMP
	TAD TEMP
	AND (7
	DCA I IYR
	TAD TEMP
	RAR
	RTR
	AND (37
	DCA I IDAY
	TAD TEMP
	CLL RAL
	RTL
	RTL
	AND (17
	DCA I IMO
	TAD I DB
	RTR
	RTR
	AND (30
	TAD I IYR
	TAD (D1970
	DCA I IYR
	RETRN DATUM
	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