Trailing-Edge
-
PDP-10 Archives
-
bb-4157j-bm_fortran20_v11_16mt9
-
fortran-compiler/optab.bli
There are 12 other files named optab.bli in the archive. Click here to see a list.
!COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1973, 1987
!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 AND WITH THE
!INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER
!COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
!OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY
!TRANSFERRED.
!
!THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
!AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
!CORPORATION.
!
!DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
!SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
! Author: */TFV/AHM
MODULE OPTAB(RESERVE(0,1,2,3),SREG=#17,FREG=#16,VREG=#15,DREGS=4,GLOROUTINES)=
BEGIN
GLOBAL BIND OPTABV = #11^24 + 0^18 + 4; ! Version Date: 2-Oct-81
%(
***** Begin Revision History *****
***** Begin Version 6 *****
2 761 TFV 1-Mar-80 ------
Add GFAD, GFSB, GFMP, GFDV, and EXTEND for /GFLOATING
***** Begin Version 7 *****
3 1251 CKS 7-Aug-81
Change IBP to ADJBP
4 1401 AHM 2-Oct-81
Add XMOVEI for extended addressing, ADJSP for CHARACTER. Also
add JSYS, DADD, DSUB, DMUL, DDIV, UUO247 and MAP by popular
consent.
***** End Revision History *****
)%
MACRO OP(X)=SIXBIT'X'$;
BIND ZOPTAB =PLIT(OPMNEM GLOBALLY NAMES
%761% OP(GFAD),
%761% OP(GFSB),
%1401% OP(JSYS),
%1401% OP(ADJSP), ! Used by CHARACTER FUNCTION calling sequence
%761% OP(GFMP),
%761% OP(GFDV),
OP(DFAD),
OP(DFSB),
OP(DFMP),
OP(DFDV),
%1401% OP(DADD),
%1401% OP(DSUB),
%1401% OP(DMUL),
%1401% OP(DDIV),
OP(DMOVE),
OP(DMOVN),
OP(FIX),
%761% OP(EXTEND),
OP(DMOVEM),
OP(DMOVNM),
OP(FIXR),
OP(FLTR),
OP(UFA),
OP(DFN),
OP(FSC),
%1251% OP(ADJBP),
OP(ILDB),
OP(LDB),
OP(IDPB),
OP(DPB),
OP(FAD),
OP(FADL),
OP(FADM),
OP(FADB),
OP(FADR),
OP(FADRI),
OP(FADRM),
OP(FADRB),
OP(FSB),
OP(FSBL),
OP(FSBM),
OP(FSBB),
OP(FSBR),
OP(FSBRI),
OP(FSBRM),
OP(FSBRB),
OP(FMP),
OP(FMPL),
OP(FMPM),
OP(FMPB),
OP(FMPR),
OP(FMPRI),
OP(FMPRM),
OP(FMPRB),
OP(FDV),
OP(FDVL),
OP(FDVM),
OP(FDVB),
OP(FDVR),
OP(FDVRI),
OP(FDVRM),
OP(FDVRB),
OP(MOVE),
OP(MOVEI),
OP(MOVEM),
OP(MOVES),
OP(MOVS),
OP(MOVSI),
OP(MOVSM),
OP(MOVSS),
OP(MOVN),
OP(MOVNI),
OP(MOVNM),
OP(MOVNS),
OP(MOVM),
OP(MOVMI),
OP(MOVMM),
OP(MOVMS),
OP(IMUL),
OP(IMULI),
OP(IMULM),
OP(IMULB),
OP(MUL),
OP(MULI),
OP(MULM),
OP(MULB),
OP(IDIV),
OP(IDIVI),
OP(IDIVM),
OP(IDIVB),
OP(DIV),
OP(DIVI),
OP(DIVM),
OP(DIVB),
OP(ASH),
OP(ROT),
OP(LSH),
OP(JFFO),
OP(ASHC),
OP(ROTC),
OP(LSHC),
%1401% OP(UUO247),
OP(EXCH),
OP(BLT),
OP(AOBJP),
OP(AOBJN),
OP(JRST),
OP(JFCL),
OP(XCT),
%1401% OP(MAP),
OP(PUSHJ),
OP(PUSH),
OP(POP),
OP(POPJ),
OP(JSR),
OP(JSP),
OP(JSA),
OP(JRA),
OP(ADD),
OP(ADDI),
OP(ADDM),
OP(ADDB),
OP(SUB),
OP(SUBI),
OP(SUBM),
OP(SUBB),
OP(CAI),
OP(CAIL),
OP(CAIE),
OP(CAILE),
OP(CAIA),
OP(CAIGE),
OP(CAIN),
OP(CAIG),
OP(CAM),
OP(CAML),
OP(CAME),
OP(CAMLE),
OP(CAMA),
OP(CAMGE),
OP(CAMN),
OP(CAMG),
OP(JUMP),
OP(JUMPL),
OP(JUMPE),
OP(JUMPLE),
OP(JUMPA),
OP(JUMPGE),
OP(JUMPN),
OP(JUMPG),
OP(SKIP),
OP(SKIPL),
OP(SKIPE),
OP(SKIPLE),
OP(SKIPA),
OP(SKIPGE),
OP(SKIPN),
OP(SKIPG),
OP(AOJ),
OP(AOJL),
OP(AOJE),
OP(AOJLE),
OP(AOJA),
OP(AOJGE),
OP(AOJN),
OP(AOJG),
OP(AOS),
OP(AOSL),
OP(AOSE),
OP(AOSLE),
OP(AOSA),
OP(AOSGE),
OP(AOSN),
OP(AOSG),
OP(SOJ),
OP(SOJL),
OP(SOJE),
OP(SOJLE),
OP(SOJA),
OP(SOJGE),
OP(SOJN),
OP(SOJG),
OP(SOS),
OP(SOSL),
OP(SOSE),
OP(SOSLE),
OP(SOSA),
OP(SOSGE),
OP(SOSN),
OP(SOSG),
OP(SETZ),
OP(SETZI),
OP(SETZM),
OP(SETZB),
OP(AND),
OP(ANDI),
OP(ANDM),
OP(ANDB),
OP(ANDCA),
OP(ANDCAI),
OP(ANDCAM),
OP(ANDCAB),
OP(SETM),
%1401% OP(XMOVEI), ! Was SETMI (thrills). Needed for /EXTENDED
OP(SETMM),
OP(SETMB),
OP(ANDCM),
OP(ANDCMI),
OP(ANDCMM),
OP(ANDCMB),
OP(SETA),
OP(SETAI),
OP(SETAM),
OP(SETAB),
OP(XOR),
OP(XORI),
OP(XORM),
OP(XORB),
OP(IOR),
OP(IORI),
OP(IORM),
OP(IORB),
OP(ANDCB),
OP(ANDCBI),
OP(ANDCBM),
OP(ANDCBB),
OP(EQV),
OP(EQVI),
OP(EQVM),
OP(EQVB),
OP(SETCA),
OP(SETCAI),
OP(SETCAM),
OP(SETCAB),
OP(ORCA),
OP(ORCAI),
OP(ORCAM),
OP(ORCAB),
OP(SETCM),
OP(SETCMI),
OP(SETCMM),
OP(SETCMB),
OP(ORCM),
OP(ORCMI),
OP(ORCMM),
OP(ORCMB),
OP(ORCB),
OP(ORCBI),
OP(ORCBM),
OP(ORCBB),
OP(SETO),
OP(SETOI),
OP(SETOM),
OP(SETOB),
OP(HLL),
OP(HLLI),
OP(HLLM),
OP(HLLS),
OP(HRL),
OP(HRLI),
OP(HRLM),
OP(HRLS),
OP(HLLZ),
OP(HLLZI),
OP(HLLZM),
OP(HLLZS),
OP(HRLZ),
OP(HRLZI),
OP(HRLZM),
OP(HRLZS),
OP(HLLO),
OP(HLLOI),
OP(HLLOM),
OP(HLLOS),
OP(HRLO),
OP(HRLOI),
OP(HRLOM),
OP(HRLOS),
OP(HLLE),
OP(HLLEI),
OP(HLLEM),
OP(HLLES),
OP(HRLE),
OP(HRLEI),
OP(HRLEM),
OP(HRLES),
OP(HRR),
OP(HRRI),
OP(HRRM),
OP(HRRS),
OP(HLR),
OP(HLRI),
OP(HLRM),
OP(HLRS),
OP(HRRZ),
OP(HRRZI),
OP(HRRZM),
OP(HRRZS),
OP(HLRZ),
OP(HLRZI),
OP(HLRZM),
OP(HLRZS),
OP(HRRO),
OP(HRROI),
OP(HRROM),
OP(HRROS),
OP(HLRO),
OP(HLROI),
OP(HLROM),
OP(HLROS),
OP(HRRE),
OP(HRREI),
OP(HRREM),
OP(HRRES),
OP(HLRE),
OP(HLREI),
OP(HLREM),
OP(HLRES),
OP(TRN),
OP(TLN),
OP(TRNE),
OP(TLNE),
OP(TRNA),
OP(TLNA),
OP(TRNN),
OP(TLNN),
OP(TDN),
OP(TSN),
OP(TDNE),
OP(TSNE),
OP(TDNA),
OP(TSNA),
OP(TDNN),
OP(TSNN),
OP(TRZ),
OP(TLZ),
OP(TRZE),
OP(TLZE),
OP(TRZA),
OP(TLZA),
OP(TRZN),
OP(TLZN),
OP(TDZ),
OP(TSZ),
OP(TDZE),
OP(TSZE),
OP(TDZA),
OP(TSZA),
OP(TDZN),
OP(TSZN),
OP(TRC),
OP(TLC),
OP(TRCE),
OP(TLCE),
OP(TRCA),
OP(TLCA),
OP(TRCN),
OP(TLCN),
OP(TDC),
OP(TSC),
OP(TDCE),
OP(TSCE),
OP(TRO),
OP(TLO),
OP(TROE),
OP(TLOE),
OP(TROA),
OP(TLOA),
OP(TRON),
OP(TLON),
OP(TDO),
OP(TSO),
OP(TDOE),
OP(TSOE),
OP(TDOA),
OP(TSOA),
OP(TDON),
OP(TSON));
END
ELUDOM