JPASNQ REM 0086 01060 NUEFMT REM 0071 01181 GOLDSTEIN-COOLEY N.Y.U. EFMT0001 REM NU EFM,EFM AND LFM FOR FORTRAN 2 EFMT 02 REM EFMT 03 ORG 0 EFMT 04 MZE MAX+1 EFMT 05 PZE EFMT 06 BCD 1EFM EFMT 07 PZE EFM EFMT 08 BCD 1LFM EFMT 09 PZE LFM EFMT 10 BCD 1EFMT EFMT 11 PZE EFMT EFMT 12 REM EFMT 13 ORG 0 EFMT 14 REL EFMT 15 LFM OCT 476000000004 EFMT 16 TTR 1,4 EFMT 17 EFMT CLA 1,4 EFMT 18 STA SETN+1 EFMT 19 CLA TTR EFMT 20 TXI EFM+1,4,-1 EFMT 21 EFM CLA HPR EFMT 22 STO OVER+2 EFMT 23 OCT 476000000002 EFMT 24 SET CLA X TTR ANALY EFMT 25 STO 8 EFMT 26 TTR 1,4 EFMT 27 X TTR ANALY EFMT 28 ANALY SXD SAVEX,1 EFMT 29 LXD 0,1 EFMT 30 TTR *+14,1 EFMT 31 TTR MQO MQ OVER EFMT 32 SAVEX PZE SAVE XA IN DEC.,THEN ACC. EFMT 33 TTR ACMQ 11 EFMT 34 TTR AC 10 EFMT 35 TTR MQ 9 EFMT 36 ZERO PZE EFMT 37 TTR ACMQO AC AND MQ OVER EFMT 38 TTR ACO EFMT 39 AC CLA ZERO EFMT 40 TTR RETRN EFMT 41 ACMQ CLA ZERO 3 EFMT 42 TTR MQ EFMT 43 MQ LDQ ZERO 1, MQ UNDER EFMT 44 RETRN LXD SAVEX,1 EFMT 45 STO SAVEX EFMT 46 CLA 0 EFMT 47 STA *+2 EFMT 48 CLA SAVEX EFMT 49 TTR ** EFMT 50 ACMQO ORA MAX EFMT 51 MQO STO SAVEA EFMT 52 LLS 0 EFMT 53 LDQ MAX EFMT 54 LRS 0 EFMT 55 TTR OVER+1 EFMT 56 ACO ORA MAX EFMT 57 OVER STO SAVEA EFMT 58 CLA 0 EFMT 59 HPR 63 PAUSE OVERFLOW EFMT 60 CLA SAVEA PRESS START TO CONTINUE EFMT 61 TTR RETRN EFMT 62 SAVEA PZE EFMT 63 THREE PZE 0,0,3 EFMT 64 TTR TTR SETN EFMT 65 HPR HPR 63 EFMT 66 SETN ANA THREE EFMT 67 STO - EFMT 68 TTR OVER+3 EFMT 69 MAX OCT 377777777777 EFMT 70 END EFMT 71