Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11f-bm_tops20_v7_0_atpch1_19 - autopatch/algots.c07
There are 14 other files named algots.c07 in the archive. Click here to see a list.
 REP 3/111	;07C1
	READ35:	LDB	A3,[
		POINT	3,A2,17]
 WIT
	READ35:	CAIN	A13,15		; [345] WAS TERMINATOR <CR>?
		 JSP	AX,INCHAR	; [345] YES, LOSE <LF>
		LDB	A3,[POINT 3,A2,17]
 REP 8/123	;07C2
		SOJE	A0,PRIN52	; CALCULATE EXPONENT - ESCAPE IF ZERO
 WIT
		SOS	A0		;[344] CORRECT EXPONENT AND FALL THROUGH
 REP 12/148	;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/149	;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/149	;07C5
		MOVEI	A1,[
		ASCIZ/:/]
 WIT
		MOVEI	A1,[ASCIZ/:/]
 REP 7/150	;07C6
		MOVEI	A1,[
		ASCIZ/./]
 WIT
		MOVEI	A1,[ASCIZ/./]
 REP 11/163	;07C7
	M416:	ASCIZ	/Invalid file specification/ ; [324]
 WIT
	M416:	ASCIZ	/Invalid file specification on/ ; [346]
 SUM 42489