Directory of image this file is from
This file as a plain text file
[SPFLT [SNGL PRCISION [FLTING PT [PACKAGE [OF DILL [STAUFFER AND [STACY [U.N.CAROLINA $1400 #1M 0 #1E 0 #2M 0 #2E 0 [CONS FOR FIX [TO FLT CONV #3K 13 [PICK 1--- [COMMON TO ALL [SUBROUTINES #1P ADA i 3 STA 3P ADA i -6003 STC 3 LDA 3 STC 1 LDA i 3 STC 2 LDA i 3 STC 3 LDA 2 STC 2M LDA i 2 STC 2E LDA 1 STC 1M LDA i 1 STC 1E SET i 1 1M SET i 2 2M JMP 0 [ADD SUBROUT [SUB ENTRANCE CLR ADD 0 JMP 1P ADD 2M COM STC 2M JMP p+4 [ADD ENTRANCE CLR ADD 0 JMP 1P LDA 1 BCO 2 APO JMP p+4 LDA i #5Z NOP JMP p+3 LDA i JMP 1N STC 2A ADD 2E COM ADD 1E AZE JMP p+3 LDA 2 JMP 2A-1 APO i JMP p+6 COM SET i 1 2M SET i 2 1M STA 3 LDA 1 AZE i JMP 4A LDA 3 ADA i -13 APO i JMP 2P ADA i SCR i 13 STC 1A LDA 2 #1A 0 JMP 2R ADM 1 #2A 0 BCO 2 APO i JMP 2P LDA 1 SCR i 1 BCO i 4000 JMP 2R STA 1 SET 2 #1K 1 LDA i 2 ADD 1K STA 2 [PICK 2 [COMMON TO ALL [SUBROUTINES #2P LDA 1 STA 3 LDA i 1 STA i 3 CLR #3P 0 [ROUNDS OFF #1R SRO i 5252 JMP 0 #2R STC 1A ADD 0 STC 3R ADD 1A APO JMP p+4 LZE ADD 1K JMP 0 LZE i ADD 2K #3R 0 [DIVIDE SUB CLR ADD 0 JMP 1P ADD 2E COM JMP 3E LDA 1 BCO 2 ROL 1 BCL i #2K 7776 ADD 5Z STC 4Z STA 3 LDA 2 AZE JMP p+4 LDA i 3700 STC 1E APO COM STA 2 LDA 1 APO COM STA 1 COM ADA 2 APO i JMP 1D LDA 1 SCR i 1 JMP 1R STC 1M ADD 1E ADD 1K STC 1E #1D LDA 2 COM JMP p+2 #2D LDA 2 ADA 1 ADA 1 STA 1 APO i JMP 3D AZE JMP 4D #3D LDA 3 BSE i #5D 4000 STA 3 SRO 5D JMP 7D JMP 1D #4D SRO 5D JMP 7D JMP 2D #7D LDA 3 SCR i 1 BCL i 4000 #4Z 0 STA 3 JMP 3M [MULTIPLY SUB CLR ADD 0 JMP 1P ADD 2E JMP 3E LDA 1 MUL 2M+4000 STA 3 LDA 1 MUL 2 ROL i 2 LDA 3 #3M ROL 1 BCO 3 APO JMP 4M LDA 3 ROL i 1 STA 1 CLR ADD 1E ADD 2K STC 1E JMP 2P #4M LDA 3 JMP 1R STA 1 JMP 2P [FIX TO FLOAT [ENTER WITH ADD [IN A REGISTER STC 1 LDA 1 STC 2E SET i 1 2E ADD 0 STC 3P JMP 1P+21 [NORMALIZE SUB #1N SET 2 1 XSK i 2 LDA 1 AZE JMP 2N STA 2 JMP 2P #2N ROL 1 BCO 1 APO JMP 2P LDA 2 ADD 2K STA 2 LDA 1 ROL 1 STA 1 JMP 2N [EXPONENT CHK #3E ADM 1E APO COM ADD 1N APO HLT JMP 0 [TFL CLR ADD 0 ADD 4A+1 JMP 1P+2 #4A SET 1 2 JMP 2P