PFORTR DCK/ I,H PPQ8PRMR DCK/ I,H PPPARABR DCK/ I,H PPQ8F2IR DCK/ I,H PPABSR DCK/ I,H PPSQRTFR DCK/ I,H PPSIGNR DCK/ I,H PPFXFLTR DCK/ I,H PPEXPR DCK/ I,H PPALOGR DCK/ I,H PPTANHR DCK/ I,H PPSNCSR DCK/ I,H PPATANR DCK/ I,H PPD1781R DCK/ I,H PP DEL/ 1 PP NAM D1781R DECK-ID B13 FTN 3.3 RUNTIME SUMMARY-108 PP DEL/ 32 PPFLT001 ADQ* (EQ1781) ADD IN 1781 EQUIPMENT CODE 108*3978 PP DEL/ 72 PP LDQ* (EQ1781) 1781 EQUIPMENT CODE TO Q 108*3978 PP DEL/ 82 PP LDQ* (EQ1781) 1781 EQUIPMENT CODE TO Q 108*3978 PPFLOTR DCK/ I,H PP DEL/ 1 PP NAM FLOTR DECK-ID B14 FTN 3.3 RUNTIME SUMMARY-112 PP INS/ 206 PP INA 0 ELIMINATE -0 112*4199 PPCOMFPR DCK/ I,H PPQ8QIOR DCK/ I,H PPBINARR DCK/ I,H PPQ8QGTR DCK/ I,H PPIOCODR DCK/ I,H PPINITLR DCK/ I,H PPRSTORR DCK/ I,H PPGETCHR DCK/ I,H PPIPACKR DCK/ I,H PPUPDATR DCK/ I,H PPDECPLR DCK/ I,H PPINTGRR DCK/ I,H PPSPACER DCK/ I,H PPHOLR DCK/ I,H PPDCHXR DCK/ I,H PPHXASCR DCK/ I,H PPAFMTOR DCK/ I,H PPRFMTOR DCK/ I,H PPAFMTIR DCK/ I,H PPRFMTIR DCK/ I,H PPASCHXR DCK/ I,H PPHXDCR DCK/ I,H PPFLOTIR DCK/ I,H PPFOUTR DCK/ I,H PPEOUTR DCK/ I,H PPEWRITR DCK/ I,H PPINTI1R DCK/ I,H PPFORMTR DCK/ I,H PP DEL/ 1 PP NAM FORMTR DECK-ID D24 FTN 3.3 RUNTIME SUMMARY-115 PP DEL/ 486,488 PP SAZ STP360 SKIP END OF FORMAT 115*3857 PP JMP STP10 115*3857 PPSTP360 LDA- ISTART,I RESTORE 115*3857 PP STA- IX,I LEFT 115*3857 PP LDA- JSTART,I PAREN 115*3857 PP STA- JX,I POINTERS 115*3857 PP* 115*3857 PP CLR A USE IB AS 115*3857 PP STA- IB,I A PASS FLAG 115*3857 PP* 115*3857 PPSTP370 LDA- JX,I DECREMENT 115*3857 PP INA -2 IX AND JX 115*3857 PP SAZ STP380 115*3857 PP LDA- IX,I 115*3857 PP INA -1 115*3857 PP STA- IX,I 115*3857 PPSTP380 ENA 3 115*3857 PP SUB- JX,I 115*3857 PP STA- JX,I 115*3857 PP* 115*3857 PP LDA- IB,I SKIP BACKWARD 115*3857 PP SAN STP390 PAST LEFT 115*3857 PP RAO- IB,I PAREN ON INITIAL 115*3857 PP JMP* STP370 PASS 115*3857 PP* 115*3857 PPSTP390 LDA- ARGU2 115*3857 PP ADD- IX,I 115*3857 PP STA- ARGU3 SET ADDRESSES 115*3857 PP ENA JX FOR GETCH 115*3857 PP ADD- I 115*3857 PP STA- ARGU4 115*3857 PP* 115*3857 PP RTJ GETCH GET CHARACTER INDICATED BY IX,JX 115*3857 PP INA -$30 SEE IF THE CHARACTER IS 115*3857 PP SAM STP395 A NUMBER, IF NOT GO TO X 115*3857 PP INA -$A ELSE LOOP 115*3857 PP SAP STP395 115*3857 PP JMP* STP370 115*3857 PP* 115*3857 PPSTP395 ENA IX INCREMENT IX,JX TO 115*3857 PP ADD- I POINT TO 1ST CHARACTER 115*3857 PP STA- ARGU3 OF REPEAT COUNT OR 115*3857 PP INA 1 LEFT PARENTHESIS 115*3857 PP STA- ARGU4 115*3857 PP RTJ UPDATE 115*3857 PP JMP STP10 CONTINUE 115*3857 PPQ8QFIR DCK/ I,H PPQ8QFLR DCK/ I,H PPQ8QFXR DCK/ I,H PPHEXAR DCK/ I,H PPHEXDR DCK/ I,H PPASCIIR DCK/ I,H PPDECHXR DCK/ I,H PPAFORMR DCK/ I,H PPRFORMR DCK/ I,H PPFLOTGR DCK/ I,H PPSGDBLR DCK/ I,H PPQ8D2IR DCK/ I,H PPDABSR DCK/ I,H PPDSQRTR DCK/ I,H PPDSIGNR DCK/ I,H PPDEXPR DCK/ I,H PPDLOGR DCK/ I,H PPDRSTRR DCK/ I,H PPDSNCSR DCK/ I,H PPDATANR DCK/ I,H PP DEL/ 1 PP NAM DATANR DECK-ID E12 FTN 3.3 RUNTIME SUMMARY-132 PP DEL/ 78 PP* 1 CARD DELETED 132*4969 PPDFLOTR DCK/ I,H PPQ8QDFR DCK/ I,H PPDOUTR DCK/ I,H PPFORTN DCK/ I,H PP DEL/ 1 PP NAM FORTN DECK-ID F01 FTN 3.3 RUNTIME SUMMARY-126 PP INS/ 20 PP EXT* PARABS ROUTINE TO ABSOLUTIZE ADDRESS 116*4086 PP DEL/ 92,102 PP LDA- (ZERO),Q 112*4086 PP STA- VR,I LOC OF PARAMETERS 112*4086 PP INA 5 LOC FOR GENERATED CALL 112*4086 PP RTJ PARABS 112*4086 PP DEL/ 166 PP ADC $6000 INDIRECT REQUEST 126*5088 PP DEL/ 179,189 PP STA* SAVE2 SAVE A-REG 112*4086 PP LDA- VR,I LOC OF PARAMETER ADDR 112*4086 PP RAO- VR,I 112*4086 PP RTJ PARABS 112*4086 PP DEL/ 202,212 PP LDA- (ZERO),Q 112*4086 PP STA- VR,I 112*4086 PP INA 3 112*4086 PP RTJ PARABS 112*4086 PP DEL/ 257,267 PP STA* XIT2 112*4086 PP LDA- (ZERO),Q =ADDR OF PARAMETER 112*4086 PP STA* SAVE2 112*4086 PP RTJ PARABS 112*4086 PPQ8PRMS DCK/ I,H PP DEL/ 1 PP NAM Q8PRMS DECK-ID G01 FTN 3.3 RUNTIME SUMMARY-116 PP INS/ 10 PP EXT* PARABS ROUTINE TO ABSOLUTIZE ADDRESS 116*4086 PP DEL/ 32,35 PP LDQ* Q8PREP 112*4086 PP SQM NOMSIC 112*4086 PP AND- MASKSB 112*4086 PPNOMSIC STA- ENTAD 112*4086 PP DEL/ 50,56 PP RTJ PARABS 112*4086 PP DEL/ 58 PP* ONE RECORD DELETED 112*4086 PP DEL/ 68 PP* ONE RECORD DELETED 112*4086 PP DEL/ 70,74 PP RTJ PARABS 112*4086 PPQ8QF2I DCK/ I,H PP DEL/ 1 PP NAM Q8QF2I DECK-ID G02 FTN 3.3 RUNTIME SUMMARY-118 PP DEL/ 61 PP* ONE RECORD DELETED 112*4086 PP DEL/ 63,74 PP RTJ PARABS 112*4086 PP STA- COEFF 112*4086 PP RAO* RETAD 112*4086 PP LDA* RETAD 112*4086 PP RTJ PARABS 112*4086 PP DEL/ 250 PP EQU EXITIR(EXITFR) EXIT WITH FIXED RESULT, 118*4485 PP* NON-REENTRANT CASE 118*4485 PPABS DCK/ I,H PPSQRT DCK/ I,H PPSIGN DCK/ I,H PPFIXFLT DCK/ I,H PPEXP DCK/ I,H PPALOG DCK/ I,H PPTANH DCK/ I,H PPSINCOS DCK/ I,H PPATAN DCK/ I,H PPPARABN DCK/ I,H PP DEL/ 1 PP NAM PARABN DECK-ID G12 FTN 3.3 RUNTIME SUMMARY-111 PP INS/ 25 PP CLR Q 111*4091 PP SAM NOPART SKIP IF CALLER IN UPPER BANK 111*4091 PPD1781N DCK/ I,H PP DEL/ 1 PP NAM D1781N DECK-ID G13 FTN 3.3 RUNTIME SUMMARY-108 PP DEL/ 28 PPFLT001 ADQ* (EQ1781) ADD IN 1781 EQUIPMENT CODE 108*3978 PP DEL/ 66 PP LDQ* (EQ1781) 1781 EQUIPMENT CODE TO Q 108*3978 PP DEL/ 76 PP LDQ* (EQ1781) 1781 EQUIPMENT CODE TO Q 108*3978 PPFLOTN DCK/ I,H PP DEL/ 1 PP NAM FLOTN DECK-ID G14 FTN 3.3 RUNTIME SUMMARY-112 PP INS/ 205 PP INA 0 ELIMINATE -0 112*4199 PPCOMNFP DCK/ I,H PP DEL/ 1 PP NAM COMNFP DECK-ID G15 FTN 3.3 RUNTIME SUMMARY-114 PP INS/ 232 PP INA 1 ADJUST TO TRUE ADDRESS 114*4170 PPMON DCK/ I,H PPQ8IFRM DCK/ I,H PP DEL/ 2 PP 1 /DECK-ID H01 FTN 3.3 RUNTIME SUMMARY-106 PPQ8FS DCK/ I,H PP DEL/ 2 PP 1 /DECK-ID H02 FTN 3.3 RUNTIME SUMMARY-106 PPQ8TRAN DCK/ I,H PP DEL/ 2,3 PP 1 /DECK-ID H03 FTN 3.3 RUNTIME SUMMARY-115 PPC 1700 MASS STORAGE FORTRAN VERSION 3.3 106*3898 PP INS/ 603 PP IF(IMAN(ICNT).EQ.0) IMAN(ICNT)=48 PP+ CONVERT NULLS TO ZEROES 115*4340 PPC IN THE INTEGER FIELD 115*4340 PP DEL/ 791 PPC ** 1 CARD DELETED **115*4339 PP DEL/ 798 PP IBC = IFW-4 PP+ OUTPUT BLANKS FOR ALL LEFTMOST 115*4339 PP IF(IBC.LE.0) GO TO 935 PP+ POSITIONS .GT. 4 115*4339 PP DEL/ 802,803 PP 935 K=5-IFW PP+ OUTPUT LEADING ZEROES UP TO THE 115*4339 PP IF(IFW.GT.4) K=1 PP+ 4TH HEXADECIMAL POSITION 115*4339 PP 936 DO 937 I=K,4 PP+ 115*4339 PP 937 CALL Q8RWBU (IDIG(I)) PP+ 115*4339 PPMON1 DCK/ I,H PPQ8QINI DCK/ I,H PP DEL/ 1 PP NAM Q8QINI DECK-ID H04 FTN 3.3 RUNTIME SUMMARY-117 PP INS/ 22 PP EXT* PARABS ROUTINE TO ABSOLUTIZE ADDRESS 116*4086 PP EQU EXTCOM($E9) 112*4086 PP EQU END0V4(15) 112*4086 PP EQU MFFF($E) 117*4447 PP SPC 1 PP DEL/ 60,67 PP LDA* Q8QINI 112-4086 PP RTJ PARABS 112-4086 PP STA* TEMP 112-4086 PP DEL/ 69 PPNOTIND AND- MFFF CLEAR BITS 12 - 15 OF LU 117*4447 PP STA* UNIT 117*4447 PP DEL/ 157 PP NUM $4600 111*4162 PP DEL/ 185,192 PP LDA* Q8QINI 112-4086 PP RTJ PARABS 112-4086 PP DEL/ 213,221 PPINDIR LDA Q8QINI 112*4086 PP SAM ABSLT 112*4086 PP STQ* QSTEMP 112*4086 PP LDQ- EXTCOM 112*4086 PP SUB- END0V4,Q 112*4086 PP INA -1 112*4086 PP LDQ* QSTEMP 112*4086 PP SAP ABSLT 112*4086 PP LDA* (FSAD) 112*4086 PP SAP SAVE 112*4086 PP ADD Q8QINI 112*4086 PP AND* SVNF 112*4086 PP JMP SAVE 112*4086 PPABSLT LDA* (FSAD) 112*4086 PPSAVE STA* FSAD 112*4086 PPQ8QEND DCK/ I,H PPQ8CMP DCK/ I,H PP DEL/ 1 PP NAM Q8CMP DECK-ID H06 FTN 3.3 RUNTIME SUMMARY-116 PP DEL/ 48 PP NUM $4600 116*4362 PPQ8RWBU DCK/ I,H PPQ8ERRM DCK/ I,H PPQ8DFIO DCK/ I,H PP DEL/ 1 PP NAM Q8DFIO DECK-ID H09 FTN 3.3 RUNTIME SUMMARY-116 PP INS/ 13 PP EXT* PARABS ROUTINE TO ABSOLUTIZE ADDRESS 116*4086 PP DEL/ 45 PP* ONE CARD DELETED 114*3869 PP DEL/ 138,146 PP LDA* Q8DFNF 112*4086 PP RTJ PARABS 112*4086 PP STA* TEMP 112*4086 PP DEL/ 197,204 PP LDA* TEMP PUT PARAM.LIST ADDR.LOC. IN A-REG 112*4086 PP RTJ PARABS ABSOLUTIZE ADDR. 112*4086 PP STA* SAVEQ 112*4086 PP DEL/ 226 PP* ONE RECORD DELETED 112*4086 PPQ8QX DCK/ I,H PP DEL/ 1 PP NAM Q8QX DECK-ID H10 FTN 3.3 RUNTIME SUMMARY-116 PP INS/ 16 PP EXT* PARABS ROUTINE TO ABSOLUTIZE ADDRESS 116*4086 PP DEL/ 63,68 PPMAKREL LDA* Q8QTRM 112*4086 PP RTJ PARABS 112*4086 PPQ8QUNI DCK/ I,H PPQ8FGET DCK/ I,H PP DEL/ 1 PP NAM Q8FGET DECK-ID H12 FTN 3.3 RUNTIME SUMMARY-116 PP INS/ 14 PP EXT* PARABS ROUTINE TO ABSOLUTIZE ADDRESS 116*4086 PP DEL/ 52,56 PP LDA* FGETC 112*4086 PP RTJ PARABS 112*4086 PP DEL/ 59,62 PP LDA* FGETC SAVE FLAG ADDRESS 112*4086 PP RTJ PARABS 112*4086 PP DEL/ 68,71 PP LDA* FGETC REPEAT FLAG 112*4086 PP RTJ PARABS 112*4086 PP DEL/ 109,114 PP LDA* FPUTC 112*4086 PP RTJ PARABS 112*4086 PP DEL/ 136,143 PP* 8 RECORDS DELETED 112*4086 PPQ8MAGT DCK/ I,H PP DEL/ 1 PP NAM Q8MAGT DECK-ID H13 FTN 3.3 RUNTIME SUMMARY-117 PP DEL/ 67 PP NUM $4600 117*4444 PP DEL/ 108 PP NUM $4600 117*4444 PPTAPCON DCK/ I,H PP DEL/ 1 PP NAM TAPCON DECK-ID H14 FTN 3.3 RUNTIME SUMMARY-117 PP INS/ 17 PP EXT* PARABS ROUTINE TO ABSOLUTIZE ADDRESS 116*4086 PP DEL/ 38,43 PPUNITNM LDA* RETURN 112*4086 PP RTJ PARABS 112*4086 PP DEL/ 100 PP NUM $4600 117*4443 PPIOCK DCK/ I,H PP DEL/ 1 PP NAM IOCK DECK-ID H15 FTN 3.3 RUNTIME SUMMARY-116 PP INS/ 21 PP EXT* PARABS ROUTINE TO ABSOLUTIZE ADDRESS 116*4086 PP DEL/ 24,29 PP LDA* IOCK 112*4086 PP RTJ PARABS 112*4086 PPPSSTOP DCK/ I,H PP DEL/ 1 PP NAM PSSTOP DECK-ID H16 FTN 3.3 RUNTIME SUMMARY-126 PP DEL/ 47 PP NUM $4A00 126*5087 PP INS/ 51 PP LDA- $EF PICK UP CURRENT PRIORITY LEVEL 126*5087 PP INA -4 TEST FOR LEVEL 4 (ITOS USER) 126*5087 PP SAN NTLVL4 SKIP IF NOT AT LEVEL 4 126*5087 PP ENA 0 SET LU TO ZERO (USER TERMINAL) 126*5087 PP JMP* SETLU GO SET IT 126*5087 PPNTLVL4 LDA =N$18FD SET LU TO STD COMMENT OUT 126*5087 PPSETLU STA* LU SAVE LU IN REQUEST 126*5087 PP DEL/ 54 PPZERO ADC 0 THREAD 126*5087 PPLU ADC 0 LOGICAL UNIT 126*5087 PP ADC 1 N 126*5087 PP ADC T S 126*5087 PP DEL/ 59,60 PPT BSS T(2) 126*5087 PPQ8PAND DCK/ I,H PP DEL/ 1 PP NAM Q8PAND DECK-ID H17 FTN 3.3 RUNTIME SUMMARY-126 PP INS/ 60 PPLUCHK LDA- $EF PICK UP CURRENT PRIORITY LEVEL 126*5086 PP INA -4 TEST FOR LEVEL 4 (ITOS USER) 126*5086 PP SAN NTLVL4 SKIP IF NOT AT LEVEL 4 126*5086 PP LDA =N$1000 SET LU TO ZERO (USER TERMINAL) 126*5086 PP JMP* SETLU GO SET IT 126*5086 PPNTLVL4 LDA =N$18FD SET LU TO STD COMMENT 126*5086 PPSETLU STA* WRITE+4 SAVE LU IN REQUEST 126*5086 PP DEL/ 62 PP ADC $4C00 126*5086 PP ADC 0 COMP 126*5086 PP ADC 0 THD 126*5086 PP ADC 0 LU 126*5086 PP ADC 9 N 126*5086 PP ADC BUF1 S 126*5086 PP DEL/ 66 PPOUTLOP LFA* WRITE+4,7,4 PICK UP LU FROM CONSOLE WRITE REQUEST 126*5086 PP SAZ PRTOUT SKIP IF ITOS USER TO BYPASS PRINTER 126*5086 PP RTJ- ($F4) 126*5086 PP DEL/ 80 PP JMP* LUCHK 126*5086 PPQ8EXP1 DCK/ I,H PPQ8EXP9 DCK/ I,H PPQ8QGTX DCK/ I,H PPQ8QIO DCK/ I,H PP DEL/ 1 PP NAM Q8QIO DECK-ID H21 FTN 3.3 RUNTIME SUMMARY-116 PP INS/ 14 PP EXT* PARABS ROUTINE TO ABSOLUTIZE ADDRESS 116*4086 PP DEL/ 55,56 PP* TWO RECORDS DELETED 112*4086 PP INS/ 58 PP SQM K1G65K 112*4086 PP DEL/ 60,63 PPK1G65K STA- I =FWA OF COMMON 112*4086 PP DEL/ 67,74 PP TRQ A 112*4086 PP RTJ PARABS 112*4086 PP DEL/ 77,84 PP TRQ A 112*4086 PP RTJ PARABS 112*4086 PP DEL/ 183,190 PP TRQ A 112*4086 PP RTJ PARABS 112*4086 PPIOCODE DCK/ I,H PP DEL/ 1 PP NAM IOCODE DECK-ID J01 FTN 3.3 RUNTIME SUMMARY-116 PP INS/ 21 PP EXT* PARABS ROUTINE TO ABSOLUTIZE ADDRESS 116*4086 PP DEL/ 85,92 PP TRQ A 112*4086 PP RTJ PARABS 112*4086 PPPSUEDO DCK/ I,H PPIGETCH DCK/ I,H PPIPACK DCK/ I,H PPUPDATN DCK/ I,H PPDECPL DCK/ I,H PPINTGR DCK/ I,H PPSPACEN DCK/ I,H PPHOLRTH DCK/ I,H PPDCHX DCK/ I,H PPHXASC DCK/ I,H PPAFRMOT DCK/ I,H PPRFRMOT DCK/ I,H PPAFRMIN DCK/ I,H PPRFRMIN DCK/ I,H PPASCHX DCK/ I,H PPHXDC DCK/ I,H PPFLOTIN DCK/ I,H PPFOUT DCK/ I,H PPEOUT DCK/ I,H PPEWRITE DCK/ I,H PPINITL1 DCK/ I,H PP DEL/ 1 PP NAM INITL1 DECK-ID J22 FTN 3.3 RUNTIME SUMMARY-116 PP INS/ 9 PP EXT* PARABS ROUTINE TO ABSOLUTIZE ADDRESS 116*4086 PP DEL/ 50,57 PP TRQ A 112*4086 PP RTJ PARABS 112*4086 PPFORMTN DCK/ I,H PP DEL/ 1 PP NAM FORMTN DECK-ID J23 FTN 3.3 RUNTIME SUMMARY-115 PP DEL/ 484,486 PP SAZ STP360 SKIP END OF FORMAT 115*3857 PP JMP STP10 115*3857 PPSTP360 LDA- ISTART,I RESTORE 115*3857 PP STA- IX,I LEFT 115*3857 PP LDA- JSTART,I PAREN 115*3857 PP STA- JX,I POINTERS 115*3857 PP* 115*3857 PP CLR A USE IB AS 115*3857 PP STA- IB,I A PASS FLAG 115*3857 PP* 115*3857 PPSTP370 LDA- JX,I DECREMENT 115*3857 PP INA -2 IX AND JX 115*3857 PP SAZ STP380 115*3857 PP LDA- IX,I 115*3857 PP INA -1 115*3857 PP STA- IX,I 115*3857 PPSTP380 ENA 3 115*3857 PP SUB- JX,I 115*3857 PP STA- JX,I 115*3857 PP* 115*3857 PP LDA- IB,I SKIP BACKWARD 115*3857 PP SAN STP390 PAST LEFT 115*3857 PP RAO- IB,I PAREN ON INITIAL 115*3857 PP JMP* STP370 PASS 115*3857 PP* 115*3857 PPSTP390 LDA- ARGU2,I 115*3857 PP ADD- IX,I 115*3857 PP STA- ARGU3,I SET ADDRESSES 115*3857 PP ENA JX FOR GETCH 115*3857 PP ADD- I 115*3857 PP STA- ARGU4,I 115*3857 PP* 115*3857 PP RTJ GETCH GET CHARACTER INDICATED BY IX,JX 115*3857 PP INA -$30 SEE IF THE CHARACTER IS 115*3857 PP SAM STP395 A NUMBER, IF NOT GO TO X 115*3857 PP INA -$A ELSE LOOP 115*3857 PP SAP STP395 115*3857 PP JMP* STP370 115*3857 PP* 115*3857 PPSTP395 ENA IX INCREMENT IX,JX TO 115*3857 PP ADD- I POINT TO 1ST CHARACTER 115*3857 PP STA- ARGU3,I OF REPEAT COUNT OR 115*3857 PP INA 1 LEFT PARENTHESIS 115*3857 PP STA- ARGU4,I 115*3857 PP RTJ UPDATE 115*3857 PP JMP STP10 CONTINUE 115*3857 PPQ8QFI DCK/ I,H PPQ8QFL DCK/ I,H PPQ8QFX DCK/ I,H PPHEXASC DCK/ I,H PPHEXDEC DCK/ I,H PPASCII DCK/ I,H PP DEL/ 1 PP NAM ASCII DECK-ID J29 FTN 3.3 RUNTIME SUMMARY-114 PPDECHEX DCK/ I,H PPAFORM DCK/ I,H PPRFORM DCK/ I,H PPFLOATG DCK/ I,H PPQ8QD2I DCK/ I,H PP DEL/ 1 PP NAM Q8QD2I DECK-ID K01 FTN 3.3 RUNTIME SUMMARY-116 PP INS/ 26 PP EXT* PARABS ROUTINE TO ABSOLUTIZE ADDRESS 116*4086 PP DEL/ 51 PP* ONE RECORD DELETED 112*4086 PP DEL/ 53,67 PP RTJ PARABS 112*4086 PP STA- COEFF ADDRESS OF COEFFICIENT 112*4086 PP RAO* RETADD 112*4086 PP LDA* RETADD OBTAIN ADDRESS OF EXPONENT 112*4086 PP RTJ PARABS 112*4086 PP STA- EXPO ADDRESS OF EXPONENT 112*4086 PP RAO* RETADD COMPUTE RETURN ADDRESS 112*4086 PPSGLDBL DCK/ I,H PPDABS DCK/ I,H PPDSQRT DCK/ I,H PPDSIGN DCK/ I,H PPDEXP DCK/ I,H PPDLOG DCK/ I,H PPDSNCSN DCK/ I,H PPDATAN DCK/ I,H PP DEL/ 1 PP NAM DATAN DECK-ID K11 FTN 3.3 RUNTIME SUMMARY-132 PP DEL/ 69 PP* 1 CARD DELETED 132*4970 PPDFLOTN DCK/ I,H PPDRSTOR DCK/ I,H PP DEL/ 1 PP NAM DRSTOR DECK-ID K14 FTN 3.3 RUNTIME SUMMARY-116 PP INS/ 8 PP EXT* PARABS ROUTINE TO ABSOLUTIZE ADDRESS 116*4086 PPQ8DXP1 DCK/ I,H PPQ8DXP9 DCK/ I,H PPQ8QDFN DCK/ I,H PPDOUTN DCK/ I,H PP DEL/ 1 PP NAM DOUTN DECK-ID K18 FTN 3.3 RUNTIME SUMMARY-109 PP DEL/ 179 PP* 1 CARD DELETED 109*4069 PP INS/ 214 PP RTJ* (LOOP1+1) CALL HDFLOT 109*4069 PPDBLDMY DCK/ I,H PP END/ P