Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - getitm.c08
There are 4 other files named getitm.c08 in the archive. Click here to see a list.
 INS 5/2	;08C1
	;JEH	10-APR-84	[1521] Allow [P,PN]'s and DEV:'s in COPY statements
	;JEH	19-MAR-84	[1517] Fix splitting of line with copy replacing
 REP 67/41	;08C2
		CAMN	TB,LIBHDR+1	;AND EXTENSION
		JRST	CPLB0		;YES, GET NEXT ITEM
 WIT
		SKIPN	TC,NAMWRD+2	;[1521] AND DEVICE?
		MOVSI	TC,'DSK'	;[1521]  OR 'DSK:' DEFAULT
		CAME	TC,LIBDEV	;[1521] 
		JRST	CPLB56		;[1521] NO
		SKIPN	TC,NAMWRD+3	;[1521] GET PPN IF THERE IS ONE
		MOVE	TC,MYPPN	;[1521]
		CAME	TC,LIBPP##	;[1521] STILL MATCHING?
		JRST	CPLB56		;[1521] NO
		CAMN	TB,LIBHDR+1	;[1521] AND EXTENSION
		JRST	CPLB0		;[1521] ALL MATCH, USE CURRENT FILE
 INS 74/41	;08C3
		MOVE	TC,NAMWRD+2	;[1521] GET THE DEVICE
		MOVEM	TC,LIBDEV	;[1521]
		MOVE	TC,NAMWRD+3	;[1521] AND THE P,PPN
		MOVEM	TC,LIBPP	;[1521]
 REP 90/41	;08C4
		SETZM	LIBPP##		;AND [PPN]
 WIT
		SETZM	NAMWRD+3	;[1521] AND [PPN] STORAGE AREA
 REP 99/41	;08C5
		HRLZM	TC,LIBPP
 WIT
		HRLZM	TC,NAMWRD+3	;[1521] SAVE
 REP 105/41	;08C6
		HRRM	TC,LIBPP
 WIT
		HRRM	TC,NAMWRD+3	;[1521] SAVE IT
 REP 60/58	;08C7
		CAIN	CH,$LF		;[1064] Is the next char. a line-feed?
 WIT
		CAIE	CH,$LF		;[1517] [1064] Is the next char. a line-feed?
		JRST	GTCP4L		;[1517] No, go split the line
 SUM 236124