/GPLOT/
 LAP
 ENTRY GPLOT
 OPDEF MQL 7421
 OPDEF MQA 7501
 OPDEF ACL 7701
 OPDEF BSW 7002
 OPDEF CDFGX 6211
 ABSYM CTR    137
 ABSYM FSLOPE 140
 ABSYM FREM   141
 ABSYM IXA    142
 ABSYM IYA    143
 ABSYM IXB    144
 ABSYM IYB    145
 ABSYM ICODE  146
 ABSYM CHNGE1 147
 ABSYM CHNGE2 150
 ABSYM ABSDX  151
 ABSYM ABSDY  152
 ABSYM MASK   153
 ABSYM DISP   154
 ABSYM FABS   155
 ABSYM STEPS  156
 ABSYM TEMP   157
GXBUF, COMMN 6200
 OPDEF ANDI 0400
 OPDEF TADI 1400
 OPDEF ISZI 2400
 OPDEF DCAI 3400
OLDX, 0
OLDY, 0
ARGSUB, 0
CDFX1, HLT
 TADI GPLOT#
 DCA CDFX2
 INC GPLOT#
 TADI GPLOT#
 DCA TEMP
 INC GPLOT#
CDFX2, HLT
 TADI TEMP
 SPA
 CLA
 JMP I ARGSUB

GPLOT, BLOCK 2
 TAD GPLOT
 DCA CDFX1
 JMS ARGSUB
 TAD (-274
 SMA SZA
 CLA
 TAD (274
 DCA IXB
 JMS ARGSUB
 TAD (-307
 SMA SZA
 CLA
 TAD (307
 DCA IYB
 JMS ARGSUB
 DCA ICODE
 TAD ICODE
 RAR
 SZL CLA
 JMP USEOLD
 TAD IXB
 DCA IXA
 TAD IYB
 DCA IYA
 JMP SETOLD
USEOLD, TAD OLDX
 DCA IXA
 TAD OLDY
 DCA IYA
SETOLD, TAD IXB
 DCA OLDX
 TAD IYB
 DCA OLDY
 TAD IXA
 CIA
 TAD IXB
 SMA
 JMP POSDX
 CIA
 DCA ABSDX
 TAD ZNEGXC
 DCA CHNGE1
 JMP GOTXCH
POSDX, DCA ABSDX
 TAD ZPOSXC
 DCA CHNGE1
GOTXCH, TAD IYA
 CIA
 TAD IYB
 SMA
 JMP POSDY
 CIA
 DCA ABSDY
 TAD ZNEGYC
 DCA CHNGE2
 JMP GOTYCH
POSDY, DCA ABSDY
 TAD ZPOSYC
 DCA CHNGE2
GOTYCH, TAD ABSDY
 CIA
 TAD ABSDX
 SPA CLA
 JMP BIGDY
 TAD ABSDX
 CLL RAL
 CIA
 DCA FABS
 TAD ABSDY
 CLL RAL
 DCA FSLOPE
 TAD ABSDX
 DCA FREM
 JMS LPLOT
 JMP DDONE
BIGDY, TAD CHNGE1
 MQL
 TAD CHNGE2
 DCA CHNGE1
 ACL
 DCA CHNGE2
 TAD ABSDY
 CLL RAL
 CIA
 DCA FABS
 TAD ABSDX
 CLL RAL
 DCA FSLOPE
 TAD ABSDY
 DCA FREM
 JMS LPLOT
DDONE,
 RETRN GPLOT
ZNEGXC, NEGXCH
ZPOSXC, POSXCH
ZNEGYC, NEGYCH
ZPOSYC, POSYCH
 PAGE

LPLOT, 0
 JMS DCONVT
 TAD FREM
 CMA
 DCA STEPS
LPL1, TAD ZGXBUF
 TAD DISP
 DCA TEMP
 CDFGX
 TAD ICODE
 RTR
 SZL CLA
 JMP UNDRAW
 TAD MASK
 MQL
 TADI TEMP
 MQA
 DCAI TEMP
 JMP LATER
UNDRAW, TAD MASK
 CMA
 ANDI TEMP
 DCAI TEMP
LATER, TAD FREM
 TAD FSLOPE
 DCA FREM
 TAD FREM
 TAD FABS
 SPA
 JMP LPNO2
 DCA FREM
 JMS I CHNGE2
LPNO2, CLA CLL
 JMS I CHNGE1
 ISZ STEPS
 JMP LPL1
 JMP I LPLOT
POSXCH, 0
 TAD MASK
 CLL RAR
 DCA MASK
 SNL
 JMP I POSXCH
 CLA CLL CML RAR  /4000/
 DCA MASK
 ISZ DISP
 NOP
 JMP I POSXCH
NEGXCH, 0
 TAD MASK
 CLL RAL
 DCA MASK
 SNL
 JMP I NEGXCH
 CLA CLL IAC  /0001/
 DCA MASK
 CLA CLL CMA  /-1/
 TAD DISP
 DCA DISP
 JMP I NEGXCH
POSYCH, 0
 TAD DISP
 TAD (-20
 DCA DISP
 JMP I POSYCH
NEGYCH, 0
 TAD DISP
 TAD (20
 DCA DISP
 JMP I NEGYCH
DCONVT, 0
 TAD IXA
 CLL RAR
 CLL RAR
 DCA DISP
 TAD DISP
 CLL RTL
 TAD DISP
 CLL RTL
 TAD DISP
 CLL RAL
 TAD DISP
 RAR
 BSW
 AND (0077
 DCA DISP
 TAD DISP
 CLL RAL
 TAD DISP
 CLL RAL
 CLL RAL
 CIA
 TAD IXA  /REM IN AC/
 CMA
 DCA MASK
 CLA CLL CML
ROLOOP, RAR
 ISZ MASK
 JMP ROLOOP
 DCA MASK
 TAD IYA
 CLL RTL
 CLL RTL
 CIA
 TAD (6160
 TAD DISP
 DCA DISP
 JMP I DCONVT
ZGXBUF, GXBUF
 END