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