Google
 

Trailing-Edge - PDP-10 Archives - CFS_TSU04_19910205_1of1 - update/cblsrc/ntbstb.mac
There are 7 other files named ntbstb.mac in the archive. Click here to see a list.
; UPD ID= 1045 on 4/29/83 at 12:08 AM by NIXON                          
TITLE	NTBSTB FOR COBOTS.
SUBTTL	NUMERIC TEST TABLES FOR BIS.

	SEARCH COPYRT
	SALL

;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, 1983, 1984 BY DIGITAL EQUIPMENT CORPORATION


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

	SEARCH	NUMEQV		;DEFINE THE NUMERIC EQUIVALENCES.

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

	HISEG
	.COPYRIGHT		;Put standard copyright statement in REL file
	SALL

;REVISION HISTORY:

;V10 *****

;	26-JAN-76		[423] FIX TABLE DEF FOR EDIT UNDER BIS
;	6-JUL-75	/ACK	EXTRACTED THIS MODULE FROM EASTBL.

;*****
; 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

	NUM.TB	A,S

ENTRY	NUM.96
NUM.96:	BLOCK	0

	NUM.TB	E,S

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

	NUM.TB	A,A

ENTRY	NUM.97
NUM.97:	BLOCK	0

	NUM.TB	E,A

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

	NUM.TB	A,E

ENTRY	NUM.99
NUM.99:	BLOCK	0

	NUM.TB	E,E


	END	;NTBSTB.MAC