Trailing-Edge
-
PDP-10 Archives
-
BB-Z759A-SM
-
cobol-source/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