Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-03 - decus/20-0078/maint/type4.mac
There is 1 other file named type4.mac in the archive. Click here to see a list.
	TITLE	TYPE4

COMMENT /

THIS IS A SUBPROGRAM TO PROGRAM SUTLS1 THAT UNPACKS A LS1
TYPE 4 RECORD.

CALL FORMAT:
	ENTER TYPE4 USING I-WORD, ZLNSRC,ZLNOK,ZLNIND,ZLNSRC1,ZLNOK1,ZLNIND1

ENTRY CONDITION:
	X16 -> TO AN ARRAY WITH ADDRESSES TO THE ARGUMENTS


AUTHOR:	OLOF BJ@RNER, ENEA, JULY 1973

REVISION HISTORY:
-----------------

/
	SEARCH	SIMMAC
	SALL
	MACINIT
	ENTRY	TYPE4

LNID:	POINT	7,X6,24
LNSRC:	POINT	1,X6,25
LNOK:	POINT	1,X6,26
LNIND:	POINT	8,X6,34

TYPE4:	PROC
	SAVE	<X1,X2,X3,X4,X5,X6,X7>
	L	X1,(X16)	;ADDRESS TO ZI-WORD
	L	X2,1(X16)	;	 TO LNSRC
	L	X3,2(X16)	;	 TO LNOK
	L	X4,3(X16)	;	 TO LNIND
	L	X5,4(X16)	;	 TO LNSRC1
	HLRZ	X6,(X1)		;LOAD FIRST RECORD
	EXEC	FILL
	HRRZ	X6,(X1)		;LOAD SECOND
	LDB	X7,LNID
	IF	;MORE THAN ONE RECORD
		CAIN	X7,0
		GOTO	FALSE
	THEN	L	X2,4(X16)
		L	X3,5(X16)
		L	X4,6(X16)
		EXEC	FILL
	ELSE	SETOM	(X5)	;FLAG ONLY ONE RECORD
	FI
	RETURN
	EPROC

FILL:
	LDB	X7,LNSRC
	ST	X7,(X2)
	LDB	X7,LNOK
	ST	X7,(X3)
	LDB	X7,LNIND
	ST	X7,(X4)
	RETURN

	LIT
	END