Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99e-bb - pscan.c05
There are 2 other files named pscan.c05 in the archive. Click here to see a list.
 REP 10/1	;05C1
	;COPYRIGHT (C) 1974, 1981 BY DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1974, 1981, 1982 BY DIGITAL EQUIPMENT CORPORATION
 REP 17/1	;05C2

 WIT
	;DMN	01-Apr-82	[1347] Eliminate warning for PIC +,999 or -,999
	;WTK/JM	30-Sep-81	[1312] WARNING FOR PIC +,+++ OR -,---
	;***** V12B *****
 REP 11/12	;05C3
		JRST	FINSH1		;OK - NO SIGN OR LEADING SIGN
		LDB	CH,MP		;NOT LEADING BUT IS IT TRAILING?
		CAIN	CH,PICIS	;CHECK LAST MASK CHARACTER AGAINST INSERT SIGN
		JRST	FINSH1		;OK - ITS TRAILING
 WIT
		JRST	FINSHA		;[M1312] OK - NO SIGN OR LEADING SIGN
		LDB	CH,MP		;NOT LEADING BUT IS IT TRAILING?
		CAIN	CH,PICIS	;CHECK LAST MASK CHARACTER AGAINST INSERT SIGN
		JRST	FINSHA		;[M1312] OK - ITS TRAILING
 INS 20/12	;05C4
	FINSHA:				;[1312]
		LDB	CH,[POINT 8,MSKWRD,19]	;[1312] GET FIRST 2 MASK BYTES
		CAIN	CH,204		;[1312] IF SIGN AND COMMA,
		JRST	[LDB	CH,[POINT	4,MSKWRD,23]	;[1347]  YES, GET NEXT CHAR
			CAIE	CH,10		;[1347]  IS IT A FLOATING SIGN?
			JRST	FINSH1		;[1347]  NO, ASSUME USER KNOWS WHAT HE IS DOING
			JRST	FINAER]		;[1347] [1312]  NO SIG DIGIT SPACE
		LSH	CH,-4		;[1312] IF COMMA IS NOT FIRST
		CAIE	CH,4		;[1312]  AS IN +,+++ OR -,---
		JRST	FINSH1		;[1312]  ALL IS OK
	FINAER:				;[1312]
		MOVEI	DW,E.651	;[1312] OTHERWISE WARN ABOUT NO SIG. DIGIT
		PUSHJ	PP,WARNW##	;[1312]  SPACE BEFORE COMMA


 SUM 11786