Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap4_198111 - decus/20-0133/biorth.scm
There is 1 other file named biorth.scm in the archive. Click here to see a list.
File 1)	DSK:BIORTH.OLD[4,631]	created: 0819 03-Feb-1977
File 2)	DSK:BIORTH.MAC[4,631]	created: 1659 26-Jul-1980

1)1	BIOEDT==6	;EDIT LEVEL
1)	BIOMIN==0	;MINOR VERSION
****
2)1	BIOEDT==7	;EDIT LEVEL
2)	BIOMIN==0	;MINOR VERSION
**************
1)27	.GTNOW:	MOVX	T1,%CNDTM	;ASK MONITOR			[310]
1)		GETTAB	T1,		; FOR ANSWER			[310]
1)		ERROR.	EF$FTL,CGN,<CAN'T GET 'NOW' FROM MONITOR>
****
2)27	;GETTAB CONVERTED TO JSYS SINCE THE GETTAB WAS FAILING
2)	;BY PAUL ROBINSON, WESLEYAN UNIV. DECUS CONVERSION PROGRAMMER JULY'80
2)		OPDEF	GTAD	[JSYS	^O227]
2)	.GTNOW:	;MOVX	T1,%CNDTM	;ASK MONITOR			[310]
2)		;GETTAB	T1,		; FOR ANSWER			[310]
2)	IFE T1-1,<GTAD>			;JSYS USES AC 1
2)	IFN T1-1,<PUSH	P,1		;SAVE AC 1
2)		GTAD			;GET DATE/TIME
2)		MOVE	T1,1		;PUT IT WHERE IT'S WANTED
2)		POP	P,1		;RESTORE AC 1
2)	>; END IFN
2)		CAMN	T1,[EXP -1]	;JSYS RETURNS -1 IF DOESN'T KNOW TIME
2)		ERROR.	EF$FTL,CGN,<CAN'T GET 'NOW' FROM MONITOR>
**************