File: SYMBOL.RA of Tape: Sources/Fortran/s2
(Source file text)
SECT SYMBOL EXTERN SIN EXTERN COS JSA #PLSTR SYM1, FLDA% ARG1,1 FSTA XPT FLDA% ARG1,1+ FSTA YPT FLDA% ARG1,1+ FSTA YDIFF FLDA% ARG1,1+ FSTA TERM1 FLDA% ARG1,1+ FSTA TERM2 FLDA% ARG1,1+ FSTA ARG1 STARTF FLDA% TERM2 FMUL DEGRAD FSTA XCHRPT FLDA% XPT FSTA COSANG FLDA% YPT FSTA SINANG FCLA FSTA TXTADR FSTA PENCM FSTA CENTSY FLDA TERM1 FSTA TXTADR FLDA% YDIFF JGE NOTNEG FNEG NOTNEG, FDIV PF7 FSTA ANGADJ FLDA% ARG1 FSTA NUMSYM JGE REGSYM FLDA% TERM1 FSUB F100 JLT INTEQ FLDA% YDIFF JGE NOTNG1 FNEG NOTNG1, FDIV P4 FSTA ANGADJ FLDA NUMSYM FADD P1 JGE UPPEN FSTA CENTSY PTITDN, FLDA PF2 CPEN, FSTA YCHRPT JSA SYMSTR JA .+10 JA COSANG JA SINANG JA YCHRPT FLDA XPT FSTA XREAL FLDA YPT FSTA YREAL FLDA CENTSY JLE PENOK JSA PNDOWN PENOK, JSR SIN JA .+4 JA XCHRPT FMUL ANGADJ FSTA SINANG JSR COS JA .+4 JA XCHRPT FMUL ANGADJ FSTA COSANG LDX 0,4 FLDA NUMENT JGT NUM2 JA FSTLFT UPPEN, FLDA P3 FSTA CENTSY JA CPEN PENSET, JSA PNDOWN ONEXY, JA . SETX LETCOD XTA 2 FSTA YCHRPT XTA 1 FSTA XCHRPT SETX XRPLOT FSUB PF7 JEQ PENUPM FLDA CENTSY JEQ CALALL FLDA PF2 FNEG FADDM XCHRPT FADDM YCHRPT CALALL, JSA CALANG JXN PENSET,5 JA ONEXY INTEQ, FLDA NUMSYM FADD P1 JLT PTITDN REGSYM, FLDA P3 JA CPEN PENUPM, JSA PENUP FLDA YCHRPT FSUB PF7 JEQ NXTCHR JA ONEXY PENUP, JA . LDX 1,5 SETX PDPXR LDX 0,0 SETX XRPLOT TRAP4 PENOP JA PENUP PNDOWN, JA . SETX PDPXR LDX 1,0 SETX XRPLOT TRAP4 PENOP LDX 0,5 JA PNDOWN CALANG, JA . FLDA YCHRPT FDIV INCR FSTA YCHRPT FMUL SINANG FNEG FSTA TERM1 FLDA XCHRPT FDIV INCR FSTA XCHRPT FMUL COSANG FADD TERM1 JSA MAKINT FSTA XACT FMUL FACTC JSA MAKINT FSTA XPT FLDA YCHRPT FMUL COSANG FSTA TERM1 FLDA XCHRPT FMUL SINANG FADD TERM1 JSA MAKINT FSTA YACT FMUL FACTC JSA MAKINT FSTA YPT FLDA P1 FSTA PENCM FNEG FSTA PORS JSA PREREL JA CALANG LEFTJS, XTA 4 SETX LETCOD ATX 0 SETX XRPLOT TRAP4 LEFT JSA ONEXY XTA 4 SETX LETCOD ATX 0 SETX XRPLOT JNE NOTFST JSA PNDOWN NOTFST, TRAP4 RIGHT JSA ONEXY ADDX 1,4 JA LEFTJS CENTEX, JSA PENUP JA CENTOO NXTCHR, FLDA CENTSY JNE CENTEX FSTA YCHRPT FLDA PF7 FSTA XCHRPT JSA CALANG FLDA XACT FMUL FACTC FADDM XREAL FLDA YACT FMUL FACTC FADDM YREAL CENTOO, LDX 0,4 FCLA FSTA XOLD FSTA YOLD FLDA P1 FNEG FADD NUMSYM JLE SYMDON FSTA NUMSYM FLDA NUMENT JGT NUM3 FCLA JXN RTCHAR,3 FSTLFT, LDX 1,3 FLDA NUMSYM JLT NUM5 FCLA TRAP4 FINDLF JA LEFTJS RTCHAR, LDX 0,3 TRAP4 FINDRT JA LEFTJS SYMDON, FCLA FSTA PORS FSTA NUMENT FLDA XREAL FDIV FACTC FSTA XOLD FLDA YREAL FDIV FACTC FSTA YOLD JA PLTRTN ENTRY SYMB SYMB, JSA #PLSTR STARTF FLDA P1 FSTA NUMENT FLDA XREAL FDIV FACTC FSTA XREAL FLDA YREAL FDIV FACTC FSTA YREAL STARTD JA SYM1 NUM2, SETX NUMENT LDX -1,2 NUM3, JSA GETARG TRAP4 PASNUM JA LEFTJS NUM5, SETX NUMENT LDX -1,2 JSA GETARG TRAP4 PASINT JA LEFTJS GETARG, JA . SETX NUMENT STARTD FLDA TXTADR+1 FSTA ARG1 STARTF FLDA% ARG1,2+ SETX TXTADR JSA MAKINT ATX 0 SETX XRPLOT JA GETARG