Trailing-Edge
-
PDP-10 Archives
-
BB-H506E-SM
-
cobol/source/ntbstb.mac
There are 7 other files named ntbstb.mac in the archive. Click here to see a list.
TITLE NTBSTB FOR LIBOL V12C
SUBTTL NUMERIC TEST TABLES FOR BIS.
SEARCH COPYRT
SALL
;COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1975, 1985
;ALL RIGHTS RESERVED.
;
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
;ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;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
.COPYRIGHT ;Put COPYRIGHT statement in .REL file.
; 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