Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99h-bb - algots.c07
There are 14 other files named algots.c07 in the archive. Click here to see a list.
 REP 6/114	;07C1
		LDB	A3,[
		POINT	3,A2,17]
 WIT
		LDB	A3,[POINT 3,A2,17]
 REP 8/126	;07C2
		SOJE	A0,PRIN52	; CALCULATE EXPONENT - ESCAPE IF ZERO
 WIT
		SOS	A0		;[344] CORRECT EXPONENT AND FALL THROUGH
 REP 12/150	;07C3
		BLT	A0,%ACCS+SP(DB)	; SAVE ACCUMULATORS
 WIT
		SUBI	DL,(DB)		;[343] DELOCATE DL BEFORE SAVING
		SUBI	SP,(DB)		;[343] AND SP
		BLT	A0,%ACCS+SP(DB)	; SAVE ACCUMULATORS
		ADDI	DL,(DB)		;[343] RELOCATE DL
		ADDI	SP,(DB)		;[343] AND SP
 REP 26/151	;07C4
	ERRM8:	LDB	A5,[
		POINT	4,.JBUUO,12]	; NO DIRECTORY-ENTRY - GET ERROR #
 WIT
	ERRM8:	LDB	A5,[POINT 4,.JBUUO,12] ; NO DIRECTORY-ENTRY - GET ERROR #
 REP 33/151	;07C5
		MOVEI	A1,[
		ASCIZ/:/]
 WIT
		MOVEI	A1,[ASCIZ/:/]
 REP 7/152	;07C6
		MOVEI	A1,[
		ASCIZ/./]
 WIT
		MOVEI	A1,[ASCIZ/./]
 DEL 22/154	;07C7
		SETZ	A0,		; [251] SETUP TO RELEASE EXPANDABLE HEAP SPACE
		SKIPE	A1,GETTMP(DB)	; [251] DID ROUTINE HAVE HEAP SPACE ALLOCATED?
		PUSHJ	SP,GETOWN	; [251] YES, RELEASE IT
		SETZM	GETTMP(DB)	; [251] NO, CLEAR "I HAVE HEAP SPACE" SEMAPHORE
 REP 22/165	;07C8
	M416:	ASCIZ	/Invalid file specification/ ; [324]
 WIT
	M416:	ASCIZ	/Invalid file specification on/ ; [346]
 SUM 238089