Trailing-Edge
-
PDP-10 Archives
-
BB-4157F-BM_1983
-
fortran/compiler/optab.bli
There are 12 other files named optab.bli in the archive. Click here to see a list.
!THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
! OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
!COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1973, 1983
! Author: */TFV/AHM
MODULE OPTAB(RESERVE(0,1,2,3),SREG=#17,FREG=#16,VREG=#15,DREGS=4,GLOROUTINES)=
BEGIN
GLOBAL BIND OPTABV = 7^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