Trailing-Edge
-
PDP-10 Archives
-
BB-Z759A-SM
-
cobol-source/debstb.mac
There are 7 other files named debstb.mac in the archive. Click here to see a list.
; UPD ID= 1025 on 4/28/83 at 6:28 PM by NIXON
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, 1983, 1984 BY DIGITAL EQUIPMENT CORPORATION
;REVISION HISTORY:
;V10 *****
; 6-JUL-75 /ACK EXTRACTED THIS MODULE FROM EASTBL.
;*****
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.
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>
>
>
%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
CVDB.T A
ENTRY CVDB.9
CVDB.9: BLOCK 0
CVDB.T E
END ;DEBSTB.MAC