5 SUBROUTINE 21 COSINE E00AV STD ARTHX BEGIN COSINE SLT 0008 ARGUMENT STU ARTHF ALARM IF PWR RSM 8002 OVERSCALE ALO AV1 COSX EQUALS BMI AV2 ONE IF PWR SLO AV3 UNDERSCALE BMI AV4 SRT 0004 ALO AV5 STL AV6 RAU ARTHF FORM MPY AV7 AV6 FRACTIONAL AV6 HLT AV6 AV23 AND INTGRL AV23 STL ARTHG PARTS RAU 8003 MPY AV8 FORM S AS STL ARTHE ONE MINUS RSM ARTHG TWICE ABVAL SML 8001 OF FRACTNL ALO AV9 PART RAU 8002 STU ARTHF MPY 8001 FORM SINE STU ARTHG RAU AV16 POLYNOMIAL MPY ARTHG APPROXIMATOR RAU 8003 AUP AV15 MPY ARTHG RAU 8003 AUP AV14 MPY ARTHG RAU 8003 AUP AV13 MPY ARTHG SRT 0001 RAU 8003 AUP AV12 EQUALS ONE MPY ARTHF SCT 0000 BOV AV19 STL ARTHF RAL 8003 ROUND SRT 0002 AND STL ARTHG ADJUST RSU ARTHF POWER SRT 0002 BMI AV25 SUP 8003 ALO AV8 AV24 AV24 AUP ARTHG SLT 0002 AV22 AV22 STU ARTHF DETERMINE RAU ARTHE SIGN OF NZU AV20 RESULT RSL ARTHF ARTHX AV20 RAL ARTHF ARTHX AV25 SUP 8003 SLO AV8 AV24 AV2 RAL ARTHE OVERSCALE LDD ARTHX 3211 DISPLAY AV4 RAL AV21 ARTHX COSX IS ONE AV19 RAL 8002 COSX IS ZERO SLO 8001 ARTHX AV17 RAU AV21 AV22 COSX IS PLUS AV1 57 0000 0000 OR MINUS 1 AV3 11 0000 0000 AV5 SRD 0011 AV23 AV7 31 8309 8862 AV8 50 0000 0000 AV9 99 9999 9999 AV12 15 7079 6318 AV13 - 64 5963 7111 AV14 07 9689 6793 AV15 - 00 4673 7656 AV16 00 0151 4842 AV21 10 0000 0050 5 LAST CARD SUBROUTINE 21