Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99h-bb - setret.c13
There are 10 other files named setret.c13 in the archive. Click here to see a list.
 REP 17/1	;13C1

	;V10 *****

	;	15-DEC-74	/ACK	ADDED ROUTINES SET1. AND SET2.

	;	5/15/75		/DBT	ADDED BSET1. AND BSET2. FOR BIS
	;*****

 WIT

	;V10 *****

	;	15-DEC-74	/ACK	ADDED ROUTINES SET1. AND SET2.

	;	5/15/75		/DBT	ADDED BSET1. AND BSET2. FOR BIS
	;*****

 REP 28/1	;13C2

 WIT

 REP 2/2	;13C3

	COMMENT	\

		THIS ROUTINE SETS UP A SINGLE PARAMETER.

 WIT

	COMMENT	\

		THIS ROUTINE SETS UP A SINGLE PARAMETER.

 REP 11/2	;13C4

 WIT

 REP 17/2	;13C5

 WIT

 REP 27/2	;13C6

 WIT

 REP 31/2	;13C7

	REGISTERS MODIFIED:
		SW, CH, IPTR, CNT

 WIT

	REGISTERS MODIFIED:
		SW, CH, IPTR, CNT

 REP 2/4	;13C8

	COMMENT	\

		THIS ROUTINE SETS UP TWO PARAMETERS.

	CALL:
		JSP	JAC,	SET2.

	INPUT CONDITIONS:
		RH(PARM)	POINTS AT THE FIRST PARAMETER.

 WIT

	COMMENT	\

		THIS ROUTINE SETS UP TWO PARAMETERS.

	CALL:
		JSP	JAC,	SET2.

	INPUT CONDITIONS:
		RH(PARM)	POINTS AT THE FIRST PARAMETER.

 REP 17/4	;13C9

 WIT

 REP 21/4	;13C10

	REGISTERS MODIFIED:
		IPTR, OTPR, CNT

	\

 WIT

	REGISTERS MODIFIED:
		IPTR, OTPR, CNT

	\

 REP 42/4	;13C11

	;POINTERS TO VARIOUS FIELDS IN THE PARAMETERS.

	SLPTR1:	POINT	11,IPTR,17	;POINTS AT THE LENGTH FIELD FOR ONE
					; PARAMETER ROUTINES.
	SLPTR2:	POINT	11,OPTR,17	;POINTS AT THE LENGTH FIELD FOR TWO
					; PARAMETER ROUTINES.
		INTERN	PTIBS.
 WIT

	;POINTERS TO VARIOUS FIELDS IN THE PARAMETERS.

	SLPTR1:	POINT	11,IPTR,17	;POINTS AT THE LENGTH FIELD FOR ONE
					; PARAMETER ROUTINES.
	SLPTR2:
	IFN BIS,<			;[1144]
		POINT	11,OPTR,17	;POINTS AT THE LENGTH FIELD FOR TWO
		> ;END IFN BIS
	IFE BIS,<
		POINT	12,OPTR,17	;[1144] Grab 12 bits rather than 11 for non-bis
		> ;END IFE BIS
		INTERN	PTIBS.		; PARAMETER ROUTINES.
 REP 56/4	;13C12

 WIT

 REP 75/4	;13C13

	;POINTERS TO VARIOUS FIELDS IN THE PARAMETERS.

 WIT

	;POINTERS TO VARIOUS FIELDS IN THE PARAMETERS.

 REP 86/4	;13C14

 WIT

 SUM 226510