Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-03 - decus/20-0078/maint/dbsymb.mac
There is 1 other file named dbsymb.mac in the archive. Click here to see a list.
	SEARCH	SIMMAC
	CTITLE	DBSYMB


COMMENT;
		**********
		* DBSYMB *
		**********

AUTHOR:		STEPHAN OLDGREN, ENEA, JULY 1973

PURPOSE:	TO MOVE A SYMBOL FROM A UNIVERSAL SYMBOL TABLE
		TO THE COBOL PROGRAM SUTEDB

ENTRY:		DBSYMB

NORMAL EXIT:	RETURN

CALL FORMAT:	PUSHJ	XPDP,DBSYMB

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

;
	ENTRY	DBSYMB
	MACINIT

	SALL

DBSYMB:	PROC
	SAVE	<X2,X3,X4,X5>
	L	X5,X16
	L	X2,@(X5)		;GET SYMBOL VALUE
	SETZ	X4,			;CLEAR RESULT REGISTER
	CAIGE	X2,400000		;SKIP IF SPECIAL VALUE
	L	X4,TABELL(X2)		;GET SYMBOL
	CAIL	X2,400000		;SKIP IF NOT SPECIAL VALUE
	L	X4,[ASCII/LINE/]
	L	X5,@1(X5)
	ST	X4,(X5)			;STORE SYMBOL IN OUTPUT ARGUMENT

	RETURN

TABELL:	DEFINE X(A,B,C,D)<
	REPEAT B-Y-1,<Z>
	ASCII/A/
	Y=B>
	Y=1
	SYMB(7,1,X)

	EPROC
	END