File: XYPLOW.RA of Tape: Sources/Fortran/s2
(Source file text)
SECT XYPLOT JA STNOW #PLSTR, JA . JA #XPLOT TEXT +XYPLOT+ PLOTXR, SETX XRPLOT SETB BPPLOT BPPLOT, FNOP 0 0 XRPLOT, 0 XR1, 0 XR2, 0 TERM2, 0 XR4, 0 XR5, 0 YPT, F 0. XPT, F 0. TERM1, F 0. ARG1, F 0. YDIFF, F 0. ORG BPPLOT+30 FNOP JA PLOTXR 0 PLTRTN, JA . MAJOR, F 0. MINOR, F 0. XOLD, F 0. YOLD, F 0. PENCM, F 0. INCR, F .01 FACTC, F 1. XACT, F 0. YACT, F 0. XDIFF, F 0. P1, F 1. PF2, F 2. P3, F 3. P4, F 4. PF7, F 7. PT5, F .5 PORS, F 0. ONCE, F 0. XCHRPT, F 0. YCHRPT, F 0. NUMENT, F 0. COSANG, F 0. SINANG, F 0. DEGRAD, F 0.017453293 F200, F 200. XREAL, F 0. YREAL, F 0. CENTSY, F 0. NUMSYM, F 0. ANGADJ, F 0. 0 SYMSTR, JA . JA SYMST 0 BASE 0 #XPLOT, STARTD FLDA 30 FSTA PLTRTN FLDA 0 SETX XRPLOT SETB BPPLOT BASE BPPLOT LDX 1,1 FSTA ARG1 JA #PLSTR STNOW, JSA #PLSTR SYMENT, FLDA% ARG1,1 FSTA XPT FLDA% ARG1,1+ FSTA YPT FLDA% ARG1,1+ FSTA YDIFF STARTF FLDA% XPT FDIV INCR JSA MAKINT FSTA XACT FMUL FACTC JSA MAKINT FSTA XPT FLDA% YPT FDIV INCR JSA MAKINT FSTA YACT FMUL FACTC JSA MAKINT FSTA YPT FLDA% YDIFF FSTA PENCM JGE MORPEN FNEG MORPEN, JSA MAKINT TRYAGN, SETX SETXR ATX 0 XTA 0 SETX XRPLOT FSUB P3 JLE ALEGAL FCLA JA TRYAGN ALEGAL, TRAP4 SETUP FLDA FACTC FMULM XOLD FMULM YOLD JA REALPT MAKINT, JA . FADD PT5 ALN 0 FNORM JA MAKINT PRERL1, FCLA PREREL, JA . REALPT, FLDA XPT FSUB XOLD FSTA XDIFF JGE ABSDX FNEG ABSDX, FSTA TERM1 FLDA YPT FSUB YOLD FSTA YDIFF JLE DELXY FNEG DELXY, FADDM TERM1 FLDA TERM1 JGT XMAJ FLDA YDIFF FSTA MAJOR FLDA XDIFF FSTA MINOR JA KNOWOC XMAJ, FLDA XDIFF FSTA MAJOR FLDA YDIFF FSTA MINOR KNOWOC, LDX 2,1 FLDA XDIFF JLE .+4 ADDX 10,1 FLDA YDIFF JLE .+4 ADDX 4,1 FLDA TERM1 JLE .+4 ADDX 2,1 LDX 0,2 FLDA MAJOR JGT POSMAJ JEQ NOTHIN FNEG FSTA MAJOR POSMAJ, JSA MAKINT SETX PDPXR ATX 1 SETX XRPLOT FLDA MINOR JGT POSMIN JEQ ZROCAS FNEG POSMIN, FDIV MAJOR ALN 2 ZROCAS, FSTA RATIO XTA 1 SETX PDPXR ATX 0 SETX XRPLOT TRAP4 NINPLT NOTHIN, FLDA PORS JEQ REGPLT JLT SYMSET FCLA FSTA XOLD FSTA YOLD FSTA PORS JA SYMSTR REGPLT, FLDA PENCM JLT ZEROLD FLDA XACT FSTA XOLD FLDA YACT YS, FSTA YOLD JA PLTRTN SYMSET, FLDA XPT FSTA XOLD FLDA YPT FSTA YOLD JA PRERL1 ZEROLD, FCLA FSTA XOLD JA YS ENTRY SYMSTR SYMST, STARTD FLDA SYMSTR FSTA ARG1 LDX 1,1 STARTF FLDA P1 FSTA PORS STARTD JA SYMENT ENTRY WHERE WHERE, JSA #PLSTR FLDA% ARG1,1 FSTA TERM1 FLDA% ARG1,1+ FSTA YDIFF FLDA% ARG1,1+ FSTA ARG1 STARTF FLDA XOLD FMUL INCR FSTA% TERM1 FLDA YOLD FMUL INCR FSTA% YDIFF FLDA FACTC FSTA% ARG1 JA PLTRTN ENTRY FACTOR FACTOR, JSA #PLSTR FLDA% ARG1,1 FSTA ARG1 STARTF FLDA% ARG1 JGE ABSFCT FNEG ABSFCT, FSTA FACTC JA PLTRTN ENTRY PLOTS PLOTS, JSA #PLSTR FLDA% ARG1,1 FSTA XPT FLDA% ARG1,1+ FSTA ARG1 STARTF FLDA% XPT FSTA INCR FLDA ONCE FCLA /JNE NOINT FCLA /"" TRAP4 INTST NOINT, FLDA P1 FSTA FACTC FSTA ONCE FCLA FSTA PENCM FSTA XOLD FSTA YOLD FSTA PORS JA PLTRTN ENTRY PLEXIT PLEXIT, JSA #PLSTR STARTF TRAP4 DONECK JA PLTRTN