Google
 

Trailing-Edge - PDP-10 Archives - bb-jr93e-bb - 7,6/ap018/movgen.c18
There are 10 other files named movgen.c18 in the archive. Click here to see a list.
 REP 3/1	;18C1
	SUBTTL	GENERATORS FOR "MOVE" VERB	AL BLACKINGTON/CAM
 WIT
	SUBTTL	GENERATORS FOR "MOVE" VERB	AL BLACKINGTON/CAM/MEM
 INS 22/1	;18C2
	;MEM	20-Oct-86	[1632] Fix MOVE +0 to DATA_NAME. Code had to be added
	;			       to detect that +0 was the same as 0.
 INS 22/8	;18C3
		LDB 	TD,DA.EDT	;[1646]IS IT EDITTED
		JUMPN 	TD,[MOVEI TD,EDMODE
		            JRST GRP.A]	;[1646] YES
 REP 28/8	;18C4
		HRRM	TD,EMODEB	;RESET IT TO SIXBIT,ASCII OR EBCDIC ONLY
 WIT
	GRP.A:	HRRM	TD,EMODEB	;RESET IT TO SIXBIT,ASCII OR EBCDIC ONLY
 REP 19/65	;18C5
		CAIE	TC,	60		;TEST TO SEE IF ITS A ZERO
		JRST		MLD.ON		;GO ONWARD IF NOT
		SOJG	TB,	.-3		;LOOP FOR ALL CHARS IN LITERAL
 WIT
		CAIN	TC,	60		;[1632]TEST TO SEE IF ITS A ZERO
		JRST	MLD.00			;[1632]IT IS
		CAIE	TC,	"-"		;[1632]HOW ABOUT A SIGN FIELD?
		CAIN	TC,	"+"		;[1632]
		SKIPA				;[1632]YES, CONTINUE SCANNING FOR ZEROS
		JRST		MLD.ON		;[1632]GO ONWARD IF NOT
	MLD.0:	SOJE	TB,	MLD.ON		;[1632]ONLY GOT A SIGN CHARACTER
		ILDB	TC,	TA		;[1632]
		CAIE	TC,	60		;[1632]ONLY ZEROS FROM NOW ON
		JRST	MLD.ON			;[1632]FOUND A NON-ZERO CHARACTER
	MLD.00:	SOJG	TB,	.-3		;[1632]LOOP FOR ALL CHARS IN LITERAL
 SUM 196206