Google
 

Trailing-Edge - PDP-10 Archives - BB-H506D-SM_1983 - cobol/source/debstb.mac
There are 7 other files named debstb.mac in the archive. Click here to see a list.
; UPD ID= 1058 on 6/12/78 at 2:46 PM
TITLE	DEBSTB FOR LIBOL.
SUBTTL	NUMERIC TEST TABLES FOR BIS.



;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;  OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;
;COPYRIGHT (C) 1975, 1981 BY DIGITAL EQUIPMENT CORPORATION


;REVISION HISTORY:

;V10 *****

;	6-JUL-75	/ACK	EXTRACTED THIS MODULE FROM EASTBL.

;*****

	SEARCH	LBLPRM		;DEFINE ASSEMBLY PARAMETERS.
	%%LBLP==:%%LBLP
	BIS==BIS

	SEARCH	NUMEQV		;DEFINE THE NUMERIC EQUIVALENCES.

	SEARCH	FLGDF		;DEFINE THE FLAGS.
	LDGCH.==:LDGCH.
	SPCCH.==:SPCCH.
	IBNCH.==:IBNCH.
	VALCH.==:VALCH.

	SALL

	HISEG
; DEFINE THE DECIMAL TO BINARY CONVERSION TABLES

; BASIC TABLE GENERATION MACRO

DEFINE	CVDB.T(SRC)	 
<	.XCREF
	BTBMAC(SRC,S)		;S IS A DUMMY
	%CHAR==0
	DEFINE	SYMBL
	<	SYM%==NUMVAL
		IFALSE	LEADNG,<SIGSET>
		IFTRUE	NEGOVP,<MSET>
		IFALSE	NEGOVP,<IFTRUE	LEADNG,<ABTSIG>
				IFALSE LEADNG,<GPHSGN
			  		     IFTRUE	VAL,<ABORT>
			IFN ANS68,<  ;SO LEADING IMBEDDED SIGN WORKS
				IFALSE VAL,<MCLR> >;END IFN ANS68
					   >
				>

		%CHAR==%CHAR+1
	>
 	TBLSIZ
	 REPEAT	VAL,<
	  SYMBL
	  SYM1==SYM%
	  SYMBL
	  XWD	SYM1,SYM%
	>
	.CREF
>

; NOW GENERATE THE TABLES

ENTRY	CVDB.7
CVDB.7::	BLOCK	0
ENTRY	CVDB.6
CVDB.6=:.+20

IFN BIS,<
	CVDB.T	A
>

ENTRY	CVDB.9
CVDB.9:	BLOCK	0

IFN BIS,<
	CVDB.T	E
>


	END	;DEBSTB.MAC