. SECTION 1.13.1 . THE FOLLOWING IS A JUMP TABLE TO DISTRIBUTE CONTROL . ACCORDING TO THE OPEN OR BUILT-IN FUNCTION BEING . GENERATED FOR. . N5REG . THIS DEFINES THE REGISTERS $(1) . LIT OP16T* SLJ ERRL J FN01 01 ABS J FN01 02 IABS J FN03 03 AINT J FN04 04 INT SLJ ERRL 05 AMOD J FN71 SLJ ERRL 07 AMAX0 SLJ ERRL 10 AMAX1 SLJ ERRL 11 MAX0 SLJ ERRL 12 MAX1 SLJ ERRL 13 AMIN0 SLJ ERRL 14 AMIN1 SLJ ERRL 15 MIN0 SLJ ERRL 16 MIN1 J FN17 17 FLOAT J FN04 20 IFIX SLJ ERRL 21 SIGN SLJ ERRL 22 ISIGN SLJ ERRL 23 DIM SLJ ERRL 24 IDIM J FN25 25 SNGL J FN26A 26 IDINT J FN25 27 REAL SLJ ERRL 30 CMPLX J FN31 31 CONJG J OP161 32 DMOD SLJ ERRL 33 SLJ ERRL 34 SLJ ERRL 35 SLJ ERRL 36 DMAX1 SLJ ERRL 37 DMIN1 J FN40 40 AIMG J FN41A 41 DBLE J FN40 42 IMAG SLJ ERRL 43 DSIGN J FN44 44 LOC SLJ ERRL 45 CSGN J FN04 J FN47A 47 DINX SLJ ERRL 50 DDIM J FN47 51 CINT J FN41 52 CFLT J FN53 53 DINT J FN01 54 DABS J OP161 55 CABS SLJ ERRL FLD SLJ ERRL AND SLJ ERRL OR J FN61 COMPL J FN62 BOOL SLJ ERRL SLJ ERRL J CDX 65 COMPLEX TO DOUBLE PRECISION J DCX 66 DOUBLE PRECISION TO COMPLEX FN01 SLJ GEN ABS,IABS PCI 0,TT1,BB1 PCI 0,TT2,BB1 PCI 0,TT3,BB1 SLJ AREQ1C PCI 0,P2 J FN012 LOADED TG,T 2,$+3,P2 NOT LOADED MI 1,(LMA P0,P2) J FN013 MI 1,(DLM P0,P2) J FN013 FN012 TG,T 2,$+3,P2 MI 1,(LMA P0,P0) J FN013 MI 1,(DLM P0,P0) FN013 SA,S P1,P0 SLJ MRSLT PCI 0,P3 EX ALG2 FN03 SLJ GEN AINT PCI 0,TT1,BB1 PCI 0,TT2,BB1 PCI 0,TT3,BB1 SLJ AREQ1 PCI 0,P2 MI 1,(FA P0,(0233000000000)),CON FN031 TE,S P1,$+2,0 LR,S P0 SLJ MRSLT PCI 0,P3 EX ALG2 FN04 SLJ GEN PCI 0,TT1,BB1 PCI 0,TT2,BB1 PCI 0,TT3,BB1 PCI 0,(((11))-3) FN041 SLJ AREQ1 PCI 0,P2 FN042 MI 1,(FA P0,(0233000,0)),CON MI 1,(LUF P0,P0) EX $+1 L,T3 AA1,PZERO+3 IF P0 IS AN X REGISTER TLE,M AA1,A4 USE P0 FOR SHIFTING J FN044 OVERLAPED REGISTER TZ,S2 U1110A . REENTRANT LIBRARY TNZ STIOFL . YES, IN AN IO LIST J FN043 . NO LMJ B11,ATEMP . YES, GET AN NTEMP$ CELL SX,H2 BB4,FN04C SX,H2 BB4,FN04D SLJ GENR MI 1,(ANA P0,0243,0,XM),ABS MI 1,FN04C,TEMP . SMA A0,NTEMP SA,U 1,P0 MI 1,(LSSC P0,8),ABS MI 1,*FN04D,TEMP . SSA A0,*NTEMP EX $+1 LX,H2 BB1,FN04C LMJ B11,DTEMP . RELEASE NTEMP$ CELL SLJ GENR J FN031 FN043 . S R4,B11FL X11 USED FLAG SLJ CLOB2 SLJ GENR MI 1,(SNA P0,P4) SA,U 1,P0 MI 1,(LSSC P0,8),ABS MI 1,(SSA P0,0243,P4),ABS J FN031 FN044 SLJ GENR MI 1,(LNA P0,P0) SA,U 1,P0 MI 1,(LSSC P0,8),ABS MI 1,(SSA P0,0243,P0),ABS J FN031 FN17 SLJ GEN FLOAT PCI 0,TT1,BB1 PCI 0,TT2,BB1 PCI 0,TT3,BB1 PCI 0,(030101000233) SLJ AREQ1 PCI 0,P4 SA,S P2,P0 TE,JX P2,FN17A FN17B MI 1,(LCF P0,P2) SA,U 1,P0 SLJ DEASN PCI 0,P2 J FN031 FN17A MI 1,(LA P0,P2) SLJ UPA MI,1 1,(LCF P0,P0) J FN17B+1 $(2) . REENT FN04C SM P0,0 FN04D SSA P0,0 $(1) . REENT DCX . COMPLEX TO DOUBLE PRECISION FN25 SLJ GEN SNGL PCI 0,TT1,BB1 PCI 0,TT2,BB1 PCI 0,TT3,BB1 SLJ AREQ1C PCI 0,P2 J FN25C TE,T P2,FN25A,3 EX $+1 L BB1,ALGI L,M B11,TT2,BB1 A B11,(010,0) MARK FOR NO J FACTOR S B11,TT11,BB1 FN25Q SLJ GEN PCI 0,TT2,BB1 TE,S P1,FN25QA,0 EX $+1 L,M AA1,040 XOR,S4 AA1,TT3,BB1 S,S4 AA2,TT3,BB1 J ALG2 FN25QA EX ALG2 FN25A . MI 1,(FCL P0,P2) TE,S P2,FN25B,1 J FN25J FN25B MI 1,(LNA P0,P0) J FN25J FN25C TE,T P2,FN25D,3 J FN031 FN25D MI 1,(FCL P0,P0) J FN25J FN26A . DOUBLE PRECISION TO INTEGER IDINTX SLJ CLOB1 DESTROY VOLATILE REGISTERS IDINTX LMJ B11,ATEMP SX,H2 BB4,FN26B IDINTX SX,H2 BB4,FN26C IDINTX L,M AA1,PZERO IDINTX S AA1,PZERO IDINTX L,M AA1,A0 IDINTX S AA1,PZERO+3 SET TO USE A0 IDINTX SLJ GEN PCI 0,TT1,BB1 PCI 0,TT2,BB1 PCI 0,TT3,BB1 MI 1,(DFU P0,P2) IDINTX MI 1,(ANA P0,02074,0,XM),ABS IDINTX MI 1,(TLE P0,*-72,*0,XM),ABS . PREVENT SMALL NUMBERS MI 1,(LA P0,72,0,XM),ABS . FROM MAKING SHIFTS > 72 MI 1,FN26B,TEMP IDINTX MI 1,*FN26C,TEMP IDINTX SLJ UPA IDINTX EX $+1 IDINTX L,M AA1,A2 IDINTX S AA1,PZERO+3 SHOW RESULT IN A2 IDINTX L BB1,FN26C IDINTX LMJ B11,DTEMP IDINTX SLJ GENR IDINTX SA,S P2,P0 MOVE SIGN OF OPERAND TO RESULT IDINTX J FN013+1 COPMPLETE OPERATION IDINTX $(2) . REENT FN26B SM P0,$-$ IDINTX FN26C DSA P0,$-$ IDINTX $(1) . REENT FN25J TNE,T P3,FN031,4 MI,1 1,(SZ P0) J FN031 FN31 SLJ GEN CONJG PCI 0,TT1,BB1 PCI 0,TT2,BB1 PCI 0,TT3,BB1 SLJ AREQ1C PCI 0,P2 J FN311 MI 1,(LA P0,*P2) SA,U 1,P0 MI,1 1,(LNA P0,P2) SA,S P2,P0 . MIGHT BE CONJUGATE OF MINUS NUMBER J FN312 FN311 SA,U 1,P0 MI 1,(LNA P0,P0) FN312 SA,U 0,P0 FN313 TE,S P1,$+2,0 LR,S P0 SLJ MRSLT PCI 0,P3 EX ALG2 FN71 . L,S1 AA1,TT2,BB1 TE,M AA1,5 J FN40 L,T3 B11,TT2,BB1 TZ,T1 SUBEXD,B11 SZ,S3 SUBEXD,B11 FN40 L,M B11,TT2,BB1 A B11,(020,0) AN OFFSET OF ONE S B11,TT11,BB1 J FN25Q FN41 SLJ GEN DBLE,CFLT PCI 0,TT1,BB1 PCI 0,TT2,BB1 PCI 0,TT3,BB1 SLJ AREQ1 PCI 0,P2 TE,U P0,FN411,0 SA,U 0,P0 MI 1,(DSC P0,36),ABS FN411 MI,1 1,(SZ P0) SLJ MRSLT PCI 0,P3 EX ALG2 CDX . DOUBLE PRECISION TO COMPLEX FN41A SLJ GEN DBL (REAL TO DOUBLE PRECISION) PCI 0,TT1,BB1 PCI 0,TT2,BB1 PCI 0,TT3,BB1 SLJ AREQ1C PCI 0,P2 J FN41B LOADED MI 1,(FEL P0,P2) TE,S P2,FN411+1,0 SA,S P2,P0 J FN411+1 FN41B TE,U P0,FN41Q,1 MI 1,(FEL P0,P0) J FN411+1 FN41Q SA,U 0,P0 MI 1,(FEL P0,P0) SLJ UPM J FN411+1 FN44 L,M AA1,TT2,BB1 A AA1,(07000,0) J FACTOR OF 16 S AA1,TT11,BB1 SET SO REFERENCE WILL WORK L,M AA1,1 S,S3 AA1,TT2,BB1 L,T1 AA1,TT3+1,BB1 131K TE,M AA1,01001 . TEST FOR = 131K J ALG2 131K FNSPLC* L,S1 AA1,TT2,BB1 . LOC ENTRY FROM SP 131K SZ FN44A SIGN OF LOC FUNCTION L,S4 AA2,TT2+1,BB1 S,S2 AA2,FN44A TE,M AA1,2 CHECK FOR VARIABLE J FN44E . CHECK FOR OFFSET + 131K L,H2 B11,TT2,BB1 TP,XH2 TT2,BB1 J ALG2 NO NEGATIVE INITIALIZATION FN44F L,S3 AA1,2,B11 AND,M AA1,7 JZ AA2,FN44D VARIABLE TE,M AA2,5 J ALG2 SZ FN44A 131K L AA1,(LA A0,0,0,M) S AA1,FN44B S,H2 B11,FN44B L,H2 BB4,2,B11 L,M B11,FN44A S B11,LOCDUM SLJ FL612 L,T3 BB3,FN44B A BB3,(0100000) L B11,TT2,BB1 TNZ BB4 S,H2 BB3,2,B11 . SAVE ADDRESS OF TEMP WHICH CONTAINS ARR FN44C . 131K L,H2 BB1,ALGI L,T3 BB3,FN44B L BB2,TT1+1,BB1 NUMBER OF EXPRESSION S,T1 BB3,SUBEXD,BB2 L,M AA1,074 S,S2 AA1,TEM,BB3 L AA1,(077777077777) S AA1,SUBEXQ,BB2 SET USES TO INFINTY EFFECTIVELY SZ FN44A 131K L,H2 AA1,TT2,BB1 ADDRESS OF SPECIAL VARIABLE THAT REGIST TNE,H2 AA1,N5RGFC TEST FOR VARIABLE THAT ADDRESSES TEMPREGIST S,H1 BB3,N5RGFC REGIST TE,H2 AA1,N5RGFB REFERENCES CALLING SEQUENCES REGIST J PHS5G S,H1 BB3,N5RGFB SAVE TEMP NUMBER WHERE INDEX WILL BE LOADED FREGIST TNZ,S4 N5RGFA TEST FOR SLJ REGIST J PHS5G REGIST L,M AA1,*0 SET INDIRECT BIT INTO INSTRUCTION REGIST S,H2 AA1,FN44A REGIST FN44D L,M AA1,016 131K S,S1 AA1,FN44A . MAKE INIT TEMP ITEM 131K S,H1 B11,FN44B 131K FN44DA . ENTRANCE FOR LOC OF CHARACTER TABLES L,H1 AA1,1,B11 SET STORAGE CLASS AND,M AA1,07777 TNZ,S1 BSTC4+1 J $+3 TNE,H2 AA2,CRSTC6 TEST FOR BANKED ARRAYS J ALG2 L AA1,LCN . SAVE CURRENT LOCATION COUNTER S,H2 AA1,RSTCTQ . SET COUNTER TO RESTORE LMJ B11,FILE61 +CNGCTR . SWITCH TO TEMP COUNTER L AA1,TEMPN 131K A,M AA1,1 131K S AA1,TEMPN 131K S,H2 AA1,FN44B 131K LMJ B11,FILE61 131K + FN44A 131K LMJ B11,FILE61 +RSTCTQ L,H2 BB1,ALGI L,H2 AA1,TT2,BB1 TNE,H2 AA1,N5RGFB J PHS5G J FN44C 131K FN44E L,S1 AA1,TT2,BB1 131K L,M AA2,2 VARIABLE ID TNE,M AA1,016 LABEL REF S,S1 AA2,TT2,BB1 SET TO VARIABLE TE,M AA1,6 131K J ALG2 . NOT TRIAD 131K L,H2 B11,TT2,BB1 131K TP,XH2 TT2,BB1 ANX,M B11,0,*0 TZ TT13,B11 . TEST CHARACTER OPERANDS J FN44J L,T1 AA1,TT3,B11 131K TNE,M AA1,01017 TEST FOR SUBSCRIPT LOCOP J FN44S LOCOP TE,M AA1,01023 131K J ALG2 . NOT OFFSET + 131K L,H2 BB1,TT2,BB1 131K L,H2 AA1,TT2,BB1 . OFFSET 131K S,H2 AA1,FN44A . TO ITEM 131K L,H2 B11,TT1,BB1 . SYM OF VAR 131K TP,XH2 TT1,BB1 ANX,M B11,0,*0 J FN44F 131K FN44J L,H1 AA1,TT13,B11 . TEST COMMAND STRING TNZ AA1 L,H2 AA1,TT13,B11 . SUBSTRING TABLE S,H2 AA1,FN44A L,M AA1,01676 . INITIALIZE A TEMP OF A TEMP S,T1 AA1,FN44A J FN44DA $(2) . EENT FN44A +0 FN44B L,M A0,0 $(1) . REENT FN47 SLJ GEN DINX,CINT PCI 0,TT1,BB1 PCI 0,TT2,BB1 PCI 0,TT3,BB1 PCI 0,(030101000233) SLJ AREQ1 PCI 0,P4 MI 1,(LCF P0,P2) MI 1,(DSC P0,36),ABS MI,1 1,(SZ P0) SA,S P2,P0 SLJ DEASN PCI 0,P2 J FN031 FN44S L BB3,TT2,B11 SUBSCRIPT NUMBER LOCOP L BB2,TT1,B11 LOCOP TP,XH2 TT2,B11 LOCOP AN,M BB2,0,*0 GET INDEX TO OFFSET LOCOP TZ,H2 TT2,BB2 TEST IF OFFSET ZERO LOCOP J ALG2 NO OPTIMIZATION LOCOP L BB2,TT1,BB2 NAME OF VARIABLE LOCOP TZ,H2 1,BB2 LOCOP J ALG2 RELATIVE STORAGE ASSIGNMENT IS NON ZERO LOCOP L,T1 BB3,SUBEXD,BB3 TEMP NUMBER OF SUBSCRIPT LOCOP TNZ BB3 LOCOP J ALG2 NO TEMP AVAILABLE LOCOP L,S2 AA1,TEM,BB3 LOCOP TE,M AA1,074 TEMP ASSIGNED PERMANENTLY LOCOP J ALG2 LOCOP L,S1 AA1,TT1+1,BB1 EXP NUMBER OF RESULT LOCOP TE,M AA1,5 LOCOP J ALG2 RESULT IS NOT AN EXPRESSION LOCOP L BB2,TT1+1,BB1 LOCOP S,T1 BB3,SUBEXD,BB2 SET RESULT TO INDEX OF SUBSCRIPT TEMP LOCOP J PHS5G LOCOP FN47A . DINX INTEGER TO DOUBLE PRECISION DINXEX SLJ CLOB1 DINXEX L BB1,ALGI . RESTORE INDEX L,M AA1,PZERO DINXEX S AA1,PZERO DINXEX L,M AA1,A1 DINXEX S AA1,PZERO+3 DINXEX SLJ GEN DINXEX PCI 0,TT1,BB1 DINXEX PCI 0,TT2,BB1 DINXEX PCI 0,TT3,BB1 DINXEX MI 1,(LA A0,02074,0,M),ABS EXPONENT DINXEX MI 1,(LA P0,P2) DINXEX MI 1,(DSA A1,36),ABS DINXEX MI 1,(DFP A0,A1),ABS DINXEX MI 1,(DL A0,A1),ABS DINXEX EX $+1 DINXEX L,M AA1,A0 DINXEX S AA1,PZERO+3 DINXEX SLJ GENR DINXEX SA,S P2,P0 DINXEX J FN411+1 DINXEX FN53 SLJ GEN DINT PCI 0,TT1,BB1 PCI 0,TT2,BB1 PCI 0,TT3,BB1 PCI 0,CRDINT SLJ AREQ1 PCI 0,P2 MI 1,(DFA P0,P4) J FN031 FN60A SLJ MRSLT PCI 0,P3 EX ALG2 FN61 SLJ GEN COMPL PCI 0,TT1,BB1 PCI 0,TT2,BB1 PCI 0,TT3,BB1 SLJ AREQ1C PCI 0,P2 J FN61A ALREADY LOADED MI 1,(LNA P0,P2) J FN60A FN61A MI 1,(LNA P0,P0) J FN60A FN62 L,M B11,TT2,BB1 A B11,(010,0) MARK FOR NO JA FACTOR S B11,TT11,BB1 L,S3 AA1,TT3,BB1 TYPE OR BOOL FUNCTION S,S3 AA1,0,B11 TYPE FOR BOOLEAN L,M AA1,6 TE,S1 AA1,TT1+1,BB1 J FN62A L,S4 AA1,TT2,BB1 XOR,S4 AA1,TT1+1,BB1 AND,M AA2,040 ISOLATE SIGN BIT L,M R2,037 MLU,S4 AA2,TT1+1,BB1 S,S4 AA3,TT1+1,BB1 FN62A . L,S2 AA1,TT3+1,BB1 TE,M AA1,1 J ALG2 L,M AA1,7 TZ,H2 IOLST S,S3 AA1,TT1+1,BB1 J ALG2 FN70* SLJ GEN XOR PCI 0,TT1,BB1 PCI 0,TT2,BB1 PCI 0,TT3,BB1 SLJ AREQ2 PCI 0,P1 PCI 0,P2 SW P1,P2 MI 1,(XOR P0,P1) SA,U 1,P0 SLJ MRSLT PCI 0,P3 EX ALG2 END