Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11c-bm_tops20_v6_1_atpch1_16 - autopatch/alglib.c08
There are 14 other files named alglib.c08 in the archive. Click here to see a list.
 DEL 101/74	;08C1
		EDIT(226)		;CHANGE AT LLN8 IN ALGLIB [JBS 4/11/80]
 REP 26/110	;08C2
		MOVEI	A7,1
		MOVE	A10,A0		; SET UP DEFAULT PARAMETERS
		SOSN	A1,.V(DL)
		JRST	COPY1		; ONLY ONE PARAMETER
		CAMLE	A10,.M(DL)
		MOVE	A10,.M(DL)	; MIN(M,LENGTH(S))
		SOJE	A1,COPY1	; IF TWO PARAMETERS
		MOVE	A7,A10
		CAIGE	A7,1
		MOVEI	A7,1		; MAX(M,1)
		MOVE	A10,.N(DL)
		CAMLE	A10,A0
		MOVE	A10,A0		; MIN(N,LENGTH(S))
 WIT
		MOVEI	A7,1		;[347] SET UP DEFAULT PARAMETERS - START COPY
		MOVE	A10,A0		;[347] AT FIRST BYTE, END AT LAST BYTE
		SOSN	A1,.V(DL)	;[347] TEST # OF USER-SUPPLIED PARAMETERS
		 JRST	COPY1		;[347] JUMP IF 1 PARAMETER (COPY WHOLE STRING)
		CAMLE	A10,.M(DL)	;[347] TRYING TO COPY PAST END OF STRING?
		 MOVE	A10,.M(DL)	;[347] NO, PICK UP LAST BYTE # TO COPY (2 ARGS)
		SOJE	A1,COPY1	;[347] JUMP IF 2 PARAMS (COPY 1'ST- M'TH BYTES)
		CAMGE	A7,.M(DL)	;[347] STARTING COPY WITH AT LEAST FIRST BYTE?
		 MOVE	A7,.M(DL)	;[347] YES, START COPYING WHERE USER WANTS
		MOVE	A10,.N(DL)	;[347] NO, START AT BYTE 1 & GET LAST BYTE #
		CAMLE	A10,A0		;[347] INVALID END BYTE #?
		 MOVE	A10,A0		;[347] YES, END WITH LAST BYTE IN STRING
	;[347] A7 IS START BYTE, A10 IS END BYTE
 REP 15/122	;08C3
		MOVE	AX,-1(AX)	; [335] GET FORMAL BITS
		MOVEM	AX,A01TMP(DB)	; [335] PUT THEM HERE UNTIL WE NEED THEM
 WIT
		PUSH	SP,-1(AX)	; [351] SAVE FORMAL BITS ON STACK
 REP 27/122	;08C4
		HLRZ	A0,A01TMP(DB)	; [335] GET FORMAL BITS INTO RIGHT HALF
		TRZ	A0,77		; [335] TURN OFF WHAT WE DON'T CARE ABOUT
		CAIE	A0,$PRO!$S	; [335] STATIC SIMPLE STRING PROC (USER PROC.)?
		CAIN	A0,$D!$EXP!$S	; [335] DYNAMIC SIMPLE STR EXPR (STR EXPRSION)?
		 JRST	LAB321		; [335] YES, GO DELETE IT
		CAIE	A0,$PRO!$S!$EXT	; [335] STATIC EXTERN STR PROC. (ALGLIB PROC.)?
		JRST	.EXIT(DL)	; [335] NO, EXIT BUT DON'T DELETE IT
 WIT
		POP	SP,A0		; [351] RESTORE FORMAL BITS
		TDZ	A0,[$P,,-1]	; [351] TURN OFF EXTRA BITS
		CAME	A0,[($PRO!$S!$EXT)] ; [351] STATIC EXT STR PROC (ALGLIB PROC.)?
		CAMN	A0,[($PRO!$S)]	; [351] STATIC SIMPLE STRING PROC (USER PROC.)?
		 JRST	LAB321		; [351] YES, GO DELETE IT
		CAME	A0,[($D!$S!$EXP)] ; [351] NO, DYNAMIC STRING EXPRESSION?
		 JRST	.EXIT(DL)	; [351] NO, EXIT
		TLC	A2,STRDYN!STRPRC ; [351] YES, AND IS IT DYNAMIC AND THE RESULT
		TLCE	A2,STRDYN!STRPRC ; [351] OF A STRING PROCEDURE?
		 JRST	.EXIT(DL)	; [351] NO, EXIT
 REP 16/123	;08C5
		MOVE	AX,-1(AX)	; [335] GET FORMAL BITS
		MOVEM	AX,A01TMP(DB)	; [335] PUT THEM HERE UNTIL WE NEED THEM
 WIT
		PUSH	SP,-1(AX)	; [351] SAVE FORMAL BITS ON STACK
 REP 26/123	;08C6
		HLRZ	A0,A01TMP(DB)	; [335] GET FORMAL BITS INTO RIGHT HALF
		TRZ	A0,77		; [335] TURN OFF WHAT WE DON'T CARE ABOUT
		CAIE	A0,$PRO!$S	; [335] STATIC SIMPLE STRING PROC (USER PROC.)?
		CAIN	A0,$D!$EXP!$S	; [335] DYNAMIC SIMPLE STR EXPR (STR EXPRSION)?
		 JRST	LAB326		; [335] YES, GO DELETE IT
		CAIE	A0,$PRO!$S!$EXT	; [335] STATIC EXTERN STR PROC. (ALGLIB PROC.)?
		JRST	.EXIT(DL)	; [335] NO, EXIT BUT DON'T DELETE IT
 WIT
		POP	SP,A0		; [351] RESTORE FORMAL BITS
		TDZ	A0,[$P,,-1]	; [351] TURN OFF EXTRA BITS
		CAME	A0,[($PRO!$S!$EXT)] ; [351] STATIC EXT STR PROC (ALGLIB PROC.)?
		CAMN	A0,[($PRO!$S)]	; [351] STATIC SIMPLE STRING PROC (USER PROC.)?
		 JRST	LAB326		; [351] YES, GO DELETE IT
		CAME	A0,[($D!$S!$EXP)] ; [351] NO, DYNAMIC STRING EXPRESSION?
		 JRST	.EXIT(DL)	; [351] NO, EXIT
		TLC	A2,STRDYN!STRPRC ; [351] YES, AND IS IT DYNAMIC AND THE RESULT
		TLCE	A2,STRDYN!STRPRC ; [351] OF A STRING PROCEDURE?
		 JRST	.EXIT(DL)	; [351] NO, EXIT
 INS 37/125	;08C7
		MOVE	A2,PRGLNK(DL)	; [351] GET RETURN ADDR.
		MOVEI	A2,-1(A2)	; [351] GET POINTER TO FORMAL BITS
		PUSH	SP,A2		; [351] SAVE ON STACK FOR LATER
 REP 63/125	;08C8
		JUMPE	A1,CONCA7	; RETURN IF LENGTH IS ZERO
 WIT
		JUMPE	A1,.EXIT(DL)	; [351] RETURN IF LENGTH IS ZERO
 REP 12/126	;08C9
	CONCA5:	MOVNI	A2,.S		; GET SIZE OF ENTRY
		ADDB	A2,.W(DL)	; COUNT W DOWN TO POINT TO HEADER
		MOVEI	A2,@A2		; DELOCATE  ADDRESS
		MOVEI	A1,@STR1(A2)	; GET ADDRESS OF STRING
		MOVE	A0,STR2(A2)	; GET LENGTH INTO A0
		TLZE	A0,STRDYN	; IF STRING IS NOT DYNAMIC
		TLZN	A0,STRPRC	; OR NOT RESULT OF A PROCEDURE
		JRST	CONCA6		; LEAVE IT ALONE
		TDZE	A0,A0		; CLEAR A0 AND UNLESS ALREADY ZERO
		PUSHJ	SP,GETOWN	; CALL GETOWN TO RETURN THE SPACE
	CONCA6:	SOSLE	.N(DL)		; COUNT ONE MORE CHECKED
		JRST	CONCA5		; REPEAT FOR EACH STRING
	CONCA7:	JRST	.EXIT(DL)	; THEN RETURN
 WIT
	CONCA5:	POP	SP,AX		; [351] GET ADDR. OF FORMAL BITS FOR ARGS.
	CONCA6:	MOVNI	A2,.S		; [351] GET SIZE OF ENTRY
		ADDB	A2,.W(DL)	; [351] COUNT W DOWN TO POINT TO HEADER
		MOVEI	A2,@A2		; [351] DELOCATE ADDRESS
		MOVEI	A1,@STR1(A2)	; [351] GET ADDRESS OF STRING TO MAYBE DELETE
		MOVE	A2,STR2(A2)	; [351] GET STRING HEADER BITS
		MOVE	A0,(AX)		; [351] PICK UP ACTUAL PARAMETER BITS
		TDZ	A0,[$P,,-1]	; [351] TURN OFF EXTRA BITS
		CAME	A0,[($PRO!$S!$EXT)] ; [351] STATIC EXT STR PROC (ALGLIB PROC.)?
		CAMN	A0,[($PRO!$S)]	; [351] STATIC SIMPLE STRING PROC (USER PROC.)?
		 JRST	CONCA7		; [351] YES, GO DELETE IT
		CAME	A0,[($D!$S!$EXP)] ; [351] NO, DYNAMIC STRING EXPRESSION?
		 JRST	CONCA8		; [351] NO, LEAVE IT ALONE
		TLC	A2,STRDYN!STRPRC ; [351] YES, AND IS IT DYNAMIC AND THE RESULT
		TLCE	A2,STRDYN!STRPRC ; [351] OF A STRING PROCEDURE?
		 JRST	CONCA8		; [351] NO, LEAVE IT ALONE
	CONCA7:	SETZ	A0,		; [351] YES, GET READY TO DELETE THE STRING
		SKIPE	STR2(A2)	; [351] DON'T DELETE IF NULL STRING
		 PUSHJ	SP,GETOWN	; [351] RETURN SPACE USED BY TRANSIENT STRING
	CONCA8:	SOSG	.N(DL)		; [351] COUNT ONE MORE CHECKED
		 JRST	.EXIT(DL)	; [351] THEN RETURN
		SOJA	AX,CONCA6	; [351] REPEAT FOR EACH STRING
 REP 15/140	;08C10
		MOVE	AX,-1(AX)	; [335] GET FORMAL BITS
		MOVEM	AX,A01TMP(DB)	; [335] PUT THEM HERE UNTIL WE NEED THEM
 WIT
		PUSH	SP,-1(AX)	; [351] SAVE FORMAL BITS ON STACK
 REP 32/140	;08C11
		HLRZ	A0,A01TMP(DB)	; [335] GET FORMAL BITS INTO RIGHT HALF
		TRZ	A0,77		; [335] TURN OFF WHAT WE DON'T CARE ABOUT
		CAIE	A0,$PRO!$S	; [335] STATIC SIMPLE STRING PROC (USER PROC.)?
		CAIN	A0,$D!$EXP!$S	; [335] DYNAMIC SIMPLE STR EXPR (STR EXPRSION)?
		 JRST	LAB413		; [335] YES, GO DELETE IT
		CAIE	A0,$PRO!$S!$EXT	; [335] STATIC EXTERN STR PROC. (ALGLIB PROC.)?
		JRST	.EXIT(DL)	; [335] NO, EXIT BUT DON'T DELETE IT
 WIT
		POP	SP,A0		; [351] RESTORE FORMAL BITS
		TDZ	A0,[$P,,-1]	; [351] TURN OFF EXTRA BITS
		CAME	A0,[($PRO!$S!$EXT)] ; [351] STATIC EXT STR PROC (ALGLIB PROC.)?
		CAMN	A0,[($PRO!$S)]	; [351] STATIC SIMPLE STRING PROC (USER PROC.)?
		 JRST	LAB413		; [351] YES, GO DELETE IT
		CAME	A0,[($D!$S!$EXP)] ; [351] NO, DYNAMIC STRING EXPRESSION?
		 JRST	.EXIT(DL)	; [351] NO, EXIT
		TLC	A2,STRDYN!STRPRC ; [351] YES, AND IS IT DYNAMIC AND THE RESULT
		TLCE	A2,STRDYN!STRPRC ; [351] OF A STRING PROCEDURE?
		 JRST	.EXIT(DL)	; [351] NO, EXIT
 SUM 144767