Google
 

Trailing-Edge - PDP-10 Archives - BB-H580C-SB_1981 - ntbstb.mac
There are 7 other files named ntbstb.mac in the archive. Click here to see a list.
TITLE	NTBSTB 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 *****

;	26-JAN-76		[423] FIX TABLE DEF FOR EDIT UNDER BIS
;	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 NUM.XX TABLES
;
;	THESE ARE USES ONLY BY EDIT FOR NUMERIC EDITS

; BASIC TABLE MACRO

DEFINE	NUM.TB(SRC,DST)  
<	.XCREF
	BTBMAC(SRC,DST)
	%CHAR==0
	DEFINE	SYMBL
	<	IFIDN	<DST><S>,<SYM%==NUMVAL+20>
		IFIDN	<DST><A>,<SYM%==NUMVAL+60>
		IFIDN	<DST><E>,<SYM%==NUMVAL+360>
		BKTAB
		IFTRUE VAL,<
		IFIDN <DST><S>,<SYM%==20>
		IFIDN <DST><A>,<SYM%==60>
		IFIDN <DST><E>,<SYM%==360>
		>
		ZERO
		IFALSE VAL,<
			BKTAB
			IFALSE	VAL,<SIGSET>>
		IFTRUE	NEGOVP,<MSET>
		%CHAR==%CHAR+1
	>
 	TBLSIZ
	 REPEAT	VAL,<
	  SYMBL
	  SYM1==SYM%
	  SYMBL
	  XWD	SYM1,SYM%
	>
	.CREF
>
; NOW DEFINE THE TABLES

ENTRY	NUM.76
NUM.76::	BLOCK	0
ENTRY	NUM.66
NUM.66=:.+20

IFN BIS,<
	NUM.TB	A,S
>

ENTRY	NUM.96
NUM.96:	BLOCK	0

IFN BIS,<
	NUM.TB	E,S
>

ENTRY	NUM.77
NUM.77:	BLOCK	0
ENTRY	NUM.67
NUM.67=.+20

IFN BIS,<
	NUM.TB	A,A
>

ENTRY	NUM.97
NUM.97:	BLOCK	0

IFN BIS,<
	NUM.TB	E,A
>

ENTRY	NUM.79
NUM.79:	BLOCK	0
ENTRY	NUM.69
NUM.69=.+20

IFN BIS,<
	NUM.TB	A,E
>

ENTRY	NUM.99
NUM.99:	BLOCK	0

IFN BIS,<
	NUM.TB	E,E
>


	END	;NTBSTB.MAC