Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11i-bm_tops20_v7_0_atpch_1-22 - autopatch/getitm.c08
There are 4 other files named getitm.c08 in the archive. Click here to see a list.
 REP 1/1	;08C1
	; UPD ID= 1413 on 11/2/83 at 11:27 AM by HOFFMAN                        
 WIT
	; UPD ID= 1587 on 5/14/84 at 10:03 AM by HOFFMAN                        
 INS 4/2	;08C2
	;V13*****************
	;JEH	11-MAY-84	[1525] Allow use of 'STR:filnam.ext[P,PN] to specify
	;				library file in COPY statement
	;JEH	04-May-84	[1524] Don't increment byte pointer into SRCBH before
	;				storing it in RPLBH+1 for copy replacing

 DEL 37/38	;08C3
		ADD	CH,[440000,,1]	;ADVANCE TO NEXT WORD
 DEL 136/41	;08C4
	IFN TOPS20,<
	CPLB53:	HALT
	>
 INS 147/41	;08C5
	>;END IFE TOPS20 [1525]
 REP 152/41	;08C6
		HRLZM	TC,LIBPP
 WIT
		HRLZM	TC,LIBPP##	;[1525]
 INS 159/41	;08C7
	IFN TOPS20,<
		CAIE	TD,"]"		;[1525]
		JRST	CPLB5X		;[1525] NO SFD'S ON TOPS 20
		LDB	TE,GWVAL	;[1525] GET SIZE OF LITERAL
		MOVE	TB,[POINT 7,LITVAL]	;[1525] GET STR:
		MOVE	TC,[POINT 7,LIBSPC]	;[1525] REDEPOSIT
	CPLBP2:	ILDB	TD,TB		;[1525]
		CAIN	TD,":"		;[1525]
		JRST	CPLBP3		;[1525]
		IDPB	TD,TC		;[1525]
		SOJG	TE,CPLBP2	;[1525]
		JRST	CPLB5X		;[1525] FOUND [P,PN], BUT NO STRUCTURE
	CPLBP3:	PUSH	PP,T1		;[1525]
		PUSH	PP,T2		;[1525]
		PUSH	PP,T3		;[1525]
		MOVE	T1,[POINT 7,LIBSPC]	;[1525] OVERWRITE
		MOVE	T2,LIBPP##	;[1525]
		MOVE	T3,T1		;[1525]
		PPNST%			;[1525]
		 ERJMP	CPE607		;[1525] NOT A VALID [P,PN]

	CPLBP4:	MOVE	TC,T1		;[1525] POINTS TO NEXT POSIT IN LIBSPC
		POP	PP,T3		;[1525] RESTORE THE AC'S
		POP	PP,T2		;[1525]
		POP	PP,T1		;[1525]
		
	CPLBP5:	ILDB	TD,TB		;[1525] CONTINUING PICKING UP CHAR UNTIL "["
		CAIN	TD,"["		;[1525]
		JRST	CPLBP6		;[1525] HIT [,], FINISHED FILE NAME
		IDPB	TD,TC		;[1525]
		SOJG	TE,CPLBP5	;[1525]
		JRST	CPE285		;[1525]RESCANNED WHOLE LITERAL, NEVER FOUND "["
	CPLBP6:	SETZ	TA,		;[1525]
		JRST	CPLB52		;[1525] NOW GO FIND THE FILE

	>; END IFN TOPS20

	IFE TOPS20,<
 REP 190/41	;08C8
		OUTSTR	[ASCIZ /%Illegal file speciffication for /]
 WIT
		OUTSTR	[ASCIZ /%Illegal file specification for /]	;[1525]
 REP 197/41	;08C9
		HRROI	T1,[ASCIZ /%Illegal file speciffication for /]
 WIT
		HRROI	T1,[ASCIZ /%Illegal file specification for /]	;[1525]
 INS 7/56	;08C10
	CPE607:	POP	PP,T3		;[1525]
		POP	PP,T2		;[1525]
		POP	PP,T1		;[1525]
		EWARNW	E.607		;[1525] CAN'T TRANSLATE [P,PN]
		JRST	CPYERR		;[1525]

 SUM 137252