| 5 SUBROUTINE 20 SQUARE RT | |
| E00AU STD ARTHX SQUARE ROOT | |
| BMI AU1 ALARM IF NEG | |
| SLT 0008 | |
| NZU AU2 TEST FOR ZRO | |
| STL ARTHF BREAK UP EXP | |
| RAL 8003 AND MANTISSA | |
| SLT 0002 CALCULATE | |
| STL ARTHE INITIAL X | |
| AUP AU8 AU3 | |
| AU4 RAU ARTHE CALCULATE | |
| DVR ARTHG NEXT X | |
| SLO 8001 VALUE | |
| NZE AU5 | |
| BMI AU5 TEST FOR END | |
| ALO 8001 | |
| ALO 8001 AU3 | |
| AU3 DVR AU9 RECYCLE | |
| STL ARTHG AU4 | |
| AU5 RAL ARTHF MODIFY | |
| ALO AU10 EXPONENT | |
| SRT 0008 | |
| DIV AU9 | |
| ALO 8003 | |
| STL ARTHF TEST EVEN OR | |
| NZU AU6 ODD EXP | |
| RAU ARTHG EXP ODD | |
| SRT 0001 | |
| MPY AU11 MPY BY SQRT | |
| SRD 0010 AU7 OF 10 | |
| AU7 SLT 0002 | |
| ALO ARTHF ARTHX GO TO EXIT | |
| AU6 RAL ARTHG EXP EVEN | |
| SRD 0002 AU7 | |
| AU2 RAL 8003 ARTHX STORE ZERO | |
| AU1 LDD ARTHX 3201 SQRT ALARM | |
| AU8 00 0000 0001 CONSTANTS | |
| AU9 00 0000 0002 | |
| AU10 49 0000 0000 | |
| AU11 03 1622 7766 | |
| 5 LAST CARD SUBROUTINE 20 | |
| ? | |
| ? ? ???? |