Trailing-Edge
-
PDP-10 Archives
-
BB-H506D-SM_1983
-
cobol/source/debstb.mac
There are 7 other files named debstb.mac in the archive. Click here to see a list.
; UPD ID= 1058 on 6/12/78 at 2:46 PM
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, 1981 BY DIGITAL EQUIPMENT CORPORATION
;REVISION HISTORY:
;V10 *****
; 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 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>
IFN ANS68,< ;SO LEADING IMBEDDED SIGN WORKS
IFALSE VAL,<MCLR> >;END IFN ANS68
>
>
%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
IFN BIS,<
CVDB.T A
>
ENTRY CVDB.9
CVDB.9: BLOCK 0
IFN BIS,<
CVDB.T E
>
END ;DEBSTB.MAC