Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - strgen.c05
There are 2 other files named strgen.c05 in the archive. Click here to see a list.
 INS 22/1	;05C1

	;V12B****************
	;NAME	DATE		COMMENTS
	;JEH	01-DEC-82	[1434] Allow UNSTRING to return signs to signed 
	;				destination fields
	;JEH	14-JUN-82	[1365] If STRING source is edited and has occurs clause
	;				wrong size is used, change to external size
	;JEH	11-JUN-82	[1364] UNSTRING delimiter has wrong size if figurative
	;				constant and source is edited

 INS 10/32	;05C2
		HRRZ	TA,ETABLA	;[1365] GET ASSOCIATED DATA ITEM
		LDB	TE,LNKCOD	;[1365] 
		CAIE	TE,TB.DAT	;[1365] IS IT IN DATAB?
		JRST	STR8BB		;[1365] NO,CONT
		PUSHJ	PP,LNKSET	;[1365] YES
		LDB	TE,DA.EDT	;[1365] IS IT EDITED?
		JUMPE	TE,STR8BB	;[1365] NO
		LDB	TE,DA.EXS	;[1365] YES,
		MOVEM	TE,ESIZEA	;[1365]  USE EXTERNAL SIZE
	STR8BB:				;[1365]
 INS 12/54	;05C3
		SETZM	ETABLA		;[1364] ZERO LINK TO SOURCE FIELD
 INS 87/67	;05C4
		TSWF	FBSIGN		;[1434] UNLESS B IS SIGNED - 
		SWON	FASIGN		;[1434] THEN PASS IT ON
 SUM 248306