Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - nubstb.c07
There is 1 other file named nubstb.c07 in the archive. Click here to see a list.
 INS 15/1	;07C1
	;V12B ****

	;EDIT	  DATE		WHO		DESCRIPTION
					
	;1070	16-JUN-83	JEH 	CHG NUMS.7 TABLE FOR NUMSTD=0 SO NUMERIC
	;				CHARACTERS WILL BE TRANSLATED

 REP 17/2	;07C2
			IFE	TOKEN%(\%CHAR)-TK.DIG,<SIGSET>	;;NOTE DIGITS
 WIT
			IFE	TOKEN%(\%CHAR)-TK.DIG,<		;[1070]
					%ADD==NUMVAL		;[1070]
					SIGSET+%ADD>		;[1070];NOTE DIGITS
 SUM 253210