RGS . REGISTER DEFINITIONS $(2) . FRM FORM 6,6,6,6,6,6 66180 FRX FORM 6,6,6,18 66190 FR FORM 6,6,24 66200 ERRAX* +0,0303001 66220 +(0) ERROR NO 1 STATEMENT LABELS USED AS IM 66230 +0,03002 66240 +(0) ERROR NO 2 IMPROPER MODE COMBINATION 66250 +0,03003 66260 +(0) ERROR NO 3 DIVISION BY ZERO 66270 +0,03004 66280 +(0) ERROR NO 4 CONSTANTS ON BOTH SIDES OF 66290 +0,0113005 +0 ERROR NO 5 TWO MANY ARGUMENTS 66310 +0,0423006 . FATAL ERROR IN PHASE III +0 66330 +0,03007 . ERROR NUMBER 7, EQUALITY CAN NOT BE GUARANTEED +0 +0,03010 . REDUNDANT STATEMENT +0 +0,03011 . CONSTANTS COULD NOT BE COMBINED +0 +03012 . ERROR NUMBER 10, LOGICAL BETWEEN REAL VARIABLES +0 +043014 . CONDITIONAL DIAGNOSTIC FOR TWO MANY CHAINED EXPRESSIONS +0 +03015 . PARAMETER COUNT IS OFF IN STATEMENT FUNCTIONS +0 +03016 . PARAMETER STORAGE EXCEEDED FOR STATEMENT FUNCTIONS +0 +03017 . NO DEFINITION FOR DERIVATIVE OF FUNCTION +0 +03020 . SUBSCRIPT COUNT EXCEEDED +0 +023021 ERR22* +0,0113022 +0 ERR23* +0,0103023 +0 ERR24* +0,03024 LOC FUNCTION STORAGE +0 ERR25* +0,03027 INTERNAL TABLE OVERFLOW ERR26* +0,03030 RESULT WAS ZERO ERR27* +0,03013 SIMPLIFY THIS EXPRESSION ERR28* +0,0123034 RELATIVE STORAGE ASSIGNMENT TOO LARGE +0 ERR29* +0,023007 . DEFINE FUNCT. ARG. ILLEGAL +0 ERR30* +0,023035 . IMBALANCE IN IF'S +0 $(1) . SPMO* +0 66360 +0 FRX 017,017,2,0 RES +25 DPMO* +0 +0 FRX 047,047,3,0 66430 FRX 041,047,3,0 66440 FRX 047,041,3,0 66450 FRX 041,041,3,0 66460 FRX 0,017,03,0 FRX 017,0,03,0 FRX 0,0,3,0 FRX 0,047,3,0 66500 FRX 047,0,3,0 66510 FRX 041,0,3,0 66520 RES +25 . MODE CONVERSION TABLES BVER2 . MODT+0 = BVER2 MODT* FRX 0,0,1,0 66550 FRX 0,017,2,0 66560 FRX 0,047,3,0 66570 FRX 0,051,4,0 66580 +0 66590 FRX 0,0,1,0 FRX 0,020,1,0 66600 FRX 0,0,2,0 66610 FRX 0,041,3,0 66620 FRX 0,052,4,0 66630 +0 66640 FRX 0,0,2,0 FRX 0,026,1,0 66650 FRX 0,025,2,0 66660 FRX 0,0,3,0 66670 FRX +0,066,4,0 +0 66690 + 0 BVER2 FRX 0,046,1,0 66700 FRX 0,027,2,0 66710 FRX +0,065,3,0 FRX 0,0,4,0 66730 +0 +0 FRX 0,0,1,0 FRX 0,017,2,0 FRX 0,047,3,0 FRX 0,051,4,0 FRX 0,0,5,0 66750 + 0 BVER2 FRX 0,0,1,0 BVER2 FRX 0,0,2,0 BVER2 +0 +0 FRX 0,0,5,0 FRX 0,0,6,0 . MODT+36 + * BVER2 FRX 0,0,1,0 FRX 0,017,2,3 FRX 0,047,3,0 FRX 0,051,4,0 66800 +01,0 FRX 0,0,1,0 BVER2 FRX 017,0,2,4 FRX 0,0,2,5 FRX 0,041,3,0 FRX 0,052,4,0 66850 FRX 017,0,2,0 FRX 0,0,2,0 BVER2 FRX 047,0,3,0 FRX 041,0,3,0 + 0,0,3,0,0,0 66885 +0 66890 FRX 0,047,3,0 + 0 BVER2 FRX 051,0,4,0 66920 FRX 052,0,4,0 66930 +0 66940 FRX 0,0,4,0 66950 FRX 0,051,4,0 +0 +001,0 FRX 0,017,2,0 FRX 0,047,3,0 FRX 0,051,4,0 +0 +01,0 FRX 0,0,1,0 BVER2 FRX 0,0,2,0 BVER2 + 0 BVER2 + 0 BVER2 +1,0 FRX 0,0,6,0 . MODT+72 / BVER2 FRM 0,0,1,0,2,2 66980 FRM 0,017,2,0,0,3 66990 FRX 0,047,3,0 FRX 0,051,4,0 67010 +0 67020 FRX 0,0,1,0 BVER2 FRM 017,0,2,0,0,4 67030 FRM 0,0,2,0,0,5 67040 FRX 0,041,3,0 FRX 0,052,4,0 67060 +0 67070 FRX 0,0,2,0 BVER2 FRX 047,0,3,0 FRX 041,0,3,0 FRX 0,0,3,0 67100 +0 67110 +0 67120 FRX 0,0,3,0 FRX 051,0,4,0 67130 FRX 052,0,4,0 67140 +0 67150 FRX 0,0,4,0 67160 DO 8 , +0 BVER2 FRX 0,0,1,0 BVER2 FRX 0,0,2,0 BVER2 FRX 0,0,3,0 + 0 BVER2 + 0 BVER2 FRX 0,0,6,0 . MODT+108 FUNCTION COLON AND COMMA BVER2 FRM 0,0,1,1,0,10 FRM 0,0,2,5,0,11 FRM 0,0,3,9,040,0 67210 FRM 0,0,4,13,0,1 672200 +0 67230 FRM 0,0,1,1,0,0 BVER2 FRM 0,0,2,2,0,10 FRM 0,0,2,6,0,11 FRM 0,0,3,10,020,0 FRM 0,0,4,14,0,1 672700 +0 67280 FRM 0,0,2,6,0,0 U137 FRM 0,0,3,3,0,10 FRM 0,0,3,7,0,11 FRM 0,0,3,11,0,0 FRM 0,0,0,15,0,0 +0 67330 + 0 BVER2 FRM 0,0,4,04,0,1 673400 FRM 0,0,4,8,0,1 673500 FRM 0,0,0,12,0,0 FRM 0,0,4,16,0,1 673700 DO 8 , +0 BVER2 FRM 0,0,1,1,0,0 BVER2 FRM 0,0,2,6,0,0 U137 + 0 BVER2 + 0 BVER2 + 0 BVER2 FRM 0,0,1,1,0,0 BVER2 . MODT+144 .AND. .OR. BVER2 FRX 0,0,6,0 FRX 0,0,6,0 +0 67420 +0 67430 +0 67440 + 0 BVER2 FRX 0,0,6,0 FRX 0,0,6,0 DO 20 , +0 BVER2 FRX 0,0,5,0 67480 DO 7 , +0 BVER2 . MODT+180 .EQ. .NE. BVER2 FRM 0,0,5,0,0,2 67500 FRM 0,017,5,077,0,3 FRM 0,047,5,077,0,9 FRM 0,051,5,077,0,0 +0 67540 FRM 0,0,5,0,0,0 BVER2 FRM 017,0,5,077,0,4 FRM 0,0,5,077,0,5 FRM 0,041,5,077,0,6 FRM 0,052,5,077,0,0 +0 67590 FRM 0,0,5,0,0,0 BVER2 FRM 047,0,5,077,0,8 FRM 041,0,5,077,0,7 FRM 0,0,5,077,0,0 +0 67630 +0 67640 + 0 BVER2 FRM 051,0,5,077,0,0 FRM 052,0,5,077,0,0 +0 67670 FRM 0,0,5,077,0,0 DO 8 , +0 BVER2 FRM 0,0,5,0,0,0 BVER2 FRM 0,0,5,0,0,0 BVER2 + 0 BVER2 + 0 BVER2 + 0 BVER2 FRM 0,0,5,0,0,0 BVER2 . MODT+216 .LT. .GT. .SE. .LE. BVER2 FRM 0,0,5,0,0,2 67710 FRM 0,017,5,076,0,3 FRM 0,047,5,076,0,9 +0 67740 +0 67750 FRM 0,0,5,0,0,0 BVER2 FRM 017,0,5,076,0,4 FRM 0,0,5,076,0,5 FRM 0,041,5,076,0,6 +0 67790 +0 67800 FRM 0,0,5,0,0,0 BVER2 FRM 047,0,5,076,0,8 FRM 041,0,5,076,0,7 FRM 0,0,5,076,0,0 DO 15 , +0 BVER2 FRM 0,0,5,0,0,0 BVER2 FRM 0,0,5,0,0,0 BVER2 + 0 BVER2 + 0 BVER2 + 0 BVER2 FRM 0,0,5,0,0,0 BVER2 . MODT+252 CONVERT TO REAL BVER2 FRX 017,017,2,0 68230 FRX 0,017,2,0 68240 FRX 025,017,2,0 68250 FRX 027,017,2,0 68260 +0 68270 + 0 BVER2 FRX 017,0,2,0 68280 FRX 0,0,2,0 68290 FRX 025,0,2,0 68300 FRX 027,0,2,0 68310 +0 68320 + 0 BVER2 FRX 017,025,2,0 68330 FRX 0,025,2,0 68340 FRX 025,025,2,0 68350 FRX 027,025,2,0 68360 +0 68370 + 0 BVER2 FRX 017,027,2,0 68380 FRX 0,027,2,0 68390 FRX 025,027,2,0 68400 FRX 027,027,2,0 68410 DO 14 , +0 BVER2 . MODT+288 CONVERT TO INTEGER BVER2 FRX 0,0,1,0 68440 FRX 020,0,1,0 68450 FRX 026,0,1,0 68460 FRX 046,0,1,0 68470 +0 68480 + 0 BVER2 FRX 0,020,1,0 68490 FRX 020,020,1,0 68500 FRX 026,020,1,0 68510 FRX 046,020,1,0 68520 +0 68530 + 0 BVER2 FRX 0,026,1,0 68540 FRX 020,026,1,0 68550 FRX 026,026,1,0 68560 FRX 046,026,1,0 68570 +0 68580 + 0 BVER2 FRX 0,046,1,0 68590 FRX 020,046,1,0 68600 FRX 026,046,1,0 68610 FRX 046,046,1,0 68620 DO 14 , +0 BVER2 . MODT+324 CONVERT TO DOUBLE BVER2 FRX 047,047,3,0 68650 FRX 041,047,3,0 68660 FRX 0,047,3,0 68670 +0 68680 +0 68690 + 0 BVER2 FRX 047,041,3,0 68700 FRX 041,041,3,0 68710 FRX 0,041,3,0 68720 +0 68730 +0 68740 + 0 BVER2 FRX 047,0,3,0 68750 FRX 041,0,3,0 68760 FRX 0,0,3,0 68770 DO 21 , +0 BVER2 . MODT+360 CONVERT TO COMPLEX BVER2 FRX 051,051,4,0 68800 FRX 052,051,4,0 68810 +0 68820 FRX 0,051,4,0 68830 +0 68840 + 0 BVER2 FRX 051,052,4,0 68850 FRX 052,052,4,0 68860 +0 68870 FRX 0,052,4,0 68880 DO 8 , +0 BVER2 FRX 051,0,4,0 68900 FRX 052,0,4,0 68910 +0 68920 FRX 0,0,4,0 68930 DO 14 , +0 BVER2 . MODT+396 RELATIONAL COMMA BVER2 FRX 0,0,1,0 FRX 0,017,2,0 FRX 0,047,3,0 + 0 + 0 +01,0 FRX 017,0,2,0 FRX 0,0,2,0 FRX 0,041,3,0 + 0 + 0 +01,0 FRX 047,0,3,0 FRX 041,0,3,0 FRX 0,0,3,0 DO 15 , +0 +01,0 +02,0 +0 +0 +0 +06,0 . MODT+432 CONCATENATION OPERATOR DO 35 , +0 +6,0 . ONLY ALLOWED COMBINATION $(2) . OPTYP* SLJ XERV BVER2 L,M R3,MODT 1 = L,M R3,MODT+144 2 .OR. L,M R3,MODT+144 3 .AND. L,M R3,MODT+180 4 .EQ. L,M R3,MODT+180 5 .NE. L,M R3,MODT+216 6 .LT. L,M R3,MODT+216 7 .GT. L,M R3,MODT+216 8 .GE. L,M R3,MODT+216 9 .LE. L,M R3,MODT+36 10 + J CHTDV 11 / BVER2 L,M R3,MODT+36 12 * J CHTL 13 ** BVER2 J CHTDF 14 SUBSCRIPT DEFINER BVER2 J CHTSC 15 SUBSCRIPT CONNECTOR BVER2 J CHT6CJ 16 COLON J CHT6C 17 COMMA BVER2 L,M R3,MODT+396 18 RELATIONAL COMMA J CHTSC 19 OFFSET + BVER2 L,M R3,MODT+288 20 CONVERT TO INTEGER L,M R3,MODT+252 21 CONVERT TO REAL L,M R3,MODT+324 22 CONVERT TO DOUBLE L,M R3,MODT+360 23 CONVERT TO COMPLEX L,M R3,MODT+432 . CONCATENATION OPERATOR MINTX* NOP 0 BVER1 FRX 2,0,2,1 1 ABS /EXP BVER1 FRX 1,0,3,1 2 IABS /DEXP BVER1 FRX 2,0,4,0 3 AINT /CEXP BVER1 FRX 1,0,2,0 4 INT /LOG BVER1 FRX 2,0,2,0100 5 AMOD /ALOG BVER1 FRX 1,0,3,0100 6 MOD /DLOG BVER1 FRX 2,0,4,0 7 AMAX0 /CLOG BVER1 FRX 2,0,2,0 10 AMAX1 /LOG10 BVER1 FRX 1,0,2,0 11 MAX0 /ALOG10 BVER1 FRX 1,0,3,0 12 MAX1 /DLOG10 BVER1 FRX 2,0,2,0 13 AMIN0 /ASIN BVER1 FRX 2,0,3,0 14 AMIN1 /DASIN BVER1 FRX 1,0,2,0 15 MIN0 /ACOS BVER1 FRX 1,0,3,0 16 MIN1 /DACOS BVER1 FRX 2,0,2,0 17 FLOAT /ATAN BVER1 FRX 1,0,3,0 20 IFIX /DATAN BVER1 FRX 2,0,2,0 21 SIGN /ATAN2 BVER1 FRX 1,0,3,0 22 ISIGN /DATAN2 BVER1 FRX 2,0,2,0100 23 DIM /SIN BVER1 FRX 1,0,3,0100 24 IDIM /DSIN BVER1 FRX 2,0,4,1 25 SNGL /CSIN BVER1 FRX 1,0,2,0 26 IDINT /COS BVER1 FRX 2,0,3,1 27 REAL /DCOS BVER1 FRX 4,0,4,0 30 CMPLX /CCOS BVER1 FRX 4,0,2,0 31 CONJG /TAN BVER1 FRX 3,1,3,0100 32 DMOD /DTAN BVER1 FRX 2,0,4,0 33 MAX /CTAN BVER1 FRX 2,0,2,0 34 MIN /SINH BVER1 FRX 1,0,3,0 35 FIX /DSINH BVER1 FRX 3,0,4,0 36 DMAX1 /CSINH BVER1 FRX 3,0,2,0 37 DMIN1 /COSH BVER1 FRX 2,0,3,1 40 AIMG /DCOSH BVER1 FRX 3,0,4,0 41 DBLE /CCOSH BVER1 FRX 2,0,2,0 42 IMAG /TANH BVER1 FRX 3,0,3,0 43 DSIGN /DTANH BVER1 FRX 1,0,4,0 44 LOC/CTANH FRX 2,0,2,0 45 CSGN /SQRT BVER1 FRX 1,0,3,0 46 ICLX /DSQRT BVER1 FRX 3,0,4,0 47 DINX /CSQRT BVER1 FRX 3,1,2,0100 50 DDIM /CBRT BVER1 FRX 4,0,3,0 51 CINT /DCBRT BVER1 FRX 4,0,4,0 52 CFLT /CCBRT BVER1 FRX 3,1,2,0 . 53 DINT / COTAN FRX 3,1,3,0 . 54 DABS / DCOTAN FRX 2,1,0,0 55 CABS BVER1 FRX 1,0,0,1 56 FLD BVER1 FRX 6,0,0,0 57 AND BVER2 FRX 6,0,0,0 60 OR BVER2 FRX 6,0,0,1 61 COMPL BVER2 FRX 6,0,0,1 62 BOOL BVER2 FRX 6,0,0,0 63 XOR +0 FRX 3,0,0,0 65 CDX COMPLEX TO DOUBLE PRECISION FRX 4,0,0,0 66 DCX DOUBLE TO COMLEX RES 7 CHTDVX* SLJ XERV . LA,M A14,0 LA,M A14,2 LA,M A14,1 LA,M A14,2 SLJ XERV J CHTDV9 SLJ XERV LIT END